Package init

eliminate-limitpm-difference.patch

@@ -0,0 +1,23 @@
+From: chenzhen <chenzhen44@huawei.com>
+Subject: [PATCH] eliminate the difference of limit.pm
+
+reason: The limit.pm are diff between two compilations, This is because that
+ there has diff when calculating dclone's maximum recursion depth by stacksize.
+ give max_depth a fixed value.
+---
+diff --git a/stacksize b/stacksize
+index f93eccc..7adab2e 100644
+--- a/stacksize
++++ b/stacksize
+@@ -155,7 +155,10 @@ if ($max_depth == $bad1-1
+     print "MAX_DEPTH = $max_depth\n" unless QUIET;
+ }
+ print "# MAX_DEPTH_HASH = $n\n" unless QUIET;
+-my $max_depth_hash = $n;
++
++# Set this variable to a const value to eliminate bep differences.
++# This value is close to the calculation result on machine with 8192 stacksize
++my $max_depth = 20145;
+ 
+ # Previously this calculation was done in the macro, calculate it here
+ # instead so a user setting of either variable more closely matches

perl-Storable.spec

@@ -0,0 +1,75 @@
+%define mod_name Storable
+
+Name:    perl-%{mod_name}
+Epoch:   1
+Version: 3.15
+Release: 1
+Summary: Persistence for Perl data structures
+License: GPL+ or Artistic
+URL:     https://metacpan.org/release/Storable
+Source0: https://cpan.metacpan.org/authors/id/X/XS/XSAWYERX/%{mod_name}-%{version}.tar.gz
+
+BuildRequires: bash, gcc, make, perl-devel, perl-generators, perl-interpreter
+BuildRequires: perl(Config), perl(Cwd), perl(ExtUtils::MakeMaker) >= 6.76
+BuildRequires: perl(File::Copy), perl(File::Spec) >= 0.8
+BuildRequires: perl(strict), perl(warnings), perl(Carp), perl(Exporter)
+BuildRequires: perl(Fcntl), perl(IO::File), perl(XSLoader)
+BuildRequires: perl(base), perl(bytes), perl(File::Temp), perl(integer)
+BuildRequires: perl(overload), perl(utf8), perl(Test::More), perl(threads)
+BuildRequires: perl(Safe), perl(Scalar::Util), perl(Tie::Array), perl(B::Deparse) >= 0.61
+BuildRequires: perl(Digest::MD5), perl(Hash::Util), perl(Tie::Hash)
+Requires: perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+Requires: perl(Carp), perl(Config), perl(Fcntl), perl(IO::File)
+
+Patch9000: eliminate-limitpm-difference.patch
+
+%description
+The Storable extension brings persistence to your data.
+You may recursively store to disk any data structure, no matter how
+complex and circular it is, provided it contains only SCALAR, ARRAY,
+HASH (possibly tied) and references (possibly blessed) to those items.
+
+%package help
+Summary: Help files for %{name}
+Requires: %{name} = %{version}-%{release}
+BuildArch: noarch
+
+%description help
+This package contains user documentation for %{name}.
+
+%prep
+%autosetup -n %{mod_name}-%{version} -p1
+
+%build
+perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 OPTIMIZE="%{optflags}"
+%make_build
+
+%install
+make pure_install DESTDIR=%{buildroot}
+find $RPM_BUILD_ROOT -type f -name '*.bs' -size 0 | xargs rm -f
+find $RPM_BUILD_ROOT -type f -name '*.3pm' -size 0 | xargs rm -f
+%{_fixperms} %{buildroot}/*
+
+%check
+unset PERL_TEST_MEMORY PERL_RUN_SLOW_TESTS
+make test
+
+%pre
+
+%preun
+
+%post
+
+%postun
+
+%files
+%doc ChangeLog README
+%{perl_vendorarch}/auto/*
+%{perl_vendorarch}/Storable*
+
+%files help
+%{_mandir}/man*/*
+
+%changelog
+* Mon Sep 16 2019 openEuler Buildteam <buildteam@openeuler.org> - 3.15-1
+- Package init