File _service:obs_scm:perl-String-Base.spec of Package perl-String-Base

%global _empty_manifest_terminate_build 0
Name:           perl-String-Base
Version:        0.003
Release:        1
Summary:        string index offseting
License:        GPL-1.0-only or Artistic-1.0-Perl
Group:          Development/Libraries
URL:            https://metacpan.org/dist/String-Base
Source0:        https://www.cpan.org/modules/by-module/String/String-Base-%{version}.tar.gz
BuildRequires:  perl-generators
BuildRequires:  perl => 5.008001
BuildRequires:  perl(Test::More)
BuildRequires:  perl(Lexical::SealRequireHints)
BuildRequires:  perl(strict)
BuildRequires:  perl(warnings)
BuildRequires:  perl(ExtUtils::CBuilder)
BuildRequires:  perl(XSLoader)
BuildRequires:  perl(Test::More)
BuildRequires:  perl(B::Hooks::OP::Check) 
BuildRequires:  perl(Module::Build)
Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))

%description
This module implements automatic offsetting of string indices. In normal Perl, the first character of a string has index 0, the second character has index 1, and so on. This module allows string indexes to start at some other value. Most commonly it is used to give the first character of a string the index 1 (and the second 2, and so on), to imitate the indexing behaviour of FORTRAN and many other languages. It is usually considered poor style to do this.

%package help
Summary : string index offseting
Provides: perl-String-Base

%description help
This module implements automatic offsetting of string indices. In normal Perl, the first character of a string has index 0, the second character has index 1, and so on. This module allows string indexes to start at some other value. Most commonly it is used to give the first character of a string the index 1 (and the second 2, and so on), to imitate the indexing behaviour of FORTRAN and many other languages. It is usually considered poor style to do this.

%prep
%setup -q -n String-Base-%{version}

%build
export PERL_MM_OPT=""
%{__perl} Build.PL --installdirs=vendor
./Build

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

./Build install --destdir=$RPM_BUILD_ROOT --create_packlist=0
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
./Build test

%clean
rm -rf $RPM_BUILD_ROOT

%files -f filelist.lst
%defattr(-,root,root,-)
%doc Changes README
%{perl_vendorarch}/*
%files help
%{_mandir}/*

%changelog
* Thu Feb 29 2024 woody2918 <wudi1@uniontech.com> - 0.003-1
- Package init