%global _empty_manifest_terminate_build 0
Name:           perl-Tk-ObjScanner
Version:        2.018
Release:        1
Summary:        GUI to scan any perl data structure or object
License:        GPL+ or Artistic
Group:          Development/Libraries
URL:            http://search.cpan.org/dist/Tk-ObjScanner/
Source0:        http://www.cpan.org/authors/id/D/DD/DDUMONT/Tk-ObjScanner-%{version}.tar.gz
BuildArch:      noarch
BuildRequires:  perl-generators
BuildRequires:  perl(Carp)
BuildRequires:  perl(Data::Dumper)
BuildRequires:  perl(ExtUtils::MakeMaker)
BuildRequires:  perl(Math::BigInt)
BuildRequires:  perl(Scalar::Util) >= 1.01
BuildRequires:  perl(Test::More)
BuildRequires:  perl(Tk)
BuildRequires:  perl(Tk::Adjuster)
BuildRequires:  perl(Tk::Derived)
BuildRequires:  perl(Tk::Frame)
BuildRequires:  perl(Tk::HList)
BuildRequires:  perl(Tk::Menubutton)
BuildRequires:  perl(Tk::ROText)
Requires:       perl(Carp)
Requires:       perl(Data::Dumper)
Requires:       perl(Scalar::Util) >= 1.01
Requires:       perl(Tk)
Requires:       perl(Tk::Adjuster)
Requires:       perl(Tk::Derived)
Requires:       perl(Tk::Frame)
Requires:       perl(Tk::HList)
Requires:       perl(Tk::Menubutton)
Requires:       perl(Tk::ROText)
Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))

%description
The scanner provides a GUI to scan the attributes of an object. It can also
be used to scan the elements of a hash or an array.

%package help
Summary : GUI to scan any perl data structure or object
Provides: perl-Tk-ObjScanner-doc

%description help
The scanner provides a GUI to scan the attributes of an object. It can also
be used to scan the elements of a hash or an array.

%prep
%setup -q -n Tk-ObjScanner-%{version}

%build
export PERL_MM_OPT=""
%{__perl} Makefile.PL INSTALLDIRS=vendor
make %{?_smp_mflags}

%install
export PERL_MM_OPT=""
rm -rf $RPM_BUILD_ROOT

make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT

find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} \;
find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;

%{_fixperms} $RPM_BUILD_ROOT/*

pushd %{buildroot}
touch filelist.lst
if [ -d usr/bin ];then
    find usr/bin -type f -printf "/%h/%f\n" >> filelist.lst
fi
if [ -d usr/sbin ];then
    find usr/bin -type f -printf "/%h/%f\n" >> filelist.lst
fi
if [ -d usr/lib64 ];then
    find usr/lib64 -type f -printf "/%h/%f\n" >> filelist.lst
fi
if [ -d usr/lib ];then
    find usr/lib -type f -printf "/%h/%f\n" >> filelist.lst
fi
popd
mv %{buildroot}/filelist.lst .
%check
make test

%clean
rm -rf $RPM_BUILD_ROOT

%files -f filelist.lst
%defattr(-,root,root,-)
%doc Changes dist.ini LICENSE META.json README.org
%{perl_vendorlib}/*
%files help
%{_mandir}/*

%changelog
* Sun Feb 04 2024 woody2918 <wudi1@uniontech.com> 2.018-1
- update version to 2.018
- add data-viewer script
- ObjScanner: add -destroy_label option
- remove support of obsolete pseudo-hashes

* Wed Jun 23 2021 Perl_Bot <Perl_Bot@openeuler.org> 2.017-1
- Specfile autogenerated by Perl_Bot