From 6e2c0be11de615ceac92a44715c96ff3ee46662f Mon Sep 17 00:00:00 2001 From: corsepiu Date: Wed, 21 Nov 2007 22:46:12 +0000 Subject: [PATCH 01/56] *** empty log message *** --- .cvsignore | 1 + perl-Perl-MinimumVersion.spec | 60 +++++++++++++++++++++++++++++++++++ sources | 1 + 3 files changed, 62 insertions(+) create mode 100644 perl-Perl-MinimumVersion.spec diff --git a/.cvsignore b/.cvsignore index e69de29..8e4e719 100644 --- a/.cvsignore +++ b/.cvsignore @@ -0,0 +1 @@ +Perl-MinimumVersion-0.15.tar.gz diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec new file mode 100644 index 0000000..fa0c88a --- /dev/null +++ b/perl-Perl-MinimumVersion.spec @@ -0,0 +1,60 @@ +Name: perl-Perl-MinimumVersion +Version: 0.15 +Release: 1%{?dist} +Summary: Find a minimum required version of perl for Perl code +License: GPL+ or Artistic +Group: Development/Libraries +URL: http://search.cpan.org/dist/Perl-MinimumVersion/ +Source0: http://search.cpan.org/CPAN/authors/id/A/AD/ADAMK/Perl-MinimumVersion-%{version}.tar.gz +BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n) + +Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version)) +BuildArch: noarch + +# Should be 1.19, but Fedora only has 1.18 +# BuildRequires: perl(List::Util) >= 1.19 +BuildRequires: perl(List::Util) >= 1.18 + +BuildRequires: perl(PPI) >= 1.118 +BuildRequires: perl(Test::Script) >= 1.02 +BuildRequires: perl(version) >= 0.7203 +BuildRequires: perl(File::Find::Rule) +BuildRequires: perl(File::Spec) >= 0.80 +BuildRequires: perl(Test::More) >= 0.47 + +BuildRequires: perl(Test::Pod) >= 1.00 + +%description +Find a minimum required version of perl for Perl code + +%prep +%setup -q -n Perl-MinimumVersion-%{version} + +%build +%{__perl} Makefile.PL INSTALLDIRS=vendor +make %{?_smp_mflags} + +%install +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 -type d -depth -exec rmdir {} 2>/dev/null ';' +chmod -R u+w $RPM_BUILD_ROOT/* + +%clean +rm -rf $RPM_BUILD_ROOT + +%check +make test AUTOMATED_TESTING=1 + +%files +%defattr(-,root,root,-) +%doc Changes LICENSE +%{_bindir}/* +%{perl_vendorlib}/Perl +%{_mandir}/man1/* +%{_mandir}/man3/* + +%changelog +* Tue Nov 20 2007 Ralf Corsépius - 0.15-1 +- Initial version. diff --git a/sources b/sources index e69de29..b63d036 100644 --- a/sources +++ b/sources @@ -0,0 +1 @@ +43b93a55986f8d3f364fd29065c3dd82 Perl-MinimumVersion-0.15.tar.gz From 90b7a43216de5531d9a732f84ddee4871f5ba494 Mon Sep 17 00:00:00 2001 From: corsepiu Date: Thu, 10 Jan 2008 16:49:17 +0000 Subject: [PATCH 02/56] - Use unversioneed BR: perl(version) to circumvent perl vs. rpm versioning conflicts --- perl-Perl-MinimumVersion.spec | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index fa0c88a..d519632 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 0.15 -Release: 1%{?dist} +Release: 2%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -17,7 +17,7 @@ BuildRequires: perl(List::Util) >= 1.18 BuildRequires: perl(PPI) >= 1.118 BuildRequires: perl(Test::Script) >= 1.02 -BuildRequires: perl(version) >= 0.7203 +BuildRequires: perl(version) BuildRequires: perl(File::Find::Rule) BuildRequires: perl(File::Spec) >= 0.80 BuildRequires: perl(Test::More) >= 0.47 @@ -56,5 +56,9 @@ make test AUTOMATED_TESTING=1 %{_mandir}/man3/* %changelog +* Thu Jan 10 2008 Ralf Corsépius - 0.15.2 +- Use unversioneed BR: perl(version) to circumvent perl vs. rpm versioning + conflicts + * Tue Nov 20 2007 Ralf Corsépius - 0.15-1 - Initial version. From 7b740d9324cfbf16d121c83d81674ef707abfacd Mon Sep 17 00:00:00 2001 From: corsepiu Date: Thu, 10 Jan 2008 16:54:38 +0000 Subject: [PATCH 03/56] Fix typo in changelog. --- perl-Perl-MinimumVersion.spec | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index d519632..253301b 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -57,7 +57,7 @@ make test AUTOMATED_TESTING=1 %changelog * Thu Jan 10 2008 Ralf Corsépius - 0.15.2 -- Use unversioneed BR: perl(version) to circumvent perl vs. rpm versioning +- Use unversioned BR: perl(version) to circumvent perl vs. rpm versioning conflicts * Tue Nov 20 2007 Ralf Corsépius - 0.15-1 From cc618dcbe5ef10dc38b353f3d20498fc81f4dd21 Mon Sep 17 00:00:00 2001 From: Tom Callaway Date: Fri, 11 Jan 2008 19:29:29 +0000 Subject: [PATCH 04/56] rebuild for new perl --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 253301b..9e876b0 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 0.15 -Release: 2%{?dist} +Release: 3%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -56,6 +56,9 @@ make test AUTOMATED_TESTING=1 %{_mandir}/man3/* %changelog +* Fri Jan 11 2008 Tom "spot" Callaway 0.15-3 +- rebuild for new perl + * Thu Jan 10 2008 Ralf Corsépius - 0.15.2 - Use unversioned BR: perl(version) to circumvent perl vs. rpm versioning conflicts From 3d53872e3b46c7aeba2819d5f92016ccdfa4ec15 Mon Sep 17 00:00:00 2001 From: Tom Callaway Date: Mon, 14 Jan 2008 02:40:57 +0000 Subject: [PATCH 05/56] correct List::Util versioned BuildRequires --- perl-Perl-MinimumVersion.spec | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 9e876b0..1b28e28 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 0.15 -Release: 3%{?dist} +Release: 4%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -11,10 +11,7 @@ BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n) Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version)) BuildArch: noarch -# Should be 1.19, but Fedora only has 1.18 -# BuildRequires: perl(List::Util) >= 1.19 -BuildRequires: perl(List::Util) >= 1.18 - +BuildRequires: perl(List::Util) >= 1.19 BuildRequires: perl(PPI) >= 1.118 BuildRequires: perl(Test::Script) >= 1.02 BuildRequires: perl(version) @@ -56,6 +53,9 @@ make test AUTOMATED_TESTING=1 %{_mandir}/man3/* %changelog +* Sun Jan 13 2008 Tom "spot" Callaway 0.15-4 +- correct List::Util version, perl 5.10.0 has 1.19 + * Fri Jan 11 2008 Tom "spot" Callaway 0.15-3 - rebuild for new perl From e3b0fbf0272eb89f3c890853913333618f7706ff Mon Sep 17 00:00:00 2001 From: Tom Callaway Date: Wed, 27 Feb 2008 21:45:42 +0000 Subject: [PATCH 06/56] perl 5.10.0 rebuild, second minor chain --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 1b28e28..442680a 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 0.15 -Release: 4%{?dist} +Release: 5%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -53,6 +53,9 @@ make test AUTOMATED_TESTING=1 %{_mandir}/man3/* %changelog +* Wed Feb 27 2008 Tom "spot" Callaway - 0.15-5 +- Rebuild for perl 5.10 (again) + * Sun Jan 13 2008 Tom "spot" Callaway 0.15-4 - correct List::Util version, perl 5.10.0 has 1.19 From 1aab32a7eca815a9f10815847bd0d5f46a249215 Mon Sep 17 00:00:00 2001 From: corsepiu Date: Tue, 26 Aug 2008 03:17:29 +0000 Subject: [PATCH 07/56] - Upstream update. --- .cvsignore | 2 +- perl-Perl-MinimumVersion.spec | 7 +++++-- sources | 2 +- 3 files changed, 7 insertions(+), 4 deletions(-) diff --git a/.cvsignore b/.cvsignore index 8e4e719..77fe81f 100644 --- a/.cvsignore +++ b/.cvsignore @@ -1 +1 @@ -Perl-MinimumVersion-0.15.tar.gz +Perl-MinimumVersion-1.18.tar.gz diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 442680a..5585c66 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion -Version: 0.15 -Release: 5%{?dist} +Version: 1.18 +Release: 1%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -53,6 +53,9 @@ make test AUTOMATED_TESTING=1 %{_mandir}/man3/* %changelog +* Mon Aug 25 2008 Ralf Corsépius - 1.18-1 +- Upstream update. + * Wed Feb 27 2008 Tom "spot" Callaway - 0.15-5 - Rebuild for perl 5.10 (again) diff --git a/sources b/sources index b63d036..8165250 100644 --- a/sources +++ b/sources @@ -1 +1 @@ -43b93a55986f8d3f364fd29065c3dd82 Perl-MinimumVersion-0.15.tar.gz +e159a53f2657ca1bf3a8aa841e6fd09c Perl-MinimumVersion-1.18.tar.gz From b30b9866bd97c5aff884c9e8c9b62410ab281f30 Mon Sep 17 00:00:00 2001 From: corsepiu Date: Tue, 16 Sep 2008 01:46:11 +0000 Subject: [PATCH 08/56] - Upstream update. --- .cvsignore | 2 +- perl-Perl-MinimumVersion.spec | 15 +++++++++++++-- sources | 2 +- 3 files changed, 15 insertions(+), 4 deletions(-) diff --git a/.cvsignore b/.cvsignore index 77fe81f..e2e5ae5 100644 --- a/.cvsignore +++ b/.cvsignore @@ -1 +1 @@ -Perl-MinimumVersion-1.18.tar.gz +Perl-MinimumVersion-1.19.tar.gz diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 5585c66..34c4d9f 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,5 +1,5 @@ Name: perl-Perl-MinimumVersion -Version: 1.18 +Version: 1.19 Release: 1%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic @@ -15,11 +15,19 @@ BuildRequires: perl(List::Util) >= 1.19 BuildRequires: perl(PPI) >= 1.118 BuildRequires: perl(Test::Script) >= 1.02 BuildRequires: perl(version) -BuildRequires: perl(File::Find::Rule) +BuildRequires: perl(File::Find::Rule) >= 0.30 +BuildRequires: perl(File::Find::Rule::Perl) >= 1.04 BuildRequires: perl(File::Spec) >= 0.80 BuildRequires: perl(Test::More) >= 0.47 +# For improved tests BuildRequires: perl(Test::Pod) >= 1.00 +BuildRequires: perl(Test::CPAN::Meta) >= 0.12 +# n/a in Fedora +# BuildRequires: perl(Pod::Simple) >= 3.07 +BuildRequires: perl(Pod::Simple) +BuildRequires: perl(Test::MinimumVersion) >= 0.008 + %description Find a minimum required version of perl for Perl code @@ -53,6 +61,9 @@ make test AUTOMATED_TESTING=1 %{_mandir}/man3/* %changelog +* Mon Sep 16 2008 Ralf Corsépius - 1.19-1 +- Upstream update. + * Mon Aug 25 2008 Ralf Corsépius - 1.18-1 - Upstream update. diff --git a/sources b/sources index 8165250..ff9bb9d 100644 --- a/sources +++ b/sources @@ -1 +1 @@ -e159a53f2657ca1bf3a8aa841e6fd09c Perl-MinimumVersion-1.18.tar.gz +dfce4d3fbb12bc6a23fdaf78b1195a3f Perl-MinimumVersion-1.19.tar.gz From 3d21588185c778e16a4394c87249697ee83a9a97 Mon Sep 17 00:00:00 2001 From: corsepiu Date: Tue, 16 Sep 2008 01:48:27 +0000 Subject: [PATCH 09/56] Fix date. --- perl-Perl-MinimumVersion.spec | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 34c4d9f..63ba793 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -61,7 +61,7 @@ make test AUTOMATED_TESTING=1 %{_mandir}/man3/* %changelog -* Mon Sep 16 2008 Ralf Corsépius - 1.19-1 +* Tue Sep 16 2008 Ralf Corsépius - 1.19-1 - Upstream update. * Mon Aug 25 2008 Ralf Corsépius - 1.18-1 From ae48a40251a22f4b8bc84707cafa27a9efecaa11 Mon Sep 17 00:00:00 2001 From: Jesse Keating Date: Fri, 27 Feb 2009 00:26:31 +0000 Subject: [PATCH 10/56] - Rebuilt for https://fedoraproject.org/wiki/Fedora_11_Mass_Rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 63ba793..67c0b56 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.19 -Release: 1%{?dist} +Release: 2%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -61,6 +61,9 @@ make test AUTOMATED_TESTING=1 %{_mandir}/man3/* %changelog +* Thu Feb 26 2009 Fedora Release Engineering - 1.19-2 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_11_Mass_Rebuild + * Tue Sep 16 2008 Ralf Corsépius - 1.19-1 - Upstream update. From 923fc6a52de2e1385a9160f59ebf04a2c52df464 Mon Sep 17 00:00:00 2001 From: corsepiu Date: Sun, 26 Apr 2009 06:08:29 +0000 Subject: [PATCH 11/56] - Upstream update. --- .cvsignore | 2 +- perl-Perl-MinimumVersion.spec | 7 +++++-- sources | 2 +- 3 files changed, 7 insertions(+), 4 deletions(-) diff --git a/.cvsignore b/.cvsignore index e2e5ae5..2949cd6 100644 --- a/.cvsignore +++ b/.cvsignore @@ -1 +1 @@ -Perl-MinimumVersion-1.19.tar.gz +Perl-MinimumVersion-1.20.tar.gz diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 67c0b56..2d987ee 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion -Version: 1.19 -Release: 2%{?dist} +Version: 1.20 +Release: 1%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -61,6 +61,9 @@ make test AUTOMATED_TESTING=1 %{_mandir}/man3/* %changelog +* Sun Apr 26 2009 Ralf Corsépius - 1.20-1 +- Upstream update. + * Thu Feb 26 2009 Fedora Release Engineering - 1.19-2 - Rebuilt for https://fedoraproject.org/wiki/Fedora_11_Mass_Rebuild diff --git a/sources b/sources index ff9bb9d..c409c8f 100644 --- a/sources +++ b/sources @@ -1 +1 @@ -dfce4d3fbb12bc6a23fdaf78b1195a3f Perl-MinimumVersion-1.19.tar.gz +6c69ce485db4ca399f29638c34f84da6 Perl-MinimumVersion-1.20.tar.gz From acb6f9b03ed3fa4837efdd3987bce2b3742cf17d Mon Sep 17 00:00:00 2001 From: Jesse Keating Date: Sun, 26 Jul 2009 16:11:22 +0000 Subject: [PATCH 12/56] - Rebuilt for https://fedoraproject.org/wiki/Fedora_12_Mass_Rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 2d987ee..b2bc0e3 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.20 -Release: 1%{?dist} +Release: 2%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -61,6 +61,9 @@ make test AUTOMATED_TESTING=1 %{_mandir}/man3/* %changelog +* Sun Jul 26 2009 Fedora Release Engineering - 1.20-2 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_12_Mass_Rebuild + * Sun Apr 26 2009 Ralf Corsépius - 1.20-1 - Upstream update. From 7a55a0f6d79a93c6a19888b7cbf295913557a3f0 Mon Sep 17 00:00:00 2001 From: Bill Nottingham Date: Wed, 25 Nov 2009 23:31:14 +0000 Subject: [PATCH 13/56] Fix typo that causes a failure to update the common directory. (releng #2781) --- Makefile | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Makefile b/Makefile index 504d0cc..fb3e4be 100644 --- a/Makefile +++ b/Makefile @@ -1,10 +1,10 @@ # Makefile for source rpm: perl-Perl-MinimumVersion -# $Id$ +# $Id: Makefile,v 1.1 2007/11/21 18:30:08 tibbs Exp $ NAME := perl-Perl-MinimumVersion SPECFILE = $(firstword $(wildcard *.spec)) define find-makefile-common -for d in common ../common ../../common ; do if [ -f $$d/Makefile.common ] ; then if [ -f $$d/CVS/Root -a -w $$/Makefile.common ] ; then cd $$d ; cvs -Q update ; fi ; echo "$$d/Makefile.common" ; break ; fi ; done +for d in common ../common ../../common ; do if [ -f $$d/Makefile.common ] ; then if [ -f $$d/CVS/Root -a -w $$d/Makefile.common ] ; then cd $$d ; cvs -Q update ; fi ; echo "$$d/Makefile.common" ; break ; fi ; done endef MAKEFILE_COMMON := $(shell $(find-makefile-common)) From db17182ead3f04747c0d69b4d5c1bf74a50453eb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C5=A0t=C4=9Bp=C3=A1n=20Kasal?= Date: Mon, 7 Dec 2009 13:04:44 +0000 Subject: [PATCH 14/56] - rebuild against perl 5.10.1 --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index b2bc0e3..f329ed1 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.20 -Release: 2%{?dist} +Release: 3%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -61,6 +61,9 @@ make test AUTOMATED_TESTING=1 %{_mandir}/man3/* %changelog +* Mon Dec 7 2009 Stepan Kasal - 1.20-3 +- rebuild against perl 5.10.1 + * Sun Jul 26 2009 Fedora Release Engineering - 1.20-2 - Rebuilt for https://fedoraproject.org/wiki/Fedora_12_Mass_Rebuild From caf07ef56f5abf59955e44e2e728afb73b07757b Mon Sep 17 00:00:00 2001 From: corsepiu Date: Mon, 1 Mar 2010 13:17:26 +0000 Subject: [PATCH 15/56] - Upstream update. - Adjust BR's. --- .cvsignore | 2 +- perl-Perl-MinimumVersion.spec | 25 ++++++++++++++----------- sources | 2 +- 3 files changed, 16 insertions(+), 13 deletions(-) diff --git a/.cvsignore b/.cvsignore index 2949cd6..6dae4bb 100644 --- a/.cvsignore +++ b/.cvsignore @@ -1 +1 @@ -Perl-MinimumVersion-1.20.tar.gz +Perl-MinimumVersion-1.24.tar.gz diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index f329ed1..3ddb72e 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion -Version: 1.20 -Release: 3%{?dist} +Version: 1.24 +Release: 1%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -11,24 +11,23 @@ BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n) Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version)) BuildArch: noarch -BuildRequires: perl(List::Util) >= 1.19 -BuildRequires: perl(PPI) >= 1.118 +BuildRequires: perl(List::Util) >= 1.18 +BuildRequires: perl(PPI) >= 1.205 BuildRequires: perl(Test::Script) >= 1.02 -BuildRequires: perl(version) -BuildRequires: perl(File::Find::Rule) >= 0.30 +BuildRequires: perl(version) >= 0.76 +BuildRequires: perl(File::Find::Rule) >= 0.32 BuildRequires: perl(File::Find::Rule::Perl) >= 1.04 BuildRequires: perl(File::Spec) >= 0.80 BuildRequires: perl(Test::More) >= 0.47 +BuildRequires: perl(Perl::Critic::Utils) >= 1.104 +BuildRequires: perl(Params::Util) >= 0.25 # For improved tests -BuildRequires: perl(Test::Pod) >= 1.00 +BuildRequires: perl(Test::Pod) >= 1.26 BuildRequires: perl(Test::CPAN::Meta) >= 0.12 -# n/a in Fedora -# BuildRequires: perl(Pod::Simple) >= 3.07 -BuildRequires: perl(Pod::Simple) +BuildRequires: perl(Pod::Simple) >= 3.07 BuildRequires: perl(Test::MinimumVersion) >= 0.008 - %description Find a minimum required version of perl for Perl code @@ -61,6 +60,10 @@ make test AUTOMATED_TESTING=1 %{_mandir}/man3/* %changelog +* Mon Mar 01 2010 Ralf Corsépius - 1.24-1 +- Upstream update. +- Adjust BR's. + * Mon Dec 7 2009 Stepan Kasal - 1.20-3 - rebuild against perl 5.10.1 diff --git a/sources b/sources index c409c8f..6d6b7a5 100644 --- a/sources +++ b/sources @@ -1 +1 @@ -6c69ce485db4ca399f29638c34f84da6 Perl-MinimumVersion-1.20.tar.gz +307a1ebae711026396ba307d2ef7e4ab Perl-MinimumVersion-1.24.tar.gz From 6d20ec2186471436161ce46416e5b1fc8ddad4c4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Marcela=20Ma=C5=A1l=C3=A1=C5=88ov=C3=A1?= Date: Mon, 3 May 2010 07:45:49 +0000 Subject: [PATCH 16/56] - for the meantime apply changes from trunk. Other builds using this package should succed with perl-5.12. --- Perl-MinimumVersion-25.patch | 2107 +++++++++++++++++++++++++++++++++ perl-Perl-MinimumVersion.spec | 8 +- 2 files changed, 2114 insertions(+), 1 deletion(-) create mode 100644 Perl-MinimumVersion-25.patch diff --git a/Perl-MinimumVersion-25.patch b/Perl-MinimumVersion-25.patch new file mode 100644 index 0000000..f4d44bf --- /dev/null +++ b/Perl-MinimumVersion-25.patch @@ -0,0 +1,2107 @@ +diff -urN Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion/Reason.pm Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion/Reason.pm +--- Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion/Reason.pm 2010-01-21 22:26:15.000000000 +0100 ++++ Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion/Reason.pm 2010-05-03 09:23:31.000000000 +0200 +@@ -1,36 +1,36 @@ +-package Perl::MinimumVersion::Reason; +- +-# Simple abstraction for a syntax limitation. +-# It contains the limiting version, the rule responsible, and the +-# PPI element responsible for the limitation (if any). +- +-use 5.006; +-use strict; +-use warnings; +- +-use vars qw{$VERSION}; +-BEGIN { +- $VERSION = '1.24'; +- +- # Only needed for dev releases, comment out otherwise +- $VERSION = eval $VERSION; +-} +- +-sub new { +- my $class = shift; +- return bless { @_ }, $class; +-} +- +-sub version { +- $_[0]->{version}; +-} +- +-sub rule { +- $_[0]->{rule}; +-} +- +-sub element { +- $_[0]->{element}; +-} +- +-1; ++package Perl::MinimumVersion::Reason; ++ ++# Simple abstraction for a syntax limitation. ++# It contains the limiting version, the rule responsible, and the ++# PPI element responsible for the limitation (if any). ++ ++use 5.006; ++use strict; ++use warnings; ++ ++use vars qw{$VERSION}; ++BEGIN { ++ $VERSION = '1.25'; ++ ++ # Only needed for dev releases, comment out otherwise ++ $VERSION = eval $VERSION; ++} ++ ++sub new { ++ my $class = shift; ++ return bless { @_ }, $class; ++} ++ ++sub version { ++ $_[0]->{version}; ++} ++ ++sub rule { ++ $_[0]->{rule}; ++} ++ ++sub element { ++ $_[0]->{element}; ++} ++ ++1; +diff -urN Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion/.svn/all-wcprops Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion/.svn/all-wcprops +--- Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion/.svn/all-wcprops 1970-01-01 01:00:00.000000000 +0100 ++++ Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion/.svn/all-wcprops 2010-05-03 09:23:31.000000000 +0200 +@@ -0,0 +1,11 @@ ++K 25 ++svn:wc:ra_dav:version-url ++V 70 ++/cpan/!svn/ver/11888/trunk/Perl-MinimumVersion/lib/Perl/MinimumVersion ++END ++Reason.pm ++K 25 ++svn:wc:ra_dav:version-url ++V 80 ++/cpan/!svn/ver/11888/trunk/Perl-MinimumVersion/lib/Perl/MinimumVersion/Reason.pm ++END +diff -urN Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion/.svn/entries Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion/.svn/entries +--- Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion/.svn/entries 1970-01-01 01:00:00.000000000 +0100 ++++ Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion/.svn/entries 2010-05-03 09:23:31.000000000 +0200 +@@ -0,0 +1,62 @@ ++10 ++ ++dir ++12099 ++http://svn.ali.as/cpan/trunk/Perl-MinimumVersion/lib/Perl/MinimumVersion ++http://svn.ali.as/cpan ++ ++ ++ ++2010-04-11T14:30:55.494658Z ++11888 ++chorny@cpan.org ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++88f4d9cd-8a04-0410-9d60-8f63309c3137 ++ ++Reason.pm ++file ++ ++ ++ ++ ++2010-05-03T07:23:31.091810Z ++3ece6d1a31707473047d796b366510bc ++2010-04-11T14:30:55.494658Z ++11888 ++chorny@cpan.org ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++586 ++ +diff -urN Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion/.svn/text-base/Reason.pm.svn-base Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion/.svn/text-base/Reason.pm.svn-base +--- Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion/.svn/text-base/Reason.pm.svn-base 1970-01-01 01:00:00.000000000 +0100 ++++ Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion/.svn/text-base/Reason.pm.svn-base 2010-05-03 09:23:31.000000000 +0200 +@@ -0,0 +1,36 @@ ++package Perl::MinimumVersion::Reason; ++ ++# Simple abstraction for a syntax limitation. ++# It contains the limiting version, the rule responsible, and the ++# PPI element responsible for the limitation (if any). ++ ++use 5.006; ++use strict; ++use warnings; ++ ++use vars qw{$VERSION}; ++BEGIN { ++ $VERSION = '1.25'; ++ ++ # Only needed for dev releases, comment out otherwise ++ $VERSION = eval $VERSION; ++} ++ ++sub new { ++ my $class = shift; ++ return bless { @_ }, $class; ++} ++ ++sub version { ++ $_[0]->{version}; ++} ++ ++sub rule { ++ $_[0]->{rule}; ++} ++ ++sub element { ++ $_[0]->{element}; ++} ++ ++1; +diff -urN Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion.pm Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion.pm +--- Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion.pm 2010-01-21 22:26:15.000000000 +0100 ++++ Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion.pm 2010-05-03 09:23:31.000000000 +0200 +@@ -12,7 +12,7 @@ + $object = Perl::MinimumVersion->new( $filename ); + $object = Perl::MinimumVersion->new( \$source ); + $object = Perl::MinimumVersion->new( $ppi_document ); +- ++ + # Find the minimum version + $version = $object->minimum_version; + +@@ -54,7 +54,7 @@ + + use vars qw{$VERSION @ISA @EXPORT_OK %CHECKS %MATCHES}; + BEGIN { +- $VERSION = '1.24'; ++ $VERSION = '1.25'; + + # Only needed for dev releases, comment out otherwise + $VERSION = eval $VERSION; +@@ -65,6 +65,10 @@ + + # The primary list of version checks + %CHECKS = ( ++ _feature_bundle_5_12 => version->new('5.012'), ++ _yada_yada_yada => version->new('5.012'), ++ _pkg_name_version => version->new('5.012'), ++ + _perl_5010_pragmas => version->new('5.010'), + _perl_5010_operators => version->new('5.010'), + _perl_5010_magic => version->new('5.010'), +@@ -375,7 +379,7 @@ + $limit = version->new("$limit"); + } + if ( defined $self->{syntax} ) { +- if ( $self->{syntax} >= $limit ) { ++ if ( $self->{syntax}->version >= $limit ) { + # Previously discovered minimum is what they want + return $self->{syntax}; + } +@@ -505,10 +509,41 @@ + + + +- + ##################################################################### + # Version Check Methods + ++sub _yada_yada_yada { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Token::Operator') ++ and $_[1]->content eq '...' ++ } ); ++} ++ ++sub _feature_bundle_5_12 { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement::Include') or return ''; ++ $_[1]->pragma eq 'feature' or return ''; ++ my @child = $_[1]->schildren; ++ my @args = @child[1..$#child]; # skip 'use', 'feature' and ';' ++ foreach my $arg (@args) { ++ return $arg->content if $arg->content =~ /:5\.12/; ++ } ++ return ''; ++ } ); ++} ++ ++sub _pkg_name_version { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement::Package') or return ''; ++ my @child = $_[1]->schildren(); ++ $child[0]->isa('PPI::Token::Word') or return ''; ++ $child[0]->content eq 'package' or return ''; ++ $child[1]->isa('PPI::Token::Word') or return ''; ++ $child[2]->isa('PPI::Token::Number') or return ''; ++ return 1; ++ } ); ++} ++ + sub _perl_5010_pragmas { + shift->Document->find_first( sub { + $_[1]->isa('PPI::Statement::Include') +@@ -970,6 +1005,9 @@ + + B + ++B, C<...>, and C)> ++ + =head1 SUPPORT + + All bugs should be filed via the CPAN bug tracker at +diff -urN Perl-MinimumVersion-1.24/lib.old/Perl/.svn/all-wcprops Perl-MinimumVersion-1.24/lib/Perl/.svn/all-wcprops +--- Perl-MinimumVersion-1.24/lib.old/Perl/.svn/all-wcprops 1970-01-01 01:00:00.000000000 +0100 ++++ Perl-MinimumVersion-1.24/lib/Perl/.svn/all-wcprops 2010-05-03 09:23:31.000000000 +0200 +@@ -0,0 +1,11 @@ ++K 25 ++svn:wc:ra_dav:version-url ++V 55 ++/cpan/!svn/ver/11956/trunk/Perl-MinimumVersion/lib/Perl ++END ++MinimumVersion.pm ++K 25 ++svn:wc:ra_dav:version-url ++V 73 ++/cpan/!svn/ver/11956/trunk/Perl-MinimumVersion/lib/Perl/MinimumVersion.pm ++END +diff -urN Perl-MinimumVersion-1.24/lib.old/Perl/.svn/entries Perl-MinimumVersion-1.24/lib/Perl/.svn/entries +--- Perl-MinimumVersion-1.24/lib.old/Perl/.svn/entries 1970-01-01 01:00:00.000000000 +0100 ++++ Perl-MinimumVersion-1.24/lib/Perl/.svn/entries 2010-05-03 09:23:31.000000000 +0200 +@@ -0,0 +1,65 @@ ++10 ++ ++dir ++12099 ++http://svn.ali.as/cpan/trunk/Perl-MinimumVersion/lib/Perl ++http://svn.ali.as/cpan ++ ++ ++ ++2010-04-16T12:06:52.798869Z ++11956 ++smueller@cpan.org ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++88f4d9cd-8a04-0410-9d60-8f63309c3137 ++ ++MinimumVersion ++dir ++ ++MinimumVersion.pm ++file ++ ++ ++ ++ ++2010-05-03T07:23:31.130560Z ++23be7b5a3fa8397ca2fa1aa5c316eebf ++2010-04-16T12:06:52.798869Z ++11956 ++smueller@cpan.org ++has-props ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++ ++26235 ++ +diff -urN Perl-MinimumVersion-1.24/lib.old/Perl/.svn/prop-base/MinimumVersion.pm.svn-base Perl-MinimumVersion-1.24/lib/Perl/.svn/prop-base/MinimumVersion.pm.svn-base +--- Perl-MinimumVersion-1.24/lib.old/Perl/.svn/prop-base/MinimumVersion.pm.svn-base 1970-01-01 01:00:00.000000000 +0100 ++++ Perl-MinimumVersion-1.24/lib/Perl/.svn/prop-base/MinimumVersion.pm.svn-base 2010-05-03 09:23:31.000000000 +0200 +@@ -0,0 +1,5 @@ ++K 13 ++svn:eol-style ++V 6 ++native ++END +diff -urN Perl-MinimumVersion-1.24/lib.old/Perl/.svn/text-base/MinimumVersion.pm.svn-base Perl-MinimumVersion-1.24/lib/Perl/.svn/text-base/MinimumVersion.pm.svn-base +--- Perl-MinimumVersion-1.24/lib.old/Perl/.svn/text-base/MinimumVersion.pm.svn-base 1970-01-01 01:00:00.000000000 +0100 ++++ Perl-MinimumVersion-1.24/lib/Perl/.svn/text-base/MinimumVersion.pm.svn-base 2010-05-03 09:23:31.000000000 +0200 +@@ -0,0 +1,1037 @@ ++package Perl::MinimumVersion; ++ ++=pod ++ ++=head1 NAME ++ ++Perl::MinimumVersion - Find a minimum required version of perl for Perl code ++ ++=head1 SYNOPSIS ++ ++ # Create the version checking object ++ $object = Perl::MinimumVersion->new( $filename ); ++ $object = Perl::MinimumVersion->new( \$source ); ++ $object = Perl::MinimumVersion->new( $ppi_document ); ++ ++ # Find the minimum version ++ $version = $object->minimum_version; ++ ++=head1 DESCRIPTION ++ ++C takes Perl source code and calculates the minimum ++version of perl required to be able to run it. Because it is based on ++L, it can do this without having to actually load the code. ++ ++Currently it tests both the syntax of your code, and the use of explicit ++version dependencies such as C. ++ ++Future plans are to also add support for tracing module dependencies. ++ ++Using C is dead simple, the synopsis pretty much ++covers it. ++ ++=head1 METHODS ++ ++=cut ++ ++use 5.006; ++use strict; ++use version (); ++use Carp (); ++use Exporter (); ++use List::Util (); ++use Params::Util ('_INSTANCE', '_CLASS'); ++use PPI::Util ('_Document'); ++use PPI (); ++use Perl::Critic::Utils 1.104 qw{ ++ :classification ++ :ppi ++}; ++ ++use Perl::MinimumVersion::Reason (); ++ ++use constant REASON => 'Perl::MinimumVersion::Reason'; ++ ++use vars qw{$VERSION @ISA @EXPORT_OK %CHECKS %MATCHES}; ++BEGIN { ++ $VERSION = '1.25'; ++ ++ # Only needed for dev releases, comment out otherwise ++ $VERSION = eval $VERSION; ++ ++ # Export the PMV convenience constant ++ @ISA = 'Exporter'; ++ @EXPORT_OK = 'PMV'; ++ ++ # The primary list of version checks ++ %CHECKS = ( ++ _feature_bundle_5_12 => version->new('5.012'), ++ _yada_yada_yada => version->new('5.012'), ++ _pkg_name_version => version->new('5.012'), ++ ++ _perl_5010_pragmas => version->new('5.010'), ++ _perl_5010_operators => version->new('5.010'), ++ _perl_5010_magic => version->new('5.010'), ++ ++ # Various small things ++ _bugfix_magic_errno => version->new('5.008.003'), ++ _unquoted_versions => version->new('5.008.001'), ++ _perl_5008_pragmas => version->new('5.008'), ++ _constant_hash => version->new('5.008'), ++ _use_base_exporter => version->new('5.008'), ++ _local_soft_reference => version->new('5.008'), ++ _use_carp_version => version->new('5.008'), ++ ++ # Included in 5.6. Broken until 5.8 ++ _pragma_utf8 => version->new('5.008'), ++ ++ _perl_5006_pragmas => version->new('5.006'), ++ _any_our_variables => version->new('5.006'), ++ _any_binary_literals => version->new('5.006'), ++ _any_version_literals => version->new('5.006'), #v-string ++ _magic_version => version->new('5.006'), ++ _any_attributes => version->new('5.006'), ++ _any_CHECK_blocks => version->new('5.006'), ++ _three_argument_open => version->new('5.006'), ++ _weaken => version->new('5.006'), ++ _mkdir_1_arg => version->new('5.006'), ++ ++ _any_qr_tokens => version->new('5.005.03'), ++ _perl_5005_pragmas => version->new('5.005'), ++ _perl_5005_modules => version->new('5.005'), ++ _any_tied_arrays => version->new('5.005'), ++ _any_quotelike_regexp => version->new('5.005'), ++ _any_INIT_blocks => version->new('5.005'), ++ _substr_4_arg => version->new('5.005'), ++ _splice_negative_length => version->new('5.005'), ++ ++ _postfix_foreach => version->new('5.004.05'), ++ ); ++ ++ # Predefine some indexes needed by various check methods ++ %MATCHES = ( ++ _perl_5010_pragmas => { ++ mro => 1, ++ feature => 1, ++ }, ++ _perl_5010_operators => { ++ '//' => 1, ++ '//=' => 1, ++ '~~' => 1, ++ }, ++ _perl_5010_magic => { ++ '%+' => 1, ++ '%-' => 1, ++ }, ++ _perl_5008_pragmas => { ++ threads => 1, ++ 'threads::shared' => 1, ++ sort => 1, ++ }, ++ _perl_5006_pragmas => { ++ warnings => 1, #may be ported into older version ++ 'warnings::register' => 1, ++ attributes => 1, ++ open => 1, ++ filetest => 1, ++ charnames => 1, ++ bytes => 1, ++ }, ++ _perl_5005_pragmas => { ++ re => 1, ++ fields => 1, # can be installed from CPAN, with base.pm ++ attr => 1, ++ }, ++ ); ++} ++ ++sub PMV () { 'Perl::MinimumVersion' } ++ ++ ++ ++ ++ ++##################################################################### ++# Constructor ++ ++=pod ++ ++=head2 new ++ ++ # Create the version checking object ++ $object = Perl::MinimumVersion->new( $filename ); ++ $object = Perl::MinimumVersion->new( \$source ); ++ $object = Perl::MinimumVersion->new( $ppi_document ); ++ ++The C constructor creates a new version checking object for a ++L. You can also provide the document to be read as a ++file name, or as a C reference containing the code. ++ ++Returns a new C object, or C on error. ++ ++=cut ++ ++sub new { ++ my $class = ref $_[0] ? ref shift : shift; ++ my $Document = _Document(shift) or return undef; ++ my $default = _INSTANCE(shift, 'version') || version->new('5.004'); ++ ++ # Create the object ++ my $self = bless { ++ Document => $Document, ++ ++ # Checking limit and default minimum version. ++ # Explicitly don't check below this version. ++ default => $default, ++ ++ # Caches for resolved versions ++ explicit => undef, ++ syntax => undef, ++ external => undef, ++ }, $class; ++ ++ $self; ++} ++ ++=pod ++ ++=head2 Document ++ ++The C accessor can be used to get the L object ++back out of the version checker. ++ ++=cut ++ ++sub Document { ++ $_[0]->{Document} ++} ++ ++ ++ ++ ++ ++##################################################################### ++# Main Methods ++ ++=pod ++ ++=head2 minimum_version ++ ++The C method is the primary method for finding the ++minimum perl version required based on C factors in the document. ++ ++At the present time, this is just syntax and explicit version checks, ++as L is not yet completed. ++ ++Returns a L object, or C on error. ++ ++=cut ++ ++sub minimum_version { ++ my $self = _SELF(\@_) or return undef; ++ my $minimum = $self->{default}; # Sensible default ++ ++ # Is the explicit version greater? ++ my $explicit = $self->minimum_explicit_version; ++ return undef unless defined $explicit; ++ if ( $explicit and $explicit > $minimum ) { ++ $minimum = $explicit; ++ } ++ ++ # Is the syntax version greater? ++ # Since this is the most expensive operation (for this file), ++ # we need to be careful we don't run things we don't need to. ++ my $syntax = $self->minimum_syntax_version; ++ return undef unless defined $syntax; ++ if ( $syntax and $syntax > $minimum ) { ++ $minimum = $syntax; ++ } ++ ++ ### FIXME - Disabled until minimum_external_version completed ++ # Is the external version greater? ++ #my $external = $self->minimum_external_version; ++ #return undef unless defined $external; ++ #if ( $external and $external > $minimum ) { ++ # $minimum = $external; ++ #} ++ ++ $minimum; ++} ++ ++sub minimum_reason { ++ my $self = _SELF(\@_) or return undef; ++ my $minimum = $self->default_reason; # Sensible default ++ ++ # Is the explicit version greater? ++ my $explicit = $self->minimum_explicit_version; ++ return undef unless defined $explicit; ++ if ( $explicit and $explicit > $minimum ) { ++ $minimum = $explicit; ++ } ++ ++} ++ ++sub default_reason { ++ Perl::MinimumVersion->new( ++ rule => 'default', ++ version => $_[0]->{default}, ++ element => undef, ++ ); ++} ++ ++=pod ++ ++=head2 minimum_explicit_version ++ ++The C method checks through Perl code for the ++use of explicit version dependencies such as. ++ ++ use 5.006; ++ require 5.005_03; ++ ++Although there is almost always only one of these in a file, if more than ++one are found, the highest version dependency will be returned. ++ ++Returns a L object, false if no dependencies could be found, ++or C on error. ++ ++=cut ++ ++sub minimum_explicit_version { ++ my $self = _SELF(\@_) or return undef; ++ my $reason = $self->minimum_explicit_reason(@_); ++ return $reason ? $reason->version : $reason; ++} ++ ++sub minimum_explicit_reason { ++ my $self = _SELF(\@_) or return undef; ++ unless ( defined $self->{explicit} ) { ++ $self->{explicit} = $self->_minimum_explicit_version; ++ } ++ return $self->{explicit}; ++} ++ ++sub _minimum_explicit_version { ++ my $self = shift or return undef; ++ my $explicit = $self->Document->find( sub { ++ $_[1]->isa('PPI::Statement::Include') or return ''; ++ $_[1]->version or return ''; ++ 1; ++ } ); ++ return $explicit unless $explicit; ++ ++ # Find the highest version ++ my $max = undef; ++ my $element = undef; ++ foreach my $include ( @$explicit ) { ++ my $version = version->new($include->version); ++ if ( $version > $max or not $element ) { ++ $max = $version; ++ $element = $include; ++ } ++ } ++ ++ return Perl::MinimumVersion::Reason->new( ++ rule => 'explicit', ++ version => $max, ++ element => $element, ++ ); ++} ++ ++=pod ++ ++=head2 minimum_syntax_version $limit ++ ++The C method will explicitly test only the ++Document's syntax to determine it's minimum version, to the extent ++that this is possible. ++ ++It takes an optional parameter of a L object defining the ++the lowest known current value. For example, if it is already known ++that it must be 5.006 or higher, then you can provide a param of ++qv(5.006) and the method will not run any of the tests below this ++version. This should provide dramatic speed improvements for ++large and/or complex documents. ++ ++The limitations of parsing Perl mean that this method may provide ++artifically low results, but should not artificially high results. ++ ++For example, if C returned 5.006, you can be ++confident it will not run on anything lower, although there is a chance ++that during actual execution it may use some untestable feature that ++creates a dependency on a higher version. ++ ++Returns a L object, false if no dependencies could be found, ++or C on error. ++ ++=cut ++ ++sub minimum_syntax_version { ++ my $self = _SELF(\@_) or return undef; ++ my $reason = $self->minimum_syntax_reason(@_); ++ return $reason ? $reason->version : $reason; ++} ++ ++sub minimum_syntax_reason { ++ my $self = _SELF(\@_) or return undef; ++ my $limit = shift; ++ if ( defined $limit and not _INSTANCE($limit, 'version') ) { ++ $limit = version->new("$limit"); ++ } ++ if ( defined $self->{syntax} ) { ++ if ( $self->{syntax}->version >= $limit ) { ++ # Previously discovered minimum is what they want ++ return $self->{syntax}; ++ } ++ ++ # Rather than return a value BELOW their filter, ++ # which they would not be expecting, return false. ++ return ''; ++ } ++ ++ # Look for the value ++ my $syntax = $self->_minimum_syntax_version( $limit ); ++ ++ # If we found a value, it will be stable, cache it. ++ # If we did NOT, don't cache as subsequent runs without ++ # the filter may find a version. ++ if ( $syntax ) { ++ $self->{syntax} = $syntax; ++ return $self->{syntax}; ++ } ++ ++ return ''; ++} ++ ++sub _minimum_syntax_version { ++ my $self = shift; ++ my $filter = shift || $self->{default}; ++ ++ # Always check in descending version order. ++ # By doing it this way, the version of the first check that matches ++ # is also the version of the document as a whole. ++ my @rules = sort { ++ $CHECKS{$b} <=> $CHECKS{$a} ++ } grep { ++ $CHECKS{$_} > $filter ++ } keys %CHECKS; ++ ++ foreach my $rule ( @rules ) { ++ my $result = $self->$rule() or next; ++ ++ # Create the result object ++ return Perl::MinimumVersion::Reason->new( ++ rule => $rule, ++ version => $CHECKS{$rule}, ++ element => _INSTANCE($result, 'PPI::Element'), ++ ); ++ } ++ ++ # Found nothing of interest ++ return ''; ++} ++ ++=pod ++ ++=head2 minimum_external_version ++ ++B ++ ++The C examines code for dependencies on other ++external files, and recursively traverses the dependency tree applying the ++same tests to those files as it does to the original. ++ ++Returns a C object, false if no dependencies could be found, or ++C on error. ++ ++=cut ++ ++sub minimum_external_version { ++ my $self = _SELF(\@_) or return undef; ++ my $reason = $self->minimum_explicit_reason(@_); ++ return $reason ? $reason->version : $reason; ++} ++ ++sub minimum_external_reason { ++ my $self = _SELF(\@_) or return undef; ++ unless ( defined $self->{external} ) { ++ $self->{external} = $self->_minimum_external_version; ++ } ++ $self->{external}; ++} ++ ++sub _minimum_external_version { ++ Carp::croak("Perl::MinimumVersion::minimum_external_version is not implemented"); ++} ++ ++=pod ++ ++=head2 version_markers ++ ++This method returns a list of pairs in the form: ++ ++ ($version, \@markers) ++ ++Each pair represents all the markers that could be found indicating that the ++version was the minimum needed version. C<@markers> is an array of strings. ++Currently, these strings are not as clear as they might be, but this may be ++changed in the future. In other words: don't rely on them as specific ++identifiers. ++ ++=cut ++ ++sub version_markers { ++ my $self = _SELF(\@_) or return undef; ++ ++ my %markers; ++ ++ if ( my $explicit = $self->minimum_explicit_version ) { ++ $markers{ $explicit } = [ 'explicit' ]; ++ } ++ ++ foreach my $check ( keys %CHECKS ) { ++ next unless $self->$check(); ++ my $markers = $markers{ $CHECKS{$check} } ||= []; ++ push @$markers, $check; ++ } ++ ++ my @rv; ++ my %marker_ver = map { $_ => version->new($_) } keys %markers; ++ ++ foreach my $ver ( sort { $marker_ver{$b} <=> $marker_ver{$a} } keys %markers ) { ++ push @rv, $marker_ver{$ver} => $markers{$ver}; ++ } ++ ++ return @rv; ++} ++ ++ ++ ++ ++##################################################################### ++# Version Check Methods ++ ++sub _yada_yada_yada { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Token::Operator') ++ and $_[1]->content eq '...' ++ } ); ++} ++ ++sub _feature_bundle_5_12 { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement::Include') or return ''; ++ $_[1]->pragma eq 'feature' or return ''; ++ my @child = $_[1]->schildren; ++ my @args = @child[1..$#child]; # skip 'use', 'feature' and ';' ++ foreach my $arg (@args) { ++ return $arg->content if $arg->content =~ /:5\.12/; ++ } ++ return ''; ++ } ); ++} ++ ++sub _pkg_name_version { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement::Package') or return ''; ++ my @child = $_[1]->schildren(); ++ $child[0]->isa('PPI::Token::Word') or return ''; ++ $child[0]->content eq 'package' or return ''; ++ $child[1]->isa('PPI::Token::Word') or return ''; ++ $child[2]->isa('PPI::Token::Number') or return ''; ++ return 1; ++ } ); ++} ++ ++sub _perl_5010_pragmas { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement::Include') ++ and ++ $MATCHES{_perl_5010_pragmas}->{$_[1]->pragma} ++ } ); ++} ++ ++sub _perl_5010_operators { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Token::Magic') ++ and ++ $MATCHES{_perl_5010_operators}->{$_[1]->content} ++ } ); ++} ++ ++sub _perl_5010_magic { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Token::Operator') ++ and ++ $MATCHES{_perl_5010_magic}->{$_[1]->content} ++ } ); ++} ++ ++sub _perl_5008_pragmas { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement::Include') ++ and ++ $MATCHES{_perl_5008_pragmas}->{$_[1]->pragma} ++ } ); ++} ++ ++# FIXME: Needs to be upgraded to return something ++sub _bugfix_magic_errno { ++ my $Document = shift->Document; ++ $Document->find_any( sub { ++ $_[1]->isa('PPI::Token::Magic') ++ and ++ $_[1]->content eq '$^E' ++ } ) ++ and ++ $Document->find_any( sub { ++ $_[1]->isa('PPI::Token::Magic') ++ and ++ $_[1]->content eq '$!' ++ } ); ++} ++ ++# version->new(5.005.004); ++sub _unquoted_versions { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Token::Number') or return ''; ++ $_[1]->{_subtype} or return ''; ++ $_[1]->{_subtype} eq 'base256' or return ''; ++ my $stmt = $_[1]->parent or return ''; ++ my $braces = $stmt->parent or return ''; ++ $braces->isa('PPI::Structure') or return ''; ++ $braces->braces eq '()' or return ''; ++ my $new = $braces->previous_sibling or return ''; ++ $new->isa('PPI::Token::Word') or return ''; ++ $new->content eq 'new' or return ''; ++ my $method = $new->previous_sibling or return ''; ++ $method->isa('PPI::Token::Operator') or return ''; ++ $method->content eq '->' or return ''; ++ my $_class = $method->previous_sibling or return ''; ++ $_class->isa('PPI::Token::Word') or return ''; ++ $_class->content eq 'version' or return ''; ++ 1; ++ } ); ++} ++ ++sub _pragma_utf8 { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement::Include') ++ and ++ ( ++ ($_[1]->module and $_[1]->module eq 'utf8') ++ or ++ ($_[1]->pragma and $_[1]->pragma eq 'utf8') ++ ) ++ # This used to be just pragma(), but that was buggy in PPI v1.118 ++ } ); ++} ++ ++# Check for the use of 'use constant { ... }' ++sub _constant_hash { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement::Include') ++ and ++ $_[1]->type ++ and ++ $_[1]->type eq 'use' ++ and ++ $_[1]->module eq 'constant' ++ and ++ $_[1]->schild(2)->isa('PPI::Structure') ++ } ); ++} ++ ++sub _perl_5006_pragmas { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement::Include') ++ and ++ $MATCHES{_perl_5006_pragmas}->{$_[1]->pragma} ++ } ); ++} ++ ++sub _any_our_variables { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement::Variable') ++ and ++ $_[1]->type eq 'our' ++ } ); ++} ++ ++sub _any_binary_literals { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Token::Number') ++ and ++ $_[1]->{_subtype} ++ and ++ $_[1]->{_subtype} eq 'binary' ++ } ); ++} ++ ++sub _any_version_literals { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Token::Number::Version') ++ } ); ++} ++ ++ ++sub _magic_version { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Token::Magic') ++ and ++ $_[1]->content eq '$^V' ++ } ); ++} ++ ++sub _any_attributes { ++ shift->Document->find_first( 'Token::Attribute' ); ++} ++ ++sub _any_CHECK_blocks { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement::Scheduled') ++ and ++ $_[1]->type eq 'CHECK' ++ } ); ++} ++ ++sub _any_qr_tokens { ++ shift->Document->find_first( 'Token::QuoteLike::Regexp' ); ++} ++ ++sub _perl_5005_pragmas { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement::Include') ++ and ++ $MATCHES{_perl_5005_pragmas}->{$_[1]->pragma} ++ } ); ++} ++ ++# A number of modules are highly indicative of using techniques ++# that are themselves version-dependant. ++sub _perl_5005_modules { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement::Include') ++ and ++ $_[1]->module ++ and ( ++ $_[1]->module eq 'Tie::Array' ++ or ++ ($_[1]->module =~ /\bException\b/ and ++ $_[1]->module !~ /^(?:CPAN)::/) ++ or ++ $_[1]->module =~ /\bThread\b/ ++ or ++ $_[1]->module =~ /^Error\b/ ++ or ++ $_[1]->module eq 'base' ++ or ++ $_[1]->module eq 'Errno' ++ ) ++ } ); ++} ++ ++sub _any_tied_arrays { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement::Sub') ++ and ++ $_[1]->name eq 'TIEARRAY' ++ } ) ++} ++ ++sub _any_quotelike_regexp { ++ shift->Document->find_first( 'Token::QuoteLike::Regexp' ); ++} ++ ++sub _any_INIT_blocks { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement::Scheduled') ++ and ++ $_[1]->type eq 'INIT' ++ } ); ++} ++ ++# use base 'Exporter' doesn't work reliably everywhere until 5.008 ++sub _use_base_exporter { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement::Include') ++ and ++ $_[1]->module eq 'base' ++ and ++ # Add the "not colon" characters to avoid accidentally ++ # colliding with any other Exporter-named modules ++ $_[1]->content =~ /[^:]\bExporter\b[^:]/ ++ } ); ++} ++ ++# You can't localize a soft reference ++sub _local_soft_reference { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement::Variable') or return ''; ++ $_[1]->type eq 'local' or return ''; ++ ++ # The second child should be a '$' cast. ++ my @child = $_[1]->schildren; ++ scalar(@child) >= 2 or return ''; ++ $child[1]->isa('PPI::Token::Cast') or return ''; ++ $child[1]->content eq '$' or return ''; ++ ++ # The third child should be a block ++ $child[2]->isa('PPI::Structure::Block') or return ''; ++ ++ # Inside the block should be a string in a statement ++ my $statement = $child[2]->schild(0) or return ''; ++ $statement->isa('PPI::Statement') or return ''; ++ my $inside = $statement->schild(0) or return ''; ++ $inside->isa('PPI::Token::Quote') or return ''; ++ ++ # This is indeed a localized soft reference ++ return 1; ++ } ); ++} ++ ++# Carp.pm did not have a $VERSION in 5.6.2 ++# Therefore, even "use Carp 0" imposes a 5.8.0 dependency. ++sub _use_carp_version { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement::Include') or return ''; ++ $_[1]->module eq 'Carp' or return ''; ++ ++ my $version = $_[1]->module_version; ++ return !! ( defined $version and length "$version" ); ++ } ); ++} ++ ++sub _three_argument_open { ++ shift->Document->find_first( sub { ++ $_[1]->isa('PPI::Statement') or return ''; ++ my @children=$_[1]->children; ++ #@children >= 7 or return ''; ++ my $main_element=$children[0]; ++ $main_element->isa('PPI::Token::Word') or return ''; ++ $main_element->content eq 'open' or return ''; ++ my @arguments = parse_arg_list($main_element); ++ if ( scalar @arguments > 2 ) { ++ return 1; ++ } ++ return ''; ++ } ); ++} ++ ++ ++sub _substr_4_arg { ++ shift->Document->find_first( sub { ++ my $main_element=$_[1]; ++ $main_element->isa('PPI::Token::Word') or return ''; ++ $main_element->content eq 'substr' or return ''; ++ return '' if is_hash_key($main_element); ++ return '' if is_method_call($main_element); ++ return '' if is_subroutine_name($main_element); ++ return '' if is_included_module_name($main_element); ++ return '' if is_package_declaration($main_element); ++ my @arguments = parse_arg_list($main_element); ++ if ( scalar @arguments > 3 ) { ++ return 1; ++ } ++ return ''; ++ } ); ++} ++ ++sub _mkdir_1_arg { ++ shift->Document->find_first( sub { ++ my $main_element=$_[1]; ++ $main_element->isa('PPI::Token::Word') or return ''; ++ $main_element->content eq 'mkdir' or return ''; ++ return '' if is_hash_key($main_element); ++ return '' if is_method_call($main_element); ++ return '' if is_subroutine_name($main_element); ++ return '' if is_included_module_name($main_element); ++ return '' if is_package_declaration($main_element); ++ my @arguments = parse_arg_list($main_element); ++ if ( scalar @arguments != 2 ) { ++ return 1; ++ } ++ return ''; ++ } ); ++} ++ ++sub _splice_negative_length { ++ shift->Document->find_first( sub { ++ my $main_element=$_[1]; ++ $main_element->isa('PPI::Token::Word') or return ''; ++ $main_element->content eq 'splice' or return ''; ++ return '' if is_hash_key($main_element); ++ return '' if is_method_call($main_element); ++ return '' if is_subroutine_name($main_element); ++ return '' if is_included_module_name($main_element); ++ return '' if is_package_declaration($main_element); ++ ++ my @arguments = parse_arg_list($main_element); ++ if ( scalar @arguments < 3 ) { ++ return ''; ++ } ++ my $arg=$arguments[2]; ++ if (ref($arg) eq 'ARRAY') { ++ $arg=$arg->[0]; ++ } ++ if ($arg->isa('PPI::Token::Number')) { ++ if ($arg->literal<0) { ++ return 1; ++ } else { ++ return ''; ++ } ++ } ++ return ''; ++ } ); ++ ++} ++ ++sub _postfix_foreach { ++ shift->Document->find_first( sub { ++ my $main_element=$_[1]; ++ $main_element->isa('PPI::Token::Word') or return ''; ++ $main_element->content eq 'foreach' or return ''; ++ return '' if is_hash_key($main_element); ++ return '' if is_method_call($main_element); ++ return '' if is_subroutine_name($main_element); ++ return '' if is_included_module_name($main_element); ++ return '' if is_package_declaration($main_element); ++ my $stmnt = $main_element->statement(); ++ return '' if !$stmnt; ++ return '' if $stmnt->isa('PPI::Statement::Compound'); ++ return 1; ++ } ); ++} ++ ++# weak references require perl 5.6 ++# will not work in case of importing several ++sub _weaken { ++ shift->Document->find_first( sub { ++ ( ++ $_[1]->isa('PPI::Statement::Include') ++ and ++ $_[1]->module eq 'Scalar::Util' ++ and ++ $_[1]->content =~ /[^:]\b(?:weaken|isweak)\b[^:]/ ++ ) ++ or ++ ( ++ $_[1]->isa('PPI::Token::Word') ++ and ++ ( ++ $_[1]->content eq 'Scalar::Util::isweak' ++ or ++ $_[1]->content eq 'Scalar::Util::weaken' ++ ) ++ #and ++ #is_function_call($_[1]) ++ ) ++ } ); ++} ++ ++ ++ ++ ++ ++##################################################################### ++# Support Functions ++ ++# Let sub be a function, object method, and static method ++sub _SELF { ++ my $param = shift; ++ if ( _INSTANCE($param->[0], 'Perl::MinimumVersion') ) { ++ return shift @$param; ++ } ++ if ( ++ _CLASS($param->[0]) ++ and ++ $param->[0]->isa('Perl::MinimumVersion') ++ ) { ++ my $class = shift @$param; ++ my $options = shift @$param; ++ return $class->new($options); ++ } ++ Perl::MinimumVersion->new(shift @$param); ++} ++ ++# Find the maximum version, ignoring problems ++sub _max { ++ defined $_[0] and "$_[0]" eq PMV and shift; ++ ++ # Filter and prepare for a Schwartian maximum ++ my @valid = map { ++ [ $_, $_->isa(REASON) ? $_->version : $_ ] ++ } grep { ++ _INSTANCE($_, REASON) ++ or ++ _INSTANCE($_, 'version') ++ } @_ or return ''; ++ ++ # Find the maximum ++ my $max = shift @valid; ++ foreach my $it ( @valid ) { ++ $max = $it if $it->[1] > $max->[1]; ++ } ++ ++ return $max->[0]; ++} ++ ++1; ++ ++=pod ++ ++=head1 BUGS ++ ++B does a reasonable job of catching the best-known ++explicit version dependencies. ++ ++B it is exceedingly easy to add a new syntax check, so if you ++find something this is missing, copy and paste one of the existing ++5 line checking functions, modify it to find what you want, and report it ++to rt.cpan.org, along with the version needed. ++ ++I don't even need an entire diff... just the function and version. ++ ++=head1 TO DO ++ ++B ++ ++- Perl 5.10 operators and language structures ++ ++- Three-argument open ++ ++B ++ ++B ++ ++B, C<...>, and C)> ++ ++=head1 SUPPORT ++ ++All bugs should be filed via the CPAN bug tracker at ++ ++L ++ ++For other issues, or commercial enhancement or support, contact the author. ++ ++=head1 AUTHORS ++ ++Adam Kennedy Eadamk@cpan.orgE ++ ++=head1 SEE ALSO ++ ++L, L, L ++ ++=head1 COPYRIGHT ++ ++Copyright 2005 - 2010 Adam Kennedy. ++ ++This program is free software; you can redistribute ++it and/or modify it under the same terms as Perl itself. ++ ++The full text of the license can be found in the ++LICENSE file included with this module. ++ ++=cut +diff -urN Perl-MinimumVersion-1.24/t.old/02_main.t Perl-MinimumVersion-1.24/t/02_main.t +--- Perl-MinimumVersion-1.24/t.old/02_main.t 2010-01-21 22:26:15.000000000 +0100 ++++ Perl-MinimumVersion-1.24/t/02_main.t 2010-05-03 09:23:30.000000000 +0200 +@@ -8,7 +8,7 @@ + $^W = 1; + } + +-use Test::More tests => 74; ++use Test::More tests => 75; + use version; + use File::Spec::Functions ':ALL'; + use PPI; +@@ -210,6 +210,11 @@ + "5.006 syntax found when no limit supplied", + ); + is( ++ $minver->minimum_syntax_version(5.005), ++ 5.006, ++ "5.006 syntax found when 5.005 limit supplied", ++); ++is( + $minver->minimum_syntax_version(version->new(5.008)), + '', + "no syntax constraints found when 5.008 limit supplied", +@@ -217,7 +222,7 @@ + is( + Perl::MinimumVersion->minimum_syntax_version($doc, version->new(5.008)), + '', +- "also works as object method with limit: no constriants found", ++ "also works as object method with limit: no constraints found", + ); + } + +diff -urN Perl-MinimumVersion-1.24/t.old/03_open_3arg.t Perl-MinimumVersion-1.24/t/03_open_3arg.t +--- Perl-MinimumVersion-1.24/t.old/03_open_3arg.t 2010-01-21 22:26:15.000000000 +0100 ++++ Perl-MinimumVersion-1.24/t/03_open_3arg.t 2010-05-03 09:23:30.000000000 +0200 +@@ -1,38 +1,38 @@ +-#!/usr/bin/perl -w +- +-use strict; +-BEGIN { +- $| = 1; +- $^W = 1; +-} +- +-use Test::More; +- +-#use version; +-use Perl::MinimumVersion; +-my @examples_not3arg = ( +- q{close $x;}, +- q{open A,'test.txt'}, +- q{open INFO, "< datafile" or print "can't open datafile: ",$!;}, +- q{open INFO, "< datafile" or die;}, +- q{open(INFO, "datafile") || die("can't open datafile: $!");}, +- q{open my $fh, ">$output";}, +- q/if(open my $fh, $output) {}/, +-); +-my @examples_3arg = ( +- q{open A,'<','test.txt';}, +- q{open( INFO, ">", $datafile ) || die "Can't create $datafile: $!";}, +- q{open( INFO, ">", $datafile )}, +- q{open my $fh, '>', $output;}, +- q/if(open my $fh, '>', $output) {}/, +- q{open my $fh, '|-', 'test','arg1';}, +-); +-plan tests =>(@examples_3arg+@examples_not3arg); +-foreach my $example (@examples_not3arg) { +- my $p = Perl::MinimumVersion->new(\$example); +- is( $p->_three_argument_open, '', $example ); +-} +-foreach my $example (@examples_3arg) { +- my $p = Perl::MinimumVersion->new(\$example); +- ok( $p->_three_argument_open, $example ); +-} ++#!/usr/bin/perl -w ++ ++use strict; ++BEGIN { ++ $| = 1; ++ $^W = 1; ++} ++ ++use Test::More; ++ ++#use version; ++use Perl::MinimumVersion; ++my @examples_not3arg = ( ++ q{close $x;}, ++ q{open A,'test.txt'}, ++ q{open INFO, "< datafile" or print "can't open datafile: ",$!;}, ++ q{open INFO, "< datafile" or die;}, ++ q{open(INFO, "datafile") || die("can't open datafile: $!");}, ++ q{open my $fh, ">$output";}, ++ q/if(open my $fh, $output) {}/, ++); ++my @examples_3arg = ( ++ q{open A,'<','test.txt';}, ++ q{open( INFO, ">", $datafile ) || die "Can't create $datafile: $!";}, ++ q{open( INFO, ">", $datafile )}, ++ q{open my $fh, '>', $output;}, ++ q/if(open my $fh, '>', $output) {}/, ++ q{open my $fh, '|-', 'test','arg1';}, ++); ++plan tests =>(@examples_3arg+@examples_not3arg); ++foreach my $example (@examples_not3arg) { ++ my $p = Perl::MinimumVersion->new(\$example); ++ is( $p->_three_argument_open, '', $example ); ++} ++foreach my $example (@examples_3arg) { ++ my $p = Perl::MinimumVersion->new(\$example); ++ ok( $p->_three_argument_open, $example ); ++} +diff -urN Perl-MinimumVersion-1.24/t.old/04_substr.t Perl-MinimumVersion-1.24/t/04_substr.t +--- Perl-MinimumVersion-1.24/t.old/04_substr.t 2010-01-21 22:26:15.000000000 +0100 ++++ Perl-MinimumVersion-1.24/t/04_substr.t 2010-05-03 09:23:30.000000000 +0200 +@@ -1,32 +1,32 @@ +-#!/usr/bin/perl -w +- +-use strict; +-BEGIN { +- $| = 1; +- $^W = 1; +-} +- +-use Test::More; +- +-#use version; +-use Perl::MinimumVersion; +-my @examples_not=( +- q{substr 'asdf',1,1 or print 2,2;}, +- q{substr('asdf',1,1);}, +- q{my $a=substr('asdf',1,1);}, +- q{$a->substr('asdf',1,1,'aa');}, +-); +-my @examples_yes=( +- q{substr('asdf',1,1,'tt');}, +- q{my $a=substr('asdf',1,1,'aa');}, +- q/if(substr('asdf',1,1,'aa')) {}/, +-); +-plan tests =>(@examples_yes+@examples_not); +-foreach my $example (@examples_not) { +- my $p = Perl::MinimumVersion->new(\$example); +- is($p->_substr_4_arg,'',$example); +-} +-foreach my $example (@examples_yes) { +- my $p = Perl::MinimumVersion->new(\$example); +- is($p->_substr_4_arg, 'substr', $example); +-} ++#!/usr/bin/perl -w ++ ++use strict; ++BEGIN { ++ $| = 1; ++ $^W = 1; ++} ++ ++use Test::More; ++ ++#use version; ++use Perl::MinimumVersion; ++my @examples_not=( ++ q{substr 'asdf',1,1 or print 2,2;}, ++ q{substr('asdf',1,1);}, ++ q{my $a=substr('asdf',1,1);}, ++ q{$a->substr('asdf',1,1,'aa');}, ++); ++my @examples_yes=( ++ q{substr('asdf',1,1,'tt');}, ++ q{my $a=substr('asdf',1,1,'aa');}, ++ q/if(substr('asdf',1,1,'aa')) {}/, ++); ++plan tests =>(@examples_yes+@examples_not); ++foreach my $example (@examples_not) { ++ my $p = Perl::MinimumVersion->new(\$example); ++ is($p->_substr_4_arg,'',$example); ++} ++foreach my $example (@examples_yes) { ++ my $p = Perl::MinimumVersion->new(\$example); ++ is($p->_substr_4_arg, 'substr', $example); ++} +diff -urN Perl-MinimumVersion-1.24/t.old/05_foreach.t Perl-MinimumVersion-1.24/t/05_foreach.t +--- Perl-MinimumVersion-1.24/t.old/05_foreach.t 2010-01-21 22:26:15.000000000 +0100 ++++ Perl-MinimumVersion-1.24/t/05_foreach.t 2010-05-03 09:23:30.000000000 +0200 +@@ -1,30 +1,30 @@ +-#!/usr/bin/perl -w +- +-use strict; +-BEGIN { +- $| = 1; +- $^W = 1; +-} +- +-use Test::More; +- +-#use version; +-use Perl::MinimumVersion; +-my @examples_not=( +- q'foreach (1,2,3) {}', +- q{print "$_," while $a;}, +-); +-my @examples_yes=( +- q{print "$_," foreach split //,"asdf";}, +- q{print "$_," foreach (1,2,3,4);}, +- q{print "$_," foreach 'asdf';}, +-); +-plan tests =>(@examples_yes+@examples_not); +-foreach my $example (@examples_not) { +- my $p = Perl::MinimumVersion->new(\$example); +- is($p->_postfix_foreach, '', $example); +-} +-foreach my $example (@examples_yes) { +- my $p = Perl::MinimumVersion->new(\$example); +- is($p->_postfix_foreach, 'foreach', $example); +-} ++#!/usr/bin/perl -w ++ ++use strict; ++BEGIN { ++ $| = 1; ++ $^W = 1; ++} ++ ++use Test::More; ++ ++#use version; ++use Perl::MinimumVersion; ++my @examples_not=( ++ q'foreach (1,2,3) {}', ++ q{print "$_," while $a;}, ++); ++my @examples_yes=( ++ q{print "$_," foreach split //,"asdf";}, ++ q{print "$_," foreach (1,2,3,4);}, ++ q{print "$_," foreach 'asdf';}, ++); ++plan tests =>(@examples_yes+@examples_not); ++foreach my $example (@examples_not) { ++ my $p = Perl::MinimumVersion->new(\$example); ++ is($p->_postfix_foreach, '', $example); ++} ++foreach my $example (@examples_yes) { ++ my $p = Perl::MinimumVersion->new(\$example); ++ is($p->_postfix_foreach, 'foreach', $example); ++} +diff -urN Perl-MinimumVersion-1.24/t.old/06_weaken.t Perl-MinimumVersion-1.24/t/06_weaken.t +--- Perl-MinimumVersion-1.24/t.old/06_weaken.t 2010-01-21 22:26:15.000000000 +0100 ++++ Perl-MinimumVersion-1.24/t/06_weaken.t 2010-05-03 09:23:30.000000000 +0200 +@@ -1,33 +1,33 @@ +-#!/usr/bin/perl -w +- +-use strict; +-BEGIN { +- $| = 1; +- $^W = 1; +-} +- +-use Test::More; +- +-#use version; +-use Perl::MinimumVersion; +-my @examples_not=( +- q{use Scalar::Util;}, +- q{use Scalar::Util qw/weakening/;}, +-); +-my @examples_yes=( +- q{use Scalar::Util qw/test weaken test/;}, +- q{use Scalar::Util qw/weaken/;}, +- q{use Scalar::Util qw/isweak/;}, +- q{Scalar::Util::weaken($b);}, +- q'if(Scalar::Util::isweak($a)) {}', +- q'if(Scalar::Util::isweak $a ) {}', +-); +-plan tests =>(@examples_yes+@examples_not); +-foreach my $example (@examples_not) { +- my $p = Perl::MinimumVersion->new(\$example); +- is( $p->_weaken,'',$example ); +-} +-foreach my $example (@examples_yes) { +- my $p = Perl::MinimumVersion->new(\$example); +- ok( $p->_weaken, $example ); +-} ++#!/usr/bin/perl -w ++ ++use strict; ++BEGIN { ++ $| = 1; ++ $^W = 1; ++} ++ ++use Test::More; ++ ++#use version; ++use Perl::MinimumVersion; ++my @examples_not=( ++ q{use Scalar::Util;}, ++ q{use Scalar::Util qw/weakening/;}, ++); ++my @examples_yes=( ++ q{use Scalar::Util qw/test weaken test/;}, ++ q{use Scalar::Util qw/weaken/;}, ++ q{use Scalar::Util qw/isweak/;}, ++ q{Scalar::Util::weaken($b);}, ++ q'if(Scalar::Util::isweak($a)) {}', ++ q'if(Scalar::Util::isweak $a ) {}', ++); ++plan tests =>(@examples_yes+@examples_not); ++foreach my $example (@examples_not) { ++ my $p = Perl::MinimumVersion->new(\$example); ++ is( $p->_weaken,'',$example ); ++} ++foreach my $example (@examples_yes) { ++ my $p = Perl::MinimumVersion->new(\$example); ++ ok( $p->_weaken, $example ); ++} +diff -urN Perl-MinimumVersion-1.24/t.old/07_splice.t Perl-MinimumVersion-1.24/t/07_splice.t +--- Perl-MinimumVersion-1.24/t.old/07_splice.t 2010-01-21 22:26:15.000000000 +0100 ++++ Perl-MinimumVersion-1.24/t/07_splice.t 2010-05-03 09:23:30.000000000 +0200 +@@ -1,36 +1,36 @@ +-#!/usr/bin/perl -w +- +-use strict; +-BEGIN { +- $| = 1; +- $^W = 1; +-} +- +-use Test::More; +- +-#use version; +-use Perl::MinimumVersion; +-my @examples_not=( +- q{splice(@a,1);}, +- q{splice @a,1;}, +- q{splice @a,1,1;}, +- q{splice @a,1,1,@b;}, +- q{splice @a,1 or die -1,1;}, +- q{$test->splice(@a,1,-1,@b);}, +-); +-my @examples_yes=( +- q{splice @a,1,-1;}, +- q{splice(@a,1,-1);}, +- q{$c=splice(@a,1,-1);}, +-); +-plan tests =>(@examples_not+@examples_yes); +-foreach my $example (@examples_not) { +- my $p = Perl::MinimumVersion->new(\$example); ++#!/usr/bin/perl -w ++ ++use strict; ++BEGIN { ++ $| = 1; ++ $^W = 1; ++} ++ ++use Test::More; ++ ++#use version; ++use Perl::MinimumVersion; ++my @examples_not=( ++ q{splice(@a,1);}, ++ q{splice @a,1;}, ++ q{splice @a,1,1;}, ++ q{splice @a,1,1,@b;}, ++ q{splice @a,1 or die -1,1;}, ++ q{$test->splice(@a,1,-1,@b);}, ++); ++my @examples_yes=( ++ q{splice @a,1,-1;}, ++ q{splice(@a,1,-1);}, ++ q{$c=splice(@a,1,-1);}, ++); ++plan tests =>(@examples_not+@examples_yes); ++foreach my $example (@examples_not) { ++ my $p = Perl::MinimumVersion->new(\$example); + is($p->_splice_negative_length, '', $example) +- or do { diag "\$\@: $@" if $@ }; +-} +-foreach my $example (@examples_yes) { +- my $p = Perl::MinimumVersion->new(\$example); ++ or do { diag "\$\@: $@" if $@ }; ++} ++foreach my $example (@examples_yes) { ++ my $p = Perl::MinimumVersion->new(\$example); + is( $p->_splice_negative_length, 'splice', $example ) +- or do { diag "\$\@: $@" if $@ }; +-} ++ or do { diag "\$\@: $@" if $@ }; ++} +diff -urN Perl-MinimumVersion-1.24/t.old/08_mkdir.t Perl-MinimumVersion-1.24/t/08_mkdir.t +--- Perl-MinimumVersion-1.24/t.old/08_mkdir.t 2010-01-21 22:26:15.000000000 +0100 ++++ Perl-MinimumVersion-1.24/t/08_mkdir.t 2010-05-03 09:23:30.000000000 +0200 +@@ -1,34 +1,34 @@ +-#!/usr/bin/perl -w +- +-use strict; +-BEGIN { +- $| = 1; +- $^W = 1; +-} +- +-use Test::More; +- +-#use version; +-use Perl::MinimumVersion; +-my @examples_not=( +- q{mkdir1('test',1);}, +- q{mkdir('test',1);}, +- q{mkdir 'test',1;}, +- q{$test->mkdir('a');}, +-); +-my @examples_yes=( +- q{mkdir('test');}, +- q{mkdir 'test';}, +- q{$c=mkdir('test');}, +-); +-plan tests =>(@examples_not+@examples_yes); +-foreach my $example (@examples_not) { +- my $p = Perl::MinimumVersion->new(\$example); ++#!/usr/bin/perl -w ++ ++use strict; ++BEGIN { ++ $| = 1; ++ $^W = 1; ++} ++ ++use Test::More; ++ ++#use version; ++use Perl::MinimumVersion; ++my @examples_not=( ++ q{mkdir1('test',1);}, ++ q{mkdir('test',1);}, ++ q{mkdir 'test',1;}, ++ q{$test->mkdir('a');}, ++); ++my @examples_yes=( ++ q{mkdir('test');}, ++ q{mkdir 'test';}, ++ q{$c=mkdir('test');}, ++); ++plan tests =>(@examples_not+@examples_yes); ++foreach my $example (@examples_not) { ++ my $p = Perl::MinimumVersion->new(\$example); + is( $p->_mkdir_1_arg, '', $example ) +- or do { diag "\$\@: $@" if $@ }; +-} +-foreach my $example (@examples_yes) { +- my $p = Perl::MinimumVersion->new(\$example); ++ or do { diag "\$\@: $@" if $@ }; ++} ++foreach my $example (@examples_yes) { ++ my $p = Perl::MinimumVersion->new(\$example); + is( $p->_mkdir_1_arg, 'mkdir', $example ) +- or do { diag "\$\@: $@" if $@ }; +-} ++ or do { diag "\$\@: $@" if $@ }; ++} +diff -urN Perl-MinimumVersion-1.24/t.old/09_pkg_name_version.t Perl-MinimumVersion-1.24/t/09_pkg_name_version.t +--- Perl-MinimumVersion-1.24/t.old/09_pkg_name_version.t 1970-01-01 01:00:00.000000000 +0100 ++++ Perl-MinimumVersion-1.24/t/09_pkg_name_version.t 2010-05-03 09:23:30.000000000 +0200 +@@ -0,0 +1,38 @@ ++#!/usr/bin/perl -w ++ ++use strict; ++BEGIN { ++ $| = 1; ++ $^W = 1; ++} ++ ++use Test::More; ++ ++#use version; ++use Perl::MinimumVersion; ++my @examples_not=( ++ q{package Foo;}, ++ q{package Foo;}, ++ q{use Foo 1.2;}, ++ q{package Foo::Bar;}, ++); ++my @examples_yes=( ++ q{package Foo 1;}, ++ q{package Foo::Bar 1;}, ++ q{package Foo 1;}, ++ q{package Foo 1.;}, ++ q{package Foo::Bar::Baz 1.000}, ++ q{package Foo::Bar::Baz 1.1.1}, ++); ++plan tests =>(@examples_not+@examples_yes); ++foreach my $example (@examples_not) { ++ my $p = Perl::MinimumVersion->new(\$example); ++ is( $p->_pkg_name_version, '', $example ) ++ or do { diag "\$\@: $@" if $@ }; ++} ++foreach my $example (@examples_yes) { ++ my $p = Perl::MinimumVersion->new(\$example); ++ ok( $p->_pkg_name_version, $example ) ++ or do { diag "\$\@: $@" if $@ }; ++} ++ +diff -urN Perl-MinimumVersion-1.24/t.old/10_yada_yada_yada.t Perl-MinimumVersion-1.24/t/10_yada_yada_yada.t +--- Perl-MinimumVersion-1.24/t.old/10_yada_yada_yada.t 1970-01-01 01:00:00.000000000 +0100 ++++ Perl-MinimumVersion-1.24/t/10_yada_yada_yada.t 2010-05-03 09:23:30.000000000 +0200 +@@ -0,0 +1,34 @@ ++#!/usr/bin/perl -w ++ ++use strict; ++BEGIN { ++ $| = 1; ++ $^W = 1; ++} ++ ++use Test::More; ++ ++#use version; ++use Perl::MinimumVersion; ++my @examples_not=( ++ q{'foo'.'foo'}, # okay, okay, adding close examples is a TODO ++ q{sub foo {}}, ++); ++my @examples_yes=( ++ q{...}, ++ q{...;}, ++ q{if(1){...}}, ++ q{sub foo {...}}, ++); ++plan tests =>(@examples_not+@examples_yes); ++foreach my $example (@examples_not) { ++ my $p = Perl::MinimumVersion->new(\$example); ++ is( $p->_yada_yada_yada, '', $example ) ++ or do { diag "\$\@: $@" if $@ }; ++} ++foreach my $example (@examples_yes) { ++ my $p = Perl::MinimumVersion->new(\$example); ++ ok( $p->_yada_yada_yada, $example ) ++ or do { diag "\$\@: $@" if $@ }; ++} ++ +diff -urN Perl-MinimumVersion-1.24/t.old/11_feature_bundle_512.t Perl-MinimumVersion-1.24/t/11_feature_bundle_512.t +--- Perl-MinimumVersion-1.24/t.old/11_feature_bundle_512.t 1970-01-01 01:00:00.000000000 +0100 ++++ Perl-MinimumVersion-1.24/t/11_feature_bundle_512.t 2010-05-03 09:23:30.000000000 +0200 +@@ -0,0 +1,36 @@ ++#!/usr/bin/perl -w ++ ++use strict; ++BEGIN { ++ $| = 1; ++ $^W = 1; ++} ++ ++use Test::More; ++ ++#use version; ++use Perl::MinimumVersion; ++my @examples_not=( ++ q{use feature ':5.8'}, ++ q{use feature ':5.10'}, ++ q{use feature}, ++ q{use feature 'say', ':5.10';}, ++); ++my @examples_yes=( ++ q{use feature ':5.8', ':5.12'}, ++ q{use feature ':5.12'}, ++ q{use feature ':5.12', "say"}, ++ q{use feature ':5.12';}, ++); ++plan tests =>(@examples_not+@examples_yes); ++foreach my $example (@examples_not) { ++ my $p = Perl::MinimumVersion->new(\$example); ++ is( $p->_feature_bundle_5_12, '', $example ) ++ or do { diag "\$\@: $@" if $@ }; ++} ++foreach my $example (@examples_yes) { ++ my $p = Perl::MinimumVersion->new(\$example); ++ ok( $p->_feature_bundle_5_12, $example ) ++ or do { diag "\$\@: $@" if $@ }; ++} ++ +diff -urN Perl-MinimumVersion-1.24/t.old/97_meta.t Perl-MinimumVersion-1.24/t/97_meta.t +--- Perl-MinimumVersion-1.24/t.old/97_meta.t 2010-01-21 22:26:15.000000000 +0100 ++++ Perl-MinimumVersion-1.24/t/97_meta.t 1970-01-01 01:00:00.000000000 +0100 +@@ -1,27 +0,0 @@ +-#!/usr/bin/perl +- +-# Test that our META.yml file matches the current specification. +- +-use strict; +-BEGIN { +- $| = 1; +- $^W = 1; +-} +- +-my $MODULE = 'Test::CPAN::Meta 0.12'; +- +-# Don't run tests for installs +-use Test::More; +-unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) { +- plan( skip_all => "Author tests not required for installation" ); +-} +- +-# Load the testing module +-eval "use $MODULE"; +-if ( $@ ) { +- $ENV{RELEASE_TESTING} +- ? die( "Failed to load required release-testing module $MODULE" ) +- : plan( skip_all => "$MODULE not available for testing" ); +-} +- +-meta_yaml_ok(); +diff -urN Perl-MinimumVersion-1.24/t.old/98_pod.t Perl-MinimumVersion-1.24/t/98_pod.t +--- Perl-MinimumVersion-1.24/t.old/98_pod.t 2010-01-21 22:26:15.000000000 +0100 ++++ Perl-MinimumVersion-1.24/t/98_pod.t 1970-01-01 01:00:00.000000000 +0100 +@@ -1,32 +0,0 @@ +-#!/usr/bin/perl +- +-# Test that the syntax of our POD documentation is valid +- +-use strict; +-BEGIN { +- $| = 1; +- $^W = 1; +-} +- +-my @MODULES = ( +- 'Pod::Simple 3.07', +- 'Test::Pod 1.26', +-); +- +-# Don't run tests for installs +-use Test::More; +-unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) { +- plan( skip_all => "Author tests not required for installation" ); +-} +- +-# Load the testing modules +-foreach my $MODULE ( @MODULES ) { +- eval "use $MODULE"; +- if ( $@ ) { +- $ENV{RELEASE_TESTING} +- ? die( "Failed to load required release-testing module $MODULE" ) +- : plan( skip_all => "$MODULE not available for testing" ); +- } +-} +- +-all_pod_files_ok(); +diff -urN Perl-MinimumVersion-1.24/t.old/99_pmv.t Perl-MinimumVersion-1.24/t/99_pmv.t +--- Perl-MinimumVersion-1.24/t.old/99_pmv.t 2010-01-21 22:26:15.000000000 +0100 ++++ Perl-MinimumVersion-1.24/t/99_pmv.t 1970-01-01 01:00:00.000000000 +0100 +@@ -1,32 +0,0 @@ +-#!/usr/bin/perl +- +-# Test that our declared minimum Perl version matches our syntax +- +-use strict; +-BEGIN { +- $| = 1; +- $^W = 1; +-} +- +-my @MODULES = ( +- 'Perl::MinimumVersion 1.20', +- 'Test::MinimumVersion 0.008', +-); +- +-# Don't run tests for installs +-use Test::More; +-unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) { +- plan( skip_all => "Author tests not required for installation" ); +-} +- +-# Load the testing modules +-foreach my $MODULE ( @MODULES ) { +- eval "use $MODULE"; +- if ( $@ ) { +- $ENV{RELEASE_TESTING} +- ? die( "Failed to load required release-testing module $MODULE" ) +- : plan( skip_all => "$MODULE not available for testing" ); +- } +-} +- +-all_minimum_version_from_metayml_ok(); diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 3ddb72e..e8ed4ea 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,11 +1,12 @@ Name: perl-Perl-MinimumVersion Version: 1.24 -Release: 1%{?dist} +Release: 2%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries URL: http://search.cpan.org/dist/Perl-MinimumVersion/ Source0: http://search.cpan.org/CPAN/authors/id/A/AD/ADAMK/Perl-MinimumVersion-%{version}.tar.gz +Patch0: Perl-MinimumVersion-25.patch BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n) Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version)) @@ -33,6 +34,7 @@ Find a minimum required version of perl for Perl code %prep %setup -q -n Perl-MinimumVersion-%{version} +%patch0 -p1 %build %{__perl} Makefile.PL INSTALLDIRS=vendor @@ -60,6 +62,10 @@ make test AUTOMATED_TESTING=1 %{_mandir}/man3/* %changelog +* Mon May 3 2010 Marcela Mašláňová - 1.24-2 +- for the meantime apply changes from trunk. Other builds using + this package should succed with perl-5.12. + * Mon Mar 01 2010 Ralf Corsépius - 1.24-1 - Upstream update. - Adjust BR's. From 931923a41ff2144190ad99a5290f7775896c7d59 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Marcela=20Ma=C5=A1l=C3=A1=C5=88ov=C3=A1?= Date: Tue, 4 May 2010 18:42:10 +0000 Subject: [PATCH 17/56] - Mass rebuild with perl-5.12.0 --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index e8ed4ea..d6c685a 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.24 -Release: 2%{?dist} +Release: 3%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -62,6 +62,9 @@ make test AUTOMATED_TESTING=1 %{_mandir}/man3/* %changelog +* Tue May 04 2010 Marcela Maslanova - 1.24-3 +- Mass rebuild with perl-5.12.0 + * Mon May 3 2010 Marcela Mašláňová - 1.24-2 - for the meantime apply changes from trunk. Other builds using this package should succed with perl-5.12. From 9fac3aa279cd30e5c48e1fc520a28391c2c12d68 Mon Sep 17 00:00:00 2001 From: Fedora Release Engineering Date: Thu, 29 Jul 2010 07:45:27 +0000 Subject: [PATCH 18/56] dist-git conversion --- .cvsignore => .gitignore | 0 Makefile | 21 --------------------- 2 files changed, 21 deletions(-) rename .cvsignore => .gitignore (100%) delete mode 100644 Makefile diff --git a/.cvsignore b/.gitignore similarity index 100% rename from .cvsignore rename to .gitignore diff --git a/Makefile b/Makefile deleted file mode 100644 index fb3e4be..0000000 --- a/Makefile +++ /dev/null @@ -1,21 +0,0 @@ -# Makefile for source rpm: perl-Perl-MinimumVersion -# $Id: Makefile,v 1.1 2007/11/21 18:30:08 tibbs Exp $ -NAME := perl-Perl-MinimumVersion -SPECFILE = $(firstword $(wildcard *.spec)) - -define find-makefile-common -for d in common ../common ../../common ; do if [ -f $$d/Makefile.common ] ; then if [ -f $$d/CVS/Root -a -w $$d/Makefile.common ] ; then cd $$d ; cvs -Q update ; fi ; echo "$$d/Makefile.common" ; break ; fi ; done -endef - -MAKEFILE_COMMON := $(shell $(find-makefile-common)) - -ifeq ($(MAKEFILE_COMMON),) -# attept a checkout -define checkout-makefile-common -test -f CVS/Root && { cvs -Q -d $$(cat CVS/Root) checkout common && echo "common/Makefile.common" ; } || { echo "ERROR: I can't figure out how to checkout the 'common' module." ; exit -1 ; } >&2 -endef - -MAKEFILE_COMMON := $(shell $(checkout-makefile-common)) -endif - -include $(MAKEFILE_COMMON) From 6b79a7e2940d359dad79433f4e8272f94ae0745d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ralf=20Cors=C3=A9pius?= Date: Thu, 5 Aug 2010 18:50:54 +0200 Subject: [PATCH 19/56] =?UTF-8?q?*=20Thu=20Aug=2005=202010=20Ralf=20Cors?= =?UTF-8?q?=C3=A9pius=20=20-=201.26-1=20?= =?UTF-8?q?-=20Upstream=20update.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * Tue May 04 2010 Marcela Maslanova - 1.24-3 - Mass rebuild with perl-5.12.0 --- .gitignore | 1 + perl-Perl-MinimumVersion.spec | 9 +++++---- sources | 2 +- 3 files changed, 7 insertions(+), 5 deletions(-) diff --git a/.gitignore b/.gitignore index 6dae4bb..51239c5 100644 --- a/.gitignore +++ b/.gitignore @@ -1 +1,2 @@ Perl-MinimumVersion-1.24.tar.gz +Perl-MinimumVersion-1.26.tar.gz diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index d6c685a..4f62d68 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,12 +1,11 @@ Name: perl-Perl-MinimumVersion -Version: 1.24 -Release: 3%{?dist} +Version: 1.26 +Release: 1%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries URL: http://search.cpan.org/dist/Perl-MinimumVersion/ Source0: http://search.cpan.org/CPAN/authors/id/A/AD/ADAMK/Perl-MinimumVersion-%{version}.tar.gz -Patch0: Perl-MinimumVersion-25.patch BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n) Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version)) @@ -34,7 +33,6 @@ Find a minimum required version of perl for Perl code %prep %setup -q -n Perl-MinimumVersion-%{version} -%patch0 -p1 %build %{__perl} Makefile.PL INSTALLDIRS=vendor @@ -62,6 +60,9 @@ make test AUTOMATED_TESTING=1 %{_mandir}/man3/* %changelog +* Thu Aug 05 2010 Ralf Corsépius - 1.26-1 +- Upstream update. + * Tue May 04 2010 Marcela Maslanova - 1.24-3 - Mass rebuild with perl-5.12.0 diff --git a/sources b/sources index 6d6b7a5..8c53c93 100644 --- a/sources +++ b/sources @@ -1 +1 @@ -307a1ebae711026396ba307d2ef7e4ab Perl-MinimumVersion-1.24.tar.gz +faf35e902d98fdfeca35f298d1553a68 Perl-MinimumVersion-1.26.tar.gz From 2e91a0db2a086b0caf10277b50b48dd6c09982bb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ralf=20Cors=C3=A9pius?= Date: Thu, 5 Aug 2010 18:55:48 +0200 Subject: [PATCH 20/56] =?UTF-8?q?*=20Thu=20Aug=2005=202010=20Ralf=20Cors?= =?UTF-8?q?=C3=A9pius=20=20-=201.26-1=20?= =?UTF-8?q?-=20Upstream=20update.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * Tue May 04 2010 Marcela Maslanova - 1.24-3 - Mass rebuild with perl-5.12.0 --- Perl-MinimumVersion-25.patch | 2107 ---------------------------------- 1 file changed, 2107 deletions(-) delete mode 100644 Perl-MinimumVersion-25.patch diff --git a/Perl-MinimumVersion-25.patch b/Perl-MinimumVersion-25.patch deleted file mode 100644 index f4d44bf..0000000 --- a/Perl-MinimumVersion-25.patch +++ /dev/null @@ -1,2107 +0,0 @@ -diff -urN Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion/Reason.pm Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion/Reason.pm ---- Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion/Reason.pm 2010-01-21 22:26:15.000000000 +0100 -+++ Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion/Reason.pm 2010-05-03 09:23:31.000000000 +0200 -@@ -1,36 +1,36 @@ --package Perl::MinimumVersion::Reason; -- --# Simple abstraction for a syntax limitation. --# It contains the limiting version, the rule responsible, and the --# PPI element responsible for the limitation (if any). -- --use 5.006; --use strict; --use warnings; -- --use vars qw{$VERSION}; --BEGIN { -- $VERSION = '1.24'; -- -- # Only needed for dev releases, comment out otherwise -- $VERSION = eval $VERSION; --} -- --sub new { -- my $class = shift; -- return bless { @_ }, $class; --} -- --sub version { -- $_[0]->{version}; --} -- --sub rule { -- $_[0]->{rule}; --} -- --sub element { -- $_[0]->{element}; --} -- --1; -+package Perl::MinimumVersion::Reason; -+ -+# Simple abstraction for a syntax limitation. -+# It contains the limiting version, the rule responsible, and the -+# PPI element responsible for the limitation (if any). -+ -+use 5.006; -+use strict; -+use warnings; -+ -+use vars qw{$VERSION}; -+BEGIN { -+ $VERSION = '1.25'; -+ -+ # Only needed for dev releases, comment out otherwise -+ $VERSION = eval $VERSION; -+} -+ -+sub new { -+ my $class = shift; -+ return bless { @_ }, $class; -+} -+ -+sub version { -+ $_[0]->{version}; -+} -+ -+sub rule { -+ $_[0]->{rule}; -+} -+ -+sub element { -+ $_[0]->{element}; -+} -+ -+1; -diff -urN Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion/.svn/all-wcprops Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion/.svn/all-wcprops ---- Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion/.svn/all-wcprops 1970-01-01 01:00:00.000000000 +0100 -+++ Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion/.svn/all-wcprops 2010-05-03 09:23:31.000000000 +0200 -@@ -0,0 +1,11 @@ -+K 25 -+svn:wc:ra_dav:version-url -+V 70 -+/cpan/!svn/ver/11888/trunk/Perl-MinimumVersion/lib/Perl/MinimumVersion -+END -+Reason.pm -+K 25 -+svn:wc:ra_dav:version-url -+V 80 -+/cpan/!svn/ver/11888/trunk/Perl-MinimumVersion/lib/Perl/MinimumVersion/Reason.pm -+END -diff -urN Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion/.svn/entries Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion/.svn/entries ---- Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion/.svn/entries 1970-01-01 01:00:00.000000000 +0100 -+++ Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion/.svn/entries 2010-05-03 09:23:31.000000000 +0200 -@@ -0,0 +1,62 @@ -+10 -+ -+dir -+12099 -+http://svn.ali.as/cpan/trunk/Perl-MinimumVersion/lib/Perl/MinimumVersion -+http://svn.ali.as/cpan -+ -+ -+ -+2010-04-11T14:30:55.494658Z -+11888 -+chorny@cpan.org -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+88f4d9cd-8a04-0410-9d60-8f63309c3137 -+ -+Reason.pm -+file -+ -+ -+ -+ -+2010-05-03T07:23:31.091810Z -+3ece6d1a31707473047d796b366510bc -+2010-04-11T14:30:55.494658Z -+11888 -+chorny@cpan.org -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+586 -+ -diff -urN Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion/.svn/text-base/Reason.pm.svn-base Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion/.svn/text-base/Reason.pm.svn-base ---- Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion/.svn/text-base/Reason.pm.svn-base 1970-01-01 01:00:00.000000000 +0100 -+++ Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion/.svn/text-base/Reason.pm.svn-base 2010-05-03 09:23:31.000000000 +0200 -@@ -0,0 +1,36 @@ -+package Perl::MinimumVersion::Reason; -+ -+# Simple abstraction for a syntax limitation. -+# It contains the limiting version, the rule responsible, and the -+# PPI element responsible for the limitation (if any). -+ -+use 5.006; -+use strict; -+use warnings; -+ -+use vars qw{$VERSION}; -+BEGIN { -+ $VERSION = '1.25'; -+ -+ # Only needed for dev releases, comment out otherwise -+ $VERSION = eval $VERSION; -+} -+ -+sub new { -+ my $class = shift; -+ return bless { @_ }, $class; -+} -+ -+sub version { -+ $_[0]->{version}; -+} -+ -+sub rule { -+ $_[0]->{rule}; -+} -+ -+sub element { -+ $_[0]->{element}; -+} -+ -+1; -diff -urN Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion.pm Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion.pm ---- Perl-MinimumVersion-1.24/lib.old/Perl/MinimumVersion.pm 2010-01-21 22:26:15.000000000 +0100 -+++ Perl-MinimumVersion-1.24/lib/Perl/MinimumVersion.pm 2010-05-03 09:23:31.000000000 +0200 -@@ -12,7 +12,7 @@ - $object = Perl::MinimumVersion->new( $filename ); - $object = Perl::MinimumVersion->new( \$source ); - $object = Perl::MinimumVersion->new( $ppi_document ); -- -+ - # Find the minimum version - $version = $object->minimum_version; - -@@ -54,7 +54,7 @@ - - use vars qw{$VERSION @ISA @EXPORT_OK %CHECKS %MATCHES}; - BEGIN { -- $VERSION = '1.24'; -+ $VERSION = '1.25'; - - # Only needed for dev releases, comment out otherwise - $VERSION = eval $VERSION; -@@ -65,6 +65,10 @@ - - # The primary list of version checks - %CHECKS = ( -+ _feature_bundle_5_12 => version->new('5.012'), -+ _yada_yada_yada => version->new('5.012'), -+ _pkg_name_version => version->new('5.012'), -+ - _perl_5010_pragmas => version->new('5.010'), - _perl_5010_operators => version->new('5.010'), - _perl_5010_magic => version->new('5.010'), -@@ -375,7 +379,7 @@ - $limit = version->new("$limit"); - } - if ( defined $self->{syntax} ) { -- if ( $self->{syntax} >= $limit ) { -+ if ( $self->{syntax}->version >= $limit ) { - # Previously discovered minimum is what they want - return $self->{syntax}; - } -@@ -505,10 +509,41 @@ - - - -- - ##################################################################### - # Version Check Methods - -+sub _yada_yada_yada { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Token::Operator') -+ and $_[1]->content eq '...' -+ } ); -+} -+ -+sub _feature_bundle_5_12 { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement::Include') or return ''; -+ $_[1]->pragma eq 'feature' or return ''; -+ my @child = $_[1]->schildren; -+ my @args = @child[1..$#child]; # skip 'use', 'feature' and ';' -+ foreach my $arg (@args) { -+ return $arg->content if $arg->content =~ /:5\.12/; -+ } -+ return ''; -+ } ); -+} -+ -+sub _pkg_name_version { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement::Package') or return ''; -+ my @child = $_[1]->schildren(); -+ $child[0]->isa('PPI::Token::Word') or return ''; -+ $child[0]->content eq 'package' or return ''; -+ $child[1]->isa('PPI::Token::Word') or return ''; -+ $child[2]->isa('PPI::Token::Number') or return ''; -+ return 1; -+ } ); -+} -+ - sub _perl_5010_pragmas { - shift->Document->find_first( sub { - $_[1]->isa('PPI::Statement::Include') -@@ -970,6 +1005,9 @@ - - B - -+B, C<...>, and C)> -+ - =head1 SUPPORT - - All bugs should be filed via the CPAN bug tracker at -diff -urN Perl-MinimumVersion-1.24/lib.old/Perl/.svn/all-wcprops Perl-MinimumVersion-1.24/lib/Perl/.svn/all-wcprops ---- Perl-MinimumVersion-1.24/lib.old/Perl/.svn/all-wcprops 1970-01-01 01:00:00.000000000 +0100 -+++ Perl-MinimumVersion-1.24/lib/Perl/.svn/all-wcprops 2010-05-03 09:23:31.000000000 +0200 -@@ -0,0 +1,11 @@ -+K 25 -+svn:wc:ra_dav:version-url -+V 55 -+/cpan/!svn/ver/11956/trunk/Perl-MinimumVersion/lib/Perl -+END -+MinimumVersion.pm -+K 25 -+svn:wc:ra_dav:version-url -+V 73 -+/cpan/!svn/ver/11956/trunk/Perl-MinimumVersion/lib/Perl/MinimumVersion.pm -+END -diff -urN Perl-MinimumVersion-1.24/lib.old/Perl/.svn/entries Perl-MinimumVersion-1.24/lib/Perl/.svn/entries ---- Perl-MinimumVersion-1.24/lib.old/Perl/.svn/entries 1970-01-01 01:00:00.000000000 +0100 -+++ Perl-MinimumVersion-1.24/lib/Perl/.svn/entries 2010-05-03 09:23:31.000000000 +0200 -@@ -0,0 +1,65 @@ -+10 -+ -+dir -+12099 -+http://svn.ali.as/cpan/trunk/Perl-MinimumVersion/lib/Perl -+http://svn.ali.as/cpan -+ -+ -+ -+2010-04-16T12:06:52.798869Z -+11956 -+smueller@cpan.org -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+88f4d9cd-8a04-0410-9d60-8f63309c3137 -+ -+MinimumVersion -+dir -+ -+MinimumVersion.pm -+file -+ -+ -+ -+ -+2010-05-03T07:23:31.130560Z -+23be7b5a3fa8397ca2fa1aa5c316eebf -+2010-04-16T12:06:52.798869Z -+11956 -+smueller@cpan.org -+has-props -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+ -+26235 -+ -diff -urN Perl-MinimumVersion-1.24/lib.old/Perl/.svn/prop-base/MinimumVersion.pm.svn-base Perl-MinimumVersion-1.24/lib/Perl/.svn/prop-base/MinimumVersion.pm.svn-base ---- Perl-MinimumVersion-1.24/lib.old/Perl/.svn/prop-base/MinimumVersion.pm.svn-base 1970-01-01 01:00:00.000000000 +0100 -+++ Perl-MinimumVersion-1.24/lib/Perl/.svn/prop-base/MinimumVersion.pm.svn-base 2010-05-03 09:23:31.000000000 +0200 -@@ -0,0 +1,5 @@ -+K 13 -+svn:eol-style -+V 6 -+native -+END -diff -urN Perl-MinimumVersion-1.24/lib.old/Perl/.svn/text-base/MinimumVersion.pm.svn-base Perl-MinimumVersion-1.24/lib/Perl/.svn/text-base/MinimumVersion.pm.svn-base ---- Perl-MinimumVersion-1.24/lib.old/Perl/.svn/text-base/MinimumVersion.pm.svn-base 1970-01-01 01:00:00.000000000 +0100 -+++ Perl-MinimumVersion-1.24/lib/Perl/.svn/text-base/MinimumVersion.pm.svn-base 2010-05-03 09:23:31.000000000 +0200 -@@ -0,0 +1,1037 @@ -+package Perl::MinimumVersion; -+ -+=pod -+ -+=head1 NAME -+ -+Perl::MinimumVersion - Find a minimum required version of perl for Perl code -+ -+=head1 SYNOPSIS -+ -+ # Create the version checking object -+ $object = Perl::MinimumVersion->new( $filename ); -+ $object = Perl::MinimumVersion->new( \$source ); -+ $object = Perl::MinimumVersion->new( $ppi_document ); -+ -+ # Find the minimum version -+ $version = $object->minimum_version; -+ -+=head1 DESCRIPTION -+ -+C takes Perl source code and calculates the minimum -+version of perl required to be able to run it. Because it is based on -+L, it can do this without having to actually load the code. -+ -+Currently it tests both the syntax of your code, and the use of explicit -+version dependencies such as C. -+ -+Future plans are to also add support for tracing module dependencies. -+ -+Using C is dead simple, the synopsis pretty much -+covers it. -+ -+=head1 METHODS -+ -+=cut -+ -+use 5.006; -+use strict; -+use version (); -+use Carp (); -+use Exporter (); -+use List::Util (); -+use Params::Util ('_INSTANCE', '_CLASS'); -+use PPI::Util ('_Document'); -+use PPI (); -+use Perl::Critic::Utils 1.104 qw{ -+ :classification -+ :ppi -+}; -+ -+use Perl::MinimumVersion::Reason (); -+ -+use constant REASON => 'Perl::MinimumVersion::Reason'; -+ -+use vars qw{$VERSION @ISA @EXPORT_OK %CHECKS %MATCHES}; -+BEGIN { -+ $VERSION = '1.25'; -+ -+ # Only needed for dev releases, comment out otherwise -+ $VERSION = eval $VERSION; -+ -+ # Export the PMV convenience constant -+ @ISA = 'Exporter'; -+ @EXPORT_OK = 'PMV'; -+ -+ # The primary list of version checks -+ %CHECKS = ( -+ _feature_bundle_5_12 => version->new('5.012'), -+ _yada_yada_yada => version->new('5.012'), -+ _pkg_name_version => version->new('5.012'), -+ -+ _perl_5010_pragmas => version->new('5.010'), -+ _perl_5010_operators => version->new('5.010'), -+ _perl_5010_magic => version->new('5.010'), -+ -+ # Various small things -+ _bugfix_magic_errno => version->new('5.008.003'), -+ _unquoted_versions => version->new('5.008.001'), -+ _perl_5008_pragmas => version->new('5.008'), -+ _constant_hash => version->new('5.008'), -+ _use_base_exporter => version->new('5.008'), -+ _local_soft_reference => version->new('5.008'), -+ _use_carp_version => version->new('5.008'), -+ -+ # Included in 5.6. Broken until 5.8 -+ _pragma_utf8 => version->new('5.008'), -+ -+ _perl_5006_pragmas => version->new('5.006'), -+ _any_our_variables => version->new('5.006'), -+ _any_binary_literals => version->new('5.006'), -+ _any_version_literals => version->new('5.006'), #v-string -+ _magic_version => version->new('5.006'), -+ _any_attributes => version->new('5.006'), -+ _any_CHECK_blocks => version->new('5.006'), -+ _three_argument_open => version->new('5.006'), -+ _weaken => version->new('5.006'), -+ _mkdir_1_arg => version->new('5.006'), -+ -+ _any_qr_tokens => version->new('5.005.03'), -+ _perl_5005_pragmas => version->new('5.005'), -+ _perl_5005_modules => version->new('5.005'), -+ _any_tied_arrays => version->new('5.005'), -+ _any_quotelike_regexp => version->new('5.005'), -+ _any_INIT_blocks => version->new('5.005'), -+ _substr_4_arg => version->new('5.005'), -+ _splice_negative_length => version->new('5.005'), -+ -+ _postfix_foreach => version->new('5.004.05'), -+ ); -+ -+ # Predefine some indexes needed by various check methods -+ %MATCHES = ( -+ _perl_5010_pragmas => { -+ mro => 1, -+ feature => 1, -+ }, -+ _perl_5010_operators => { -+ '//' => 1, -+ '//=' => 1, -+ '~~' => 1, -+ }, -+ _perl_5010_magic => { -+ '%+' => 1, -+ '%-' => 1, -+ }, -+ _perl_5008_pragmas => { -+ threads => 1, -+ 'threads::shared' => 1, -+ sort => 1, -+ }, -+ _perl_5006_pragmas => { -+ warnings => 1, #may be ported into older version -+ 'warnings::register' => 1, -+ attributes => 1, -+ open => 1, -+ filetest => 1, -+ charnames => 1, -+ bytes => 1, -+ }, -+ _perl_5005_pragmas => { -+ re => 1, -+ fields => 1, # can be installed from CPAN, with base.pm -+ attr => 1, -+ }, -+ ); -+} -+ -+sub PMV () { 'Perl::MinimumVersion' } -+ -+ -+ -+ -+ -+##################################################################### -+# Constructor -+ -+=pod -+ -+=head2 new -+ -+ # Create the version checking object -+ $object = Perl::MinimumVersion->new( $filename ); -+ $object = Perl::MinimumVersion->new( \$source ); -+ $object = Perl::MinimumVersion->new( $ppi_document ); -+ -+The C constructor creates a new version checking object for a -+L. You can also provide the document to be read as a -+file name, or as a C reference containing the code. -+ -+Returns a new C object, or C on error. -+ -+=cut -+ -+sub new { -+ my $class = ref $_[0] ? ref shift : shift; -+ my $Document = _Document(shift) or return undef; -+ my $default = _INSTANCE(shift, 'version') || version->new('5.004'); -+ -+ # Create the object -+ my $self = bless { -+ Document => $Document, -+ -+ # Checking limit and default minimum version. -+ # Explicitly don't check below this version. -+ default => $default, -+ -+ # Caches for resolved versions -+ explicit => undef, -+ syntax => undef, -+ external => undef, -+ }, $class; -+ -+ $self; -+} -+ -+=pod -+ -+=head2 Document -+ -+The C accessor can be used to get the L object -+back out of the version checker. -+ -+=cut -+ -+sub Document { -+ $_[0]->{Document} -+} -+ -+ -+ -+ -+ -+##################################################################### -+# Main Methods -+ -+=pod -+ -+=head2 minimum_version -+ -+The C method is the primary method for finding the -+minimum perl version required based on C factors in the document. -+ -+At the present time, this is just syntax and explicit version checks, -+as L is not yet completed. -+ -+Returns a L object, or C on error. -+ -+=cut -+ -+sub minimum_version { -+ my $self = _SELF(\@_) or return undef; -+ my $minimum = $self->{default}; # Sensible default -+ -+ # Is the explicit version greater? -+ my $explicit = $self->minimum_explicit_version; -+ return undef unless defined $explicit; -+ if ( $explicit and $explicit > $minimum ) { -+ $minimum = $explicit; -+ } -+ -+ # Is the syntax version greater? -+ # Since this is the most expensive operation (for this file), -+ # we need to be careful we don't run things we don't need to. -+ my $syntax = $self->minimum_syntax_version; -+ return undef unless defined $syntax; -+ if ( $syntax and $syntax > $minimum ) { -+ $minimum = $syntax; -+ } -+ -+ ### FIXME - Disabled until minimum_external_version completed -+ # Is the external version greater? -+ #my $external = $self->minimum_external_version; -+ #return undef unless defined $external; -+ #if ( $external and $external > $minimum ) { -+ # $minimum = $external; -+ #} -+ -+ $minimum; -+} -+ -+sub minimum_reason { -+ my $self = _SELF(\@_) or return undef; -+ my $minimum = $self->default_reason; # Sensible default -+ -+ # Is the explicit version greater? -+ my $explicit = $self->minimum_explicit_version; -+ return undef unless defined $explicit; -+ if ( $explicit and $explicit > $minimum ) { -+ $minimum = $explicit; -+ } -+ -+} -+ -+sub default_reason { -+ Perl::MinimumVersion->new( -+ rule => 'default', -+ version => $_[0]->{default}, -+ element => undef, -+ ); -+} -+ -+=pod -+ -+=head2 minimum_explicit_version -+ -+The C method checks through Perl code for the -+use of explicit version dependencies such as. -+ -+ use 5.006; -+ require 5.005_03; -+ -+Although there is almost always only one of these in a file, if more than -+one are found, the highest version dependency will be returned. -+ -+Returns a L object, false if no dependencies could be found, -+or C on error. -+ -+=cut -+ -+sub minimum_explicit_version { -+ my $self = _SELF(\@_) or return undef; -+ my $reason = $self->minimum_explicit_reason(@_); -+ return $reason ? $reason->version : $reason; -+} -+ -+sub minimum_explicit_reason { -+ my $self = _SELF(\@_) or return undef; -+ unless ( defined $self->{explicit} ) { -+ $self->{explicit} = $self->_minimum_explicit_version; -+ } -+ return $self->{explicit}; -+} -+ -+sub _minimum_explicit_version { -+ my $self = shift or return undef; -+ my $explicit = $self->Document->find( sub { -+ $_[1]->isa('PPI::Statement::Include') or return ''; -+ $_[1]->version or return ''; -+ 1; -+ } ); -+ return $explicit unless $explicit; -+ -+ # Find the highest version -+ my $max = undef; -+ my $element = undef; -+ foreach my $include ( @$explicit ) { -+ my $version = version->new($include->version); -+ if ( $version > $max or not $element ) { -+ $max = $version; -+ $element = $include; -+ } -+ } -+ -+ return Perl::MinimumVersion::Reason->new( -+ rule => 'explicit', -+ version => $max, -+ element => $element, -+ ); -+} -+ -+=pod -+ -+=head2 minimum_syntax_version $limit -+ -+The C method will explicitly test only the -+Document's syntax to determine it's minimum version, to the extent -+that this is possible. -+ -+It takes an optional parameter of a L object defining the -+the lowest known current value. For example, if it is already known -+that it must be 5.006 or higher, then you can provide a param of -+qv(5.006) and the method will not run any of the tests below this -+version. This should provide dramatic speed improvements for -+large and/or complex documents. -+ -+The limitations of parsing Perl mean that this method may provide -+artifically low results, but should not artificially high results. -+ -+For example, if C returned 5.006, you can be -+confident it will not run on anything lower, although there is a chance -+that during actual execution it may use some untestable feature that -+creates a dependency on a higher version. -+ -+Returns a L object, false if no dependencies could be found, -+or C on error. -+ -+=cut -+ -+sub minimum_syntax_version { -+ my $self = _SELF(\@_) or return undef; -+ my $reason = $self->minimum_syntax_reason(@_); -+ return $reason ? $reason->version : $reason; -+} -+ -+sub minimum_syntax_reason { -+ my $self = _SELF(\@_) or return undef; -+ my $limit = shift; -+ if ( defined $limit and not _INSTANCE($limit, 'version') ) { -+ $limit = version->new("$limit"); -+ } -+ if ( defined $self->{syntax} ) { -+ if ( $self->{syntax}->version >= $limit ) { -+ # Previously discovered minimum is what they want -+ return $self->{syntax}; -+ } -+ -+ # Rather than return a value BELOW their filter, -+ # which they would not be expecting, return false. -+ return ''; -+ } -+ -+ # Look for the value -+ my $syntax = $self->_minimum_syntax_version( $limit ); -+ -+ # If we found a value, it will be stable, cache it. -+ # If we did NOT, don't cache as subsequent runs without -+ # the filter may find a version. -+ if ( $syntax ) { -+ $self->{syntax} = $syntax; -+ return $self->{syntax}; -+ } -+ -+ return ''; -+} -+ -+sub _minimum_syntax_version { -+ my $self = shift; -+ my $filter = shift || $self->{default}; -+ -+ # Always check in descending version order. -+ # By doing it this way, the version of the first check that matches -+ # is also the version of the document as a whole. -+ my @rules = sort { -+ $CHECKS{$b} <=> $CHECKS{$a} -+ } grep { -+ $CHECKS{$_} > $filter -+ } keys %CHECKS; -+ -+ foreach my $rule ( @rules ) { -+ my $result = $self->$rule() or next; -+ -+ # Create the result object -+ return Perl::MinimumVersion::Reason->new( -+ rule => $rule, -+ version => $CHECKS{$rule}, -+ element => _INSTANCE($result, 'PPI::Element'), -+ ); -+ } -+ -+ # Found nothing of interest -+ return ''; -+} -+ -+=pod -+ -+=head2 minimum_external_version -+ -+B -+ -+The C examines code for dependencies on other -+external files, and recursively traverses the dependency tree applying the -+same tests to those files as it does to the original. -+ -+Returns a C object, false if no dependencies could be found, or -+C on error. -+ -+=cut -+ -+sub minimum_external_version { -+ my $self = _SELF(\@_) or return undef; -+ my $reason = $self->minimum_explicit_reason(@_); -+ return $reason ? $reason->version : $reason; -+} -+ -+sub minimum_external_reason { -+ my $self = _SELF(\@_) or return undef; -+ unless ( defined $self->{external} ) { -+ $self->{external} = $self->_minimum_external_version; -+ } -+ $self->{external}; -+} -+ -+sub _minimum_external_version { -+ Carp::croak("Perl::MinimumVersion::minimum_external_version is not implemented"); -+} -+ -+=pod -+ -+=head2 version_markers -+ -+This method returns a list of pairs in the form: -+ -+ ($version, \@markers) -+ -+Each pair represents all the markers that could be found indicating that the -+version was the minimum needed version. C<@markers> is an array of strings. -+Currently, these strings are not as clear as they might be, but this may be -+changed in the future. In other words: don't rely on them as specific -+identifiers. -+ -+=cut -+ -+sub version_markers { -+ my $self = _SELF(\@_) or return undef; -+ -+ my %markers; -+ -+ if ( my $explicit = $self->minimum_explicit_version ) { -+ $markers{ $explicit } = [ 'explicit' ]; -+ } -+ -+ foreach my $check ( keys %CHECKS ) { -+ next unless $self->$check(); -+ my $markers = $markers{ $CHECKS{$check} } ||= []; -+ push @$markers, $check; -+ } -+ -+ my @rv; -+ my %marker_ver = map { $_ => version->new($_) } keys %markers; -+ -+ foreach my $ver ( sort { $marker_ver{$b} <=> $marker_ver{$a} } keys %markers ) { -+ push @rv, $marker_ver{$ver} => $markers{$ver}; -+ } -+ -+ return @rv; -+} -+ -+ -+ -+ -+##################################################################### -+# Version Check Methods -+ -+sub _yada_yada_yada { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Token::Operator') -+ and $_[1]->content eq '...' -+ } ); -+} -+ -+sub _feature_bundle_5_12 { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement::Include') or return ''; -+ $_[1]->pragma eq 'feature' or return ''; -+ my @child = $_[1]->schildren; -+ my @args = @child[1..$#child]; # skip 'use', 'feature' and ';' -+ foreach my $arg (@args) { -+ return $arg->content if $arg->content =~ /:5\.12/; -+ } -+ return ''; -+ } ); -+} -+ -+sub _pkg_name_version { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement::Package') or return ''; -+ my @child = $_[1]->schildren(); -+ $child[0]->isa('PPI::Token::Word') or return ''; -+ $child[0]->content eq 'package' or return ''; -+ $child[1]->isa('PPI::Token::Word') or return ''; -+ $child[2]->isa('PPI::Token::Number') or return ''; -+ return 1; -+ } ); -+} -+ -+sub _perl_5010_pragmas { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement::Include') -+ and -+ $MATCHES{_perl_5010_pragmas}->{$_[1]->pragma} -+ } ); -+} -+ -+sub _perl_5010_operators { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Token::Magic') -+ and -+ $MATCHES{_perl_5010_operators}->{$_[1]->content} -+ } ); -+} -+ -+sub _perl_5010_magic { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Token::Operator') -+ and -+ $MATCHES{_perl_5010_magic}->{$_[1]->content} -+ } ); -+} -+ -+sub _perl_5008_pragmas { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement::Include') -+ and -+ $MATCHES{_perl_5008_pragmas}->{$_[1]->pragma} -+ } ); -+} -+ -+# FIXME: Needs to be upgraded to return something -+sub _bugfix_magic_errno { -+ my $Document = shift->Document; -+ $Document->find_any( sub { -+ $_[1]->isa('PPI::Token::Magic') -+ and -+ $_[1]->content eq '$^E' -+ } ) -+ and -+ $Document->find_any( sub { -+ $_[1]->isa('PPI::Token::Magic') -+ and -+ $_[1]->content eq '$!' -+ } ); -+} -+ -+# version->new(5.005.004); -+sub _unquoted_versions { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Token::Number') or return ''; -+ $_[1]->{_subtype} or return ''; -+ $_[1]->{_subtype} eq 'base256' or return ''; -+ my $stmt = $_[1]->parent or return ''; -+ my $braces = $stmt->parent or return ''; -+ $braces->isa('PPI::Structure') or return ''; -+ $braces->braces eq '()' or return ''; -+ my $new = $braces->previous_sibling or return ''; -+ $new->isa('PPI::Token::Word') or return ''; -+ $new->content eq 'new' or return ''; -+ my $method = $new->previous_sibling or return ''; -+ $method->isa('PPI::Token::Operator') or return ''; -+ $method->content eq '->' or return ''; -+ my $_class = $method->previous_sibling or return ''; -+ $_class->isa('PPI::Token::Word') or return ''; -+ $_class->content eq 'version' or return ''; -+ 1; -+ } ); -+} -+ -+sub _pragma_utf8 { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement::Include') -+ and -+ ( -+ ($_[1]->module and $_[1]->module eq 'utf8') -+ or -+ ($_[1]->pragma and $_[1]->pragma eq 'utf8') -+ ) -+ # This used to be just pragma(), but that was buggy in PPI v1.118 -+ } ); -+} -+ -+# Check for the use of 'use constant { ... }' -+sub _constant_hash { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement::Include') -+ and -+ $_[1]->type -+ and -+ $_[1]->type eq 'use' -+ and -+ $_[1]->module eq 'constant' -+ and -+ $_[1]->schild(2)->isa('PPI::Structure') -+ } ); -+} -+ -+sub _perl_5006_pragmas { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement::Include') -+ and -+ $MATCHES{_perl_5006_pragmas}->{$_[1]->pragma} -+ } ); -+} -+ -+sub _any_our_variables { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement::Variable') -+ and -+ $_[1]->type eq 'our' -+ } ); -+} -+ -+sub _any_binary_literals { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Token::Number') -+ and -+ $_[1]->{_subtype} -+ and -+ $_[1]->{_subtype} eq 'binary' -+ } ); -+} -+ -+sub _any_version_literals { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Token::Number::Version') -+ } ); -+} -+ -+ -+sub _magic_version { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Token::Magic') -+ and -+ $_[1]->content eq '$^V' -+ } ); -+} -+ -+sub _any_attributes { -+ shift->Document->find_first( 'Token::Attribute' ); -+} -+ -+sub _any_CHECK_blocks { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement::Scheduled') -+ and -+ $_[1]->type eq 'CHECK' -+ } ); -+} -+ -+sub _any_qr_tokens { -+ shift->Document->find_first( 'Token::QuoteLike::Regexp' ); -+} -+ -+sub _perl_5005_pragmas { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement::Include') -+ and -+ $MATCHES{_perl_5005_pragmas}->{$_[1]->pragma} -+ } ); -+} -+ -+# A number of modules are highly indicative of using techniques -+# that are themselves version-dependant. -+sub _perl_5005_modules { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement::Include') -+ and -+ $_[1]->module -+ and ( -+ $_[1]->module eq 'Tie::Array' -+ or -+ ($_[1]->module =~ /\bException\b/ and -+ $_[1]->module !~ /^(?:CPAN)::/) -+ or -+ $_[1]->module =~ /\bThread\b/ -+ or -+ $_[1]->module =~ /^Error\b/ -+ or -+ $_[1]->module eq 'base' -+ or -+ $_[1]->module eq 'Errno' -+ ) -+ } ); -+} -+ -+sub _any_tied_arrays { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement::Sub') -+ and -+ $_[1]->name eq 'TIEARRAY' -+ } ) -+} -+ -+sub _any_quotelike_regexp { -+ shift->Document->find_first( 'Token::QuoteLike::Regexp' ); -+} -+ -+sub _any_INIT_blocks { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement::Scheduled') -+ and -+ $_[1]->type eq 'INIT' -+ } ); -+} -+ -+# use base 'Exporter' doesn't work reliably everywhere until 5.008 -+sub _use_base_exporter { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement::Include') -+ and -+ $_[1]->module eq 'base' -+ and -+ # Add the "not colon" characters to avoid accidentally -+ # colliding with any other Exporter-named modules -+ $_[1]->content =~ /[^:]\bExporter\b[^:]/ -+ } ); -+} -+ -+# You can't localize a soft reference -+sub _local_soft_reference { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement::Variable') or return ''; -+ $_[1]->type eq 'local' or return ''; -+ -+ # The second child should be a '$' cast. -+ my @child = $_[1]->schildren; -+ scalar(@child) >= 2 or return ''; -+ $child[1]->isa('PPI::Token::Cast') or return ''; -+ $child[1]->content eq '$' or return ''; -+ -+ # The third child should be a block -+ $child[2]->isa('PPI::Structure::Block') or return ''; -+ -+ # Inside the block should be a string in a statement -+ my $statement = $child[2]->schild(0) or return ''; -+ $statement->isa('PPI::Statement') or return ''; -+ my $inside = $statement->schild(0) or return ''; -+ $inside->isa('PPI::Token::Quote') or return ''; -+ -+ # This is indeed a localized soft reference -+ return 1; -+ } ); -+} -+ -+# Carp.pm did not have a $VERSION in 5.6.2 -+# Therefore, even "use Carp 0" imposes a 5.8.0 dependency. -+sub _use_carp_version { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement::Include') or return ''; -+ $_[1]->module eq 'Carp' or return ''; -+ -+ my $version = $_[1]->module_version; -+ return !! ( defined $version and length "$version" ); -+ } ); -+} -+ -+sub _three_argument_open { -+ shift->Document->find_first( sub { -+ $_[1]->isa('PPI::Statement') or return ''; -+ my @children=$_[1]->children; -+ #@children >= 7 or return ''; -+ my $main_element=$children[0]; -+ $main_element->isa('PPI::Token::Word') or return ''; -+ $main_element->content eq 'open' or return ''; -+ my @arguments = parse_arg_list($main_element); -+ if ( scalar @arguments > 2 ) { -+ return 1; -+ } -+ return ''; -+ } ); -+} -+ -+ -+sub _substr_4_arg { -+ shift->Document->find_first( sub { -+ my $main_element=$_[1]; -+ $main_element->isa('PPI::Token::Word') or return ''; -+ $main_element->content eq 'substr' or return ''; -+ return '' if is_hash_key($main_element); -+ return '' if is_method_call($main_element); -+ return '' if is_subroutine_name($main_element); -+ return '' if is_included_module_name($main_element); -+ return '' if is_package_declaration($main_element); -+ my @arguments = parse_arg_list($main_element); -+ if ( scalar @arguments > 3 ) { -+ return 1; -+ } -+ return ''; -+ } ); -+} -+ -+sub _mkdir_1_arg { -+ shift->Document->find_first( sub { -+ my $main_element=$_[1]; -+ $main_element->isa('PPI::Token::Word') or return ''; -+ $main_element->content eq 'mkdir' or return ''; -+ return '' if is_hash_key($main_element); -+ return '' if is_method_call($main_element); -+ return '' if is_subroutine_name($main_element); -+ return '' if is_included_module_name($main_element); -+ return '' if is_package_declaration($main_element); -+ my @arguments = parse_arg_list($main_element); -+ if ( scalar @arguments != 2 ) { -+ return 1; -+ } -+ return ''; -+ } ); -+} -+ -+sub _splice_negative_length { -+ shift->Document->find_first( sub { -+ my $main_element=$_[1]; -+ $main_element->isa('PPI::Token::Word') or return ''; -+ $main_element->content eq 'splice' or return ''; -+ return '' if is_hash_key($main_element); -+ return '' if is_method_call($main_element); -+ return '' if is_subroutine_name($main_element); -+ return '' if is_included_module_name($main_element); -+ return '' if is_package_declaration($main_element); -+ -+ my @arguments = parse_arg_list($main_element); -+ if ( scalar @arguments < 3 ) { -+ return ''; -+ } -+ my $arg=$arguments[2]; -+ if (ref($arg) eq 'ARRAY') { -+ $arg=$arg->[0]; -+ } -+ if ($arg->isa('PPI::Token::Number')) { -+ if ($arg->literal<0) { -+ return 1; -+ } else { -+ return ''; -+ } -+ } -+ return ''; -+ } ); -+ -+} -+ -+sub _postfix_foreach { -+ shift->Document->find_first( sub { -+ my $main_element=$_[1]; -+ $main_element->isa('PPI::Token::Word') or return ''; -+ $main_element->content eq 'foreach' or return ''; -+ return '' if is_hash_key($main_element); -+ return '' if is_method_call($main_element); -+ return '' if is_subroutine_name($main_element); -+ return '' if is_included_module_name($main_element); -+ return '' if is_package_declaration($main_element); -+ my $stmnt = $main_element->statement(); -+ return '' if !$stmnt; -+ return '' if $stmnt->isa('PPI::Statement::Compound'); -+ return 1; -+ } ); -+} -+ -+# weak references require perl 5.6 -+# will not work in case of importing several -+sub _weaken { -+ shift->Document->find_first( sub { -+ ( -+ $_[1]->isa('PPI::Statement::Include') -+ and -+ $_[1]->module eq 'Scalar::Util' -+ and -+ $_[1]->content =~ /[^:]\b(?:weaken|isweak)\b[^:]/ -+ ) -+ or -+ ( -+ $_[1]->isa('PPI::Token::Word') -+ and -+ ( -+ $_[1]->content eq 'Scalar::Util::isweak' -+ or -+ $_[1]->content eq 'Scalar::Util::weaken' -+ ) -+ #and -+ #is_function_call($_[1]) -+ ) -+ } ); -+} -+ -+ -+ -+ -+ -+##################################################################### -+# Support Functions -+ -+# Let sub be a function, object method, and static method -+sub _SELF { -+ my $param = shift; -+ if ( _INSTANCE($param->[0], 'Perl::MinimumVersion') ) { -+ return shift @$param; -+ } -+ if ( -+ _CLASS($param->[0]) -+ and -+ $param->[0]->isa('Perl::MinimumVersion') -+ ) { -+ my $class = shift @$param; -+ my $options = shift @$param; -+ return $class->new($options); -+ } -+ Perl::MinimumVersion->new(shift @$param); -+} -+ -+# Find the maximum version, ignoring problems -+sub _max { -+ defined $_[0] and "$_[0]" eq PMV and shift; -+ -+ # Filter and prepare for a Schwartian maximum -+ my @valid = map { -+ [ $_, $_->isa(REASON) ? $_->version : $_ ] -+ } grep { -+ _INSTANCE($_, REASON) -+ or -+ _INSTANCE($_, 'version') -+ } @_ or return ''; -+ -+ # Find the maximum -+ my $max = shift @valid; -+ foreach my $it ( @valid ) { -+ $max = $it if $it->[1] > $max->[1]; -+ } -+ -+ return $max->[0]; -+} -+ -+1; -+ -+=pod -+ -+=head1 BUGS -+ -+B does a reasonable job of catching the best-known -+explicit version dependencies. -+ -+B it is exceedingly easy to add a new syntax check, so if you -+find something this is missing, copy and paste one of the existing -+5 line checking functions, modify it to find what you want, and report it -+to rt.cpan.org, along with the version needed. -+ -+I don't even need an entire diff... just the function and version. -+ -+=head1 TO DO -+ -+B -+ -+- Perl 5.10 operators and language structures -+ -+- Three-argument open -+ -+B -+ -+B -+ -+B, C<...>, and C)> -+ -+=head1 SUPPORT -+ -+All bugs should be filed via the CPAN bug tracker at -+ -+L -+ -+For other issues, or commercial enhancement or support, contact the author. -+ -+=head1 AUTHORS -+ -+Adam Kennedy Eadamk@cpan.orgE -+ -+=head1 SEE ALSO -+ -+L, L, L -+ -+=head1 COPYRIGHT -+ -+Copyright 2005 - 2010 Adam Kennedy. -+ -+This program is free software; you can redistribute -+it and/or modify it under the same terms as Perl itself. -+ -+The full text of the license can be found in the -+LICENSE file included with this module. -+ -+=cut -diff -urN Perl-MinimumVersion-1.24/t.old/02_main.t Perl-MinimumVersion-1.24/t/02_main.t ---- Perl-MinimumVersion-1.24/t.old/02_main.t 2010-01-21 22:26:15.000000000 +0100 -+++ Perl-MinimumVersion-1.24/t/02_main.t 2010-05-03 09:23:30.000000000 +0200 -@@ -8,7 +8,7 @@ - $^W = 1; - } - --use Test::More tests => 74; -+use Test::More tests => 75; - use version; - use File::Spec::Functions ':ALL'; - use PPI; -@@ -210,6 +210,11 @@ - "5.006 syntax found when no limit supplied", - ); - is( -+ $minver->minimum_syntax_version(5.005), -+ 5.006, -+ "5.006 syntax found when 5.005 limit supplied", -+); -+is( - $minver->minimum_syntax_version(version->new(5.008)), - '', - "no syntax constraints found when 5.008 limit supplied", -@@ -217,7 +222,7 @@ - is( - Perl::MinimumVersion->minimum_syntax_version($doc, version->new(5.008)), - '', -- "also works as object method with limit: no constriants found", -+ "also works as object method with limit: no constraints found", - ); - } - -diff -urN Perl-MinimumVersion-1.24/t.old/03_open_3arg.t Perl-MinimumVersion-1.24/t/03_open_3arg.t ---- Perl-MinimumVersion-1.24/t.old/03_open_3arg.t 2010-01-21 22:26:15.000000000 +0100 -+++ Perl-MinimumVersion-1.24/t/03_open_3arg.t 2010-05-03 09:23:30.000000000 +0200 -@@ -1,38 +1,38 @@ --#!/usr/bin/perl -w -- --use strict; --BEGIN { -- $| = 1; -- $^W = 1; --} -- --use Test::More; -- --#use version; --use Perl::MinimumVersion; --my @examples_not3arg = ( -- q{close $x;}, -- q{open A,'test.txt'}, -- q{open INFO, "< datafile" or print "can't open datafile: ",$!;}, -- q{open INFO, "< datafile" or die;}, -- q{open(INFO, "datafile") || die("can't open datafile: $!");}, -- q{open my $fh, ">$output";}, -- q/if(open my $fh, $output) {}/, --); --my @examples_3arg = ( -- q{open A,'<','test.txt';}, -- q{open( INFO, ">", $datafile ) || die "Can't create $datafile: $!";}, -- q{open( INFO, ">", $datafile )}, -- q{open my $fh, '>', $output;}, -- q/if(open my $fh, '>', $output) {}/, -- q{open my $fh, '|-', 'test','arg1';}, --); --plan tests =>(@examples_3arg+@examples_not3arg); --foreach my $example (@examples_not3arg) { -- my $p = Perl::MinimumVersion->new(\$example); -- is( $p->_three_argument_open, '', $example ); --} --foreach my $example (@examples_3arg) { -- my $p = Perl::MinimumVersion->new(\$example); -- ok( $p->_three_argument_open, $example ); --} -+#!/usr/bin/perl -w -+ -+use strict; -+BEGIN { -+ $| = 1; -+ $^W = 1; -+} -+ -+use Test::More; -+ -+#use version; -+use Perl::MinimumVersion; -+my @examples_not3arg = ( -+ q{close $x;}, -+ q{open A,'test.txt'}, -+ q{open INFO, "< datafile" or print "can't open datafile: ",$!;}, -+ q{open INFO, "< datafile" or die;}, -+ q{open(INFO, "datafile") || die("can't open datafile: $!");}, -+ q{open my $fh, ">$output";}, -+ q/if(open my $fh, $output) {}/, -+); -+my @examples_3arg = ( -+ q{open A,'<','test.txt';}, -+ q{open( INFO, ">", $datafile ) || die "Can't create $datafile: $!";}, -+ q{open( INFO, ">", $datafile )}, -+ q{open my $fh, '>', $output;}, -+ q/if(open my $fh, '>', $output) {}/, -+ q{open my $fh, '|-', 'test','arg1';}, -+); -+plan tests =>(@examples_3arg+@examples_not3arg); -+foreach my $example (@examples_not3arg) { -+ my $p = Perl::MinimumVersion->new(\$example); -+ is( $p->_three_argument_open, '', $example ); -+} -+foreach my $example (@examples_3arg) { -+ my $p = Perl::MinimumVersion->new(\$example); -+ ok( $p->_three_argument_open, $example ); -+} -diff -urN Perl-MinimumVersion-1.24/t.old/04_substr.t Perl-MinimumVersion-1.24/t/04_substr.t ---- Perl-MinimumVersion-1.24/t.old/04_substr.t 2010-01-21 22:26:15.000000000 +0100 -+++ Perl-MinimumVersion-1.24/t/04_substr.t 2010-05-03 09:23:30.000000000 +0200 -@@ -1,32 +1,32 @@ --#!/usr/bin/perl -w -- --use strict; --BEGIN { -- $| = 1; -- $^W = 1; --} -- --use Test::More; -- --#use version; --use Perl::MinimumVersion; --my @examples_not=( -- q{substr 'asdf',1,1 or print 2,2;}, -- q{substr('asdf',1,1);}, -- q{my $a=substr('asdf',1,1);}, -- q{$a->substr('asdf',1,1,'aa');}, --); --my @examples_yes=( -- q{substr('asdf',1,1,'tt');}, -- q{my $a=substr('asdf',1,1,'aa');}, -- q/if(substr('asdf',1,1,'aa')) {}/, --); --plan tests =>(@examples_yes+@examples_not); --foreach my $example (@examples_not) { -- my $p = Perl::MinimumVersion->new(\$example); -- is($p->_substr_4_arg,'',$example); --} --foreach my $example (@examples_yes) { -- my $p = Perl::MinimumVersion->new(\$example); -- is($p->_substr_4_arg, 'substr', $example); --} -+#!/usr/bin/perl -w -+ -+use strict; -+BEGIN { -+ $| = 1; -+ $^W = 1; -+} -+ -+use Test::More; -+ -+#use version; -+use Perl::MinimumVersion; -+my @examples_not=( -+ q{substr 'asdf',1,1 or print 2,2;}, -+ q{substr('asdf',1,1);}, -+ q{my $a=substr('asdf',1,1);}, -+ q{$a->substr('asdf',1,1,'aa');}, -+); -+my @examples_yes=( -+ q{substr('asdf',1,1,'tt');}, -+ q{my $a=substr('asdf',1,1,'aa');}, -+ q/if(substr('asdf',1,1,'aa')) {}/, -+); -+plan tests =>(@examples_yes+@examples_not); -+foreach my $example (@examples_not) { -+ my $p = Perl::MinimumVersion->new(\$example); -+ is($p->_substr_4_arg,'',$example); -+} -+foreach my $example (@examples_yes) { -+ my $p = Perl::MinimumVersion->new(\$example); -+ is($p->_substr_4_arg, 'substr', $example); -+} -diff -urN Perl-MinimumVersion-1.24/t.old/05_foreach.t Perl-MinimumVersion-1.24/t/05_foreach.t ---- Perl-MinimumVersion-1.24/t.old/05_foreach.t 2010-01-21 22:26:15.000000000 +0100 -+++ Perl-MinimumVersion-1.24/t/05_foreach.t 2010-05-03 09:23:30.000000000 +0200 -@@ -1,30 +1,30 @@ --#!/usr/bin/perl -w -- --use strict; --BEGIN { -- $| = 1; -- $^W = 1; --} -- --use Test::More; -- --#use version; --use Perl::MinimumVersion; --my @examples_not=( -- q'foreach (1,2,3) {}', -- q{print "$_," while $a;}, --); --my @examples_yes=( -- q{print "$_," foreach split //,"asdf";}, -- q{print "$_," foreach (1,2,3,4);}, -- q{print "$_," foreach 'asdf';}, --); --plan tests =>(@examples_yes+@examples_not); --foreach my $example (@examples_not) { -- my $p = Perl::MinimumVersion->new(\$example); -- is($p->_postfix_foreach, '', $example); --} --foreach my $example (@examples_yes) { -- my $p = Perl::MinimumVersion->new(\$example); -- is($p->_postfix_foreach, 'foreach', $example); --} -+#!/usr/bin/perl -w -+ -+use strict; -+BEGIN { -+ $| = 1; -+ $^W = 1; -+} -+ -+use Test::More; -+ -+#use version; -+use Perl::MinimumVersion; -+my @examples_not=( -+ q'foreach (1,2,3) {}', -+ q{print "$_," while $a;}, -+); -+my @examples_yes=( -+ q{print "$_," foreach split //,"asdf";}, -+ q{print "$_," foreach (1,2,3,4);}, -+ q{print "$_," foreach 'asdf';}, -+); -+plan tests =>(@examples_yes+@examples_not); -+foreach my $example (@examples_not) { -+ my $p = Perl::MinimumVersion->new(\$example); -+ is($p->_postfix_foreach, '', $example); -+} -+foreach my $example (@examples_yes) { -+ my $p = Perl::MinimumVersion->new(\$example); -+ is($p->_postfix_foreach, 'foreach', $example); -+} -diff -urN Perl-MinimumVersion-1.24/t.old/06_weaken.t Perl-MinimumVersion-1.24/t/06_weaken.t ---- Perl-MinimumVersion-1.24/t.old/06_weaken.t 2010-01-21 22:26:15.000000000 +0100 -+++ Perl-MinimumVersion-1.24/t/06_weaken.t 2010-05-03 09:23:30.000000000 +0200 -@@ -1,33 +1,33 @@ --#!/usr/bin/perl -w -- --use strict; --BEGIN { -- $| = 1; -- $^W = 1; --} -- --use Test::More; -- --#use version; --use Perl::MinimumVersion; --my @examples_not=( -- q{use Scalar::Util;}, -- q{use Scalar::Util qw/weakening/;}, --); --my @examples_yes=( -- q{use Scalar::Util qw/test weaken test/;}, -- q{use Scalar::Util qw/weaken/;}, -- q{use Scalar::Util qw/isweak/;}, -- q{Scalar::Util::weaken($b);}, -- q'if(Scalar::Util::isweak($a)) {}', -- q'if(Scalar::Util::isweak $a ) {}', --); --plan tests =>(@examples_yes+@examples_not); --foreach my $example (@examples_not) { -- my $p = Perl::MinimumVersion->new(\$example); -- is( $p->_weaken,'',$example ); --} --foreach my $example (@examples_yes) { -- my $p = Perl::MinimumVersion->new(\$example); -- ok( $p->_weaken, $example ); --} -+#!/usr/bin/perl -w -+ -+use strict; -+BEGIN { -+ $| = 1; -+ $^W = 1; -+} -+ -+use Test::More; -+ -+#use version; -+use Perl::MinimumVersion; -+my @examples_not=( -+ q{use Scalar::Util;}, -+ q{use Scalar::Util qw/weakening/;}, -+); -+my @examples_yes=( -+ q{use Scalar::Util qw/test weaken test/;}, -+ q{use Scalar::Util qw/weaken/;}, -+ q{use Scalar::Util qw/isweak/;}, -+ q{Scalar::Util::weaken($b);}, -+ q'if(Scalar::Util::isweak($a)) {}', -+ q'if(Scalar::Util::isweak $a ) {}', -+); -+plan tests =>(@examples_yes+@examples_not); -+foreach my $example (@examples_not) { -+ my $p = Perl::MinimumVersion->new(\$example); -+ is( $p->_weaken,'',$example ); -+} -+foreach my $example (@examples_yes) { -+ my $p = Perl::MinimumVersion->new(\$example); -+ ok( $p->_weaken, $example ); -+} -diff -urN Perl-MinimumVersion-1.24/t.old/07_splice.t Perl-MinimumVersion-1.24/t/07_splice.t ---- Perl-MinimumVersion-1.24/t.old/07_splice.t 2010-01-21 22:26:15.000000000 +0100 -+++ Perl-MinimumVersion-1.24/t/07_splice.t 2010-05-03 09:23:30.000000000 +0200 -@@ -1,36 +1,36 @@ --#!/usr/bin/perl -w -- --use strict; --BEGIN { -- $| = 1; -- $^W = 1; --} -- --use Test::More; -- --#use version; --use Perl::MinimumVersion; --my @examples_not=( -- q{splice(@a,1);}, -- q{splice @a,1;}, -- q{splice @a,1,1;}, -- q{splice @a,1,1,@b;}, -- q{splice @a,1 or die -1,1;}, -- q{$test->splice(@a,1,-1,@b);}, --); --my @examples_yes=( -- q{splice @a,1,-1;}, -- q{splice(@a,1,-1);}, -- q{$c=splice(@a,1,-1);}, --); --plan tests =>(@examples_not+@examples_yes); --foreach my $example (@examples_not) { -- my $p = Perl::MinimumVersion->new(\$example); -+#!/usr/bin/perl -w -+ -+use strict; -+BEGIN { -+ $| = 1; -+ $^W = 1; -+} -+ -+use Test::More; -+ -+#use version; -+use Perl::MinimumVersion; -+my @examples_not=( -+ q{splice(@a,1);}, -+ q{splice @a,1;}, -+ q{splice @a,1,1;}, -+ q{splice @a,1,1,@b;}, -+ q{splice @a,1 or die -1,1;}, -+ q{$test->splice(@a,1,-1,@b);}, -+); -+my @examples_yes=( -+ q{splice @a,1,-1;}, -+ q{splice(@a,1,-1);}, -+ q{$c=splice(@a,1,-1);}, -+); -+plan tests =>(@examples_not+@examples_yes); -+foreach my $example (@examples_not) { -+ my $p = Perl::MinimumVersion->new(\$example); - is($p->_splice_negative_length, '', $example) -- or do { diag "\$\@: $@" if $@ }; --} --foreach my $example (@examples_yes) { -- my $p = Perl::MinimumVersion->new(\$example); -+ or do { diag "\$\@: $@" if $@ }; -+} -+foreach my $example (@examples_yes) { -+ my $p = Perl::MinimumVersion->new(\$example); - is( $p->_splice_negative_length, 'splice', $example ) -- or do { diag "\$\@: $@" if $@ }; --} -+ or do { diag "\$\@: $@" if $@ }; -+} -diff -urN Perl-MinimumVersion-1.24/t.old/08_mkdir.t Perl-MinimumVersion-1.24/t/08_mkdir.t ---- Perl-MinimumVersion-1.24/t.old/08_mkdir.t 2010-01-21 22:26:15.000000000 +0100 -+++ Perl-MinimumVersion-1.24/t/08_mkdir.t 2010-05-03 09:23:30.000000000 +0200 -@@ -1,34 +1,34 @@ --#!/usr/bin/perl -w -- --use strict; --BEGIN { -- $| = 1; -- $^W = 1; --} -- --use Test::More; -- --#use version; --use Perl::MinimumVersion; --my @examples_not=( -- q{mkdir1('test',1);}, -- q{mkdir('test',1);}, -- q{mkdir 'test',1;}, -- q{$test->mkdir('a');}, --); --my @examples_yes=( -- q{mkdir('test');}, -- q{mkdir 'test';}, -- q{$c=mkdir('test');}, --); --plan tests =>(@examples_not+@examples_yes); --foreach my $example (@examples_not) { -- my $p = Perl::MinimumVersion->new(\$example); -+#!/usr/bin/perl -w -+ -+use strict; -+BEGIN { -+ $| = 1; -+ $^W = 1; -+} -+ -+use Test::More; -+ -+#use version; -+use Perl::MinimumVersion; -+my @examples_not=( -+ q{mkdir1('test',1);}, -+ q{mkdir('test',1);}, -+ q{mkdir 'test',1;}, -+ q{$test->mkdir('a');}, -+); -+my @examples_yes=( -+ q{mkdir('test');}, -+ q{mkdir 'test';}, -+ q{$c=mkdir('test');}, -+); -+plan tests =>(@examples_not+@examples_yes); -+foreach my $example (@examples_not) { -+ my $p = Perl::MinimumVersion->new(\$example); - is( $p->_mkdir_1_arg, '', $example ) -- or do { diag "\$\@: $@" if $@ }; --} --foreach my $example (@examples_yes) { -- my $p = Perl::MinimumVersion->new(\$example); -+ or do { diag "\$\@: $@" if $@ }; -+} -+foreach my $example (@examples_yes) { -+ my $p = Perl::MinimumVersion->new(\$example); - is( $p->_mkdir_1_arg, 'mkdir', $example ) -- or do { diag "\$\@: $@" if $@ }; --} -+ or do { diag "\$\@: $@" if $@ }; -+} -diff -urN Perl-MinimumVersion-1.24/t.old/09_pkg_name_version.t Perl-MinimumVersion-1.24/t/09_pkg_name_version.t ---- Perl-MinimumVersion-1.24/t.old/09_pkg_name_version.t 1970-01-01 01:00:00.000000000 +0100 -+++ Perl-MinimumVersion-1.24/t/09_pkg_name_version.t 2010-05-03 09:23:30.000000000 +0200 -@@ -0,0 +1,38 @@ -+#!/usr/bin/perl -w -+ -+use strict; -+BEGIN { -+ $| = 1; -+ $^W = 1; -+} -+ -+use Test::More; -+ -+#use version; -+use Perl::MinimumVersion; -+my @examples_not=( -+ q{package Foo;}, -+ q{package Foo;}, -+ q{use Foo 1.2;}, -+ q{package Foo::Bar;}, -+); -+my @examples_yes=( -+ q{package Foo 1;}, -+ q{package Foo::Bar 1;}, -+ q{package Foo 1;}, -+ q{package Foo 1.;}, -+ q{package Foo::Bar::Baz 1.000}, -+ q{package Foo::Bar::Baz 1.1.1}, -+); -+plan tests =>(@examples_not+@examples_yes); -+foreach my $example (@examples_not) { -+ my $p = Perl::MinimumVersion->new(\$example); -+ is( $p->_pkg_name_version, '', $example ) -+ or do { diag "\$\@: $@" if $@ }; -+} -+foreach my $example (@examples_yes) { -+ my $p = Perl::MinimumVersion->new(\$example); -+ ok( $p->_pkg_name_version, $example ) -+ or do { diag "\$\@: $@" if $@ }; -+} -+ -diff -urN Perl-MinimumVersion-1.24/t.old/10_yada_yada_yada.t Perl-MinimumVersion-1.24/t/10_yada_yada_yada.t ---- Perl-MinimumVersion-1.24/t.old/10_yada_yada_yada.t 1970-01-01 01:00:00.000000000 +0100 -+++ Perl-MinimumVersion-1.24/t/10_yada_yada_yada.t 2010-05-03 09:23:30.000000000 +0200 -@@ -0,0 +1,34 @@ -+#!/usr/bin/perl -w -+ -+use strict; -+BEGIN { -+ $| = 1; -+ $^W = 1; -+} -+ -+use Test::More; -+ -+#use version; -+use Perl::MinimumVersion; -+my @examples_not=( -+ q{'foo'.'foo'}, # okay, okay, adding close examples is a TODO -+ q{sub foo {}}, -+); -+my @examples_yes=( -+ q{...}, -+ q{...;}, -+ q{if(1){...}}, -+ q{sub foo {...}}, -+); -+plan tests =>(@examples_not+@examples_yes); -+foreach my $example (@examples_not) { -+ my $p = Perl::MinimumVersion->new(\$example); -+ is( $p->_yada_yada_yada, '', $example ) -+ or do { diag "\$\@: $@" if $@ }; -+} -+foreach my $example (@examples_yes) { -+ my $p = Perl::MinimumVersion->new(\$example); -+ ok( $p->_yada_yada_yada, $example ) -+ or do { diag "\$\@: $@" if $@ }; -+} -+ -diff -urN Perl-MinimumVersion-1.24/t.old/11_feature_bundle_512.t Perl-MinimumVersion-1.24/t/11_feature_bundle_512.t ---- Perl-MinimumVersion-1.24/t.old/11_feature_bundle_512.t 1970-01-01 01:00:00.000000000 +0100 -+++ Perl-MinimumVersion-1.24/t/11_feature_bundle_512.t 2010-05-03 09:23:30.000000000 +0200 -@@ -0,0 +1,36 @@ -+#!/usr/bin/perl -w -+ -+use strict; -+BEGIN { -+ $| = 1; -+ $^W = 1; -+} -+ -+use Test::More; -+ -+#use version; -+use Perl::MinimumVersion; -+my @examples_not=( -+ q{use feature ':5.8'}, -+ q{use feature ':5.10'}, -+ q{use feature}, -+ q{use feature 'say', ':5.10';}, -+); -+my @examples_yes=( -+ q{use feature ':5.8', ':5.12'}, -+ q{use feature ':5.12'}, -+ q{use feature ':5.12', "say"}, -+ q{use feature ':5.12';}, -+); -+plan tests =>(@examples_not+@examples_yes); -+foreach my $example (@examples_not) { -+ my $p = Perl::MinimumVersion->new(\$example); -+ is( $p->_feature_bundle_5_12, '', $example ) -+ or do { diag "\$\@: $@" if $@ }; -+} -+foreach my $example (@examples_yes) { -+ my $p = Perl::MinimumVersion->new(\$example); -+ ok( $p->_feature_bundle_5_12, $example ) -+ or do { diag "\$\@: $@" if $@ }; -+} -+ -diff -urN Perl-MinimumVersion-1.24/t.old/97_meta.t Perl-MinimumVersion-1.24/t/97_meta.t ---- Perl-MinimumVersion-1.24/t.old/97_meta.t 2010-01-21 22:26:15.000000000 +0100 -+++ Perl-MinimumVersion-1.24/t/97_meta.t 1970-01-01 01:00:00.000000000 +0100 -@@ -1,27 +0,0 @@ --#!/usr/bin/perl -- --# Test that our META.yml file matches the current specification. -- --use strict; --BEGIN { -- $| = 1; -- $^W = 1; --} -- --my $MODULE = 'Test::CPAN::Meta 0.12'; -- --# Don't run tests for installs --use Test::More; --unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) { -- plan( skip_all => "Author tests not required for installation" ); --} -- --# Load the testing module --eval "use $MODULE"; --if ( $@ ) { -- $ENV{RELEASE_TESTING} -- ? die( "Failed to load required release-testing module $MODULE" ) -- : plan( skip_all => "$MODULE not available for testing" ); --} -- --meta_yaml_ok(); -diff -urN Perl-MinimumVersion-1.24/t.old/98_pod.t Perl-MinimumVersion-1.24/t/98_pod.t ---- Perl-MinimumVersion-1.24/t.old/98_pod.t 2010-01-21 22:26:15.000000000 +0100 -+++ Perl-MinimumVersion-1.24/t/98_pod.t 1970-01-01 01:00:00.000000000 +0100 -@@ -1,32 +0,0 @@ --#!/usr/bin/perl -- --# Test that the syntax of our POD documentation is valid -- --use strict; --BEGIN { -- $| = 1; -- $^W = 1; --} -- --my @MODULES = ( -- 'Pod::Simple 3.07', -- 'Test::Pod 1.26', --); -- --# Don't run tests for installs --use Test::More; --unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) { -- plan( skip_all => "Author tests not required for installation" ); --} -- --# Load the testing modules --foreach my $MODULE ( @MODULES ) { -- eval "use $MODULE"; -- if ( $@ ) { -- $ENV{RELEASE_TESTING} -- ? die( "Failed to load required release-testing module $MODULE" ) -- : plan( skip_all => "$MODULE not available for testing" ); -- } --} -- --all_pod_files_ok(); -diff -urN Perl-MinimumVersion-1.24/t.old/99_pmv.t Perl-MinimumVersion-1.24/t/99_pmv.t ---- Perl-MinimumVersion-1.24/t.old/99_pmv.t 2010-01-21 22:26:15.000000000 +0100 -+++ Perl-MinimumVersion-1.24/t/99_pmv.t 1970-01-01 01:00:00.000000000 +0100 -@@ -1,32 +0,0 @@ --#!/usr/bin/perl -- --# Test that our declared minimum Perl version matches our syntax -- --use strict; --BEGIN { -- $| = 1; -- $^W = 1; --} -- --my @MODULES = ( -- 'Perl::MinimumVersion 1.20', -- 'Test::MinimumVersion 0.008', --); -- --# Don't run tests for installs --use Test::More; --unless ( $ENV{AUTOMATED_TESTING} or $ENV{RELEASE_TESTING} ) { -- plan( skip_all => "Author tests not required for installation" ); --} -- --# Load the testing modules --foreach my $MODULE ( @MODULES ) { -- eval "use $MODULE"; -- if ( $@ ) { -- $ENV{RELEASE_TESTING} -- ? die( "Failed to load required release-testing module $MODULE" ) -- : plan( skip_all => "$MODULE not available for testing" ); -- } --} -- --all_minimum_version_from_metayml_ok(); From 7a4cea75a6da2eeebf9d69e8aac6710f17e68db8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ralf=20Cors=C3=A9pius?= Date: Fri, 6 Aug 2010 12:46:00 +0200 Subject: [PATCH 21/56] Fedpkg should have removed this. --- .gitignore | 1 - 1 file changed, 1 deletion(-) diff --git a/.gitignore b/.gitignore index 51239c5..7209971 100644 --- a/.gitignore +++ b/.gitignore @@ -1,2 +1 @@ -Perl-MinimumVersion-1.24.tar.gz Perl-MinimumVersion-1.26.tar.gz From c12a05a5a42983798de7ee297f1f8c2827618748 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Marcela=20Ma=C5=A1l=C3=A1=C5=88ov=C3=A1?= Date: Tue, 21 Dec 2010 14:25:57 +0100 Subject: [PATCH 22/56] - 661697 rebuild for fixing problems with vendorach/lib --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 4f62d68..32fa2fd 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.26 -Release: 1%{?dist} +Release: 2%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -60,6 +60,9 @@ make test AUTOMATED_TESTING=1 %{_mandir}/man3/* %changelog +* Tue Dec 21 2010 Marcela Maslanova - 1.26-2 +- 661697 rebuild for fixing problems with vendorach/lib + * Thu Aug 05 2010 Ralf Corsépius - 1.26-1 - Upstream update. From 005767edc74f035f7a64c340c2ca906aec9a7d71 Mon Sep 17 00:00:00 2001 From: Dennis Gilmore Date: Tue, 8 Feb 2011 23:46:27 -0600 Subject: [PATCH 23/56] - Rebuilt for https://fedoraproject.org/wiki/Fedora_15_Mass_Rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 32fa2fd..76e07de 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.26 -Release: 2%{?dist} +Release: 3%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -60,6 +60,9 @@ make test AUTOMATED_TESTING=1 %{_mandir}/man3/* %changelog +* Tue Feb 08 2011 Fedora Release Engineering - 1.26-3 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_15_Mass_Rebuild + * Tue Dec 21 2010 Marcela Maslanova - 1.26-2 - 661697 rebuild for fixing problems with vendorach/lib From 4accbef6080bc4caf73abe0e2025a3b876138d8a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ralf=20Cors=C3=A9pius?= Date: Fri, 17 Jun 2011 12:31:07 +0200 Subject: [PATCH 24/56] Upstream update. Remove maintainer test (Upstream doesn't want us to find his bugs). Update BR's. --- .gitignore | 2 +- perl-Perl-MinimumVersion.spec | 28 +++++++++++----------------- sources | 2 +- 3 files changed, 13 insertions(+), 19 deletions(-) diff --git a/.gitignore b/.gitignore index 7209971..7f45cbd 100644 --- a/.gitignore +++ b/.gitignore @@ -1 +1 @@ -Perl-MinimumVersion-1.26.tar.gz +/Perl-MinimumVersion-1.28.tar.gz diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 76e07de..df4777c 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,19 +1,18 @@ Name: perl-Perl-MinimumVersion -Version: 1.26 -Release: 3%{?dist} +Version: 1.28 +Release: 1%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries URL: http://search.cpan.org/dist/Perl-MinimumVersion/ Source0: http://search.cpan.org/CPAN/authors/id/A/AD/ADAMK/Perl-MinimumVersion-%{version}.tar.gz -BuildRoot: %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n) Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version)) BuildArch: noarch -BuildRequires: perl(List::Util) >= 1.18 -BuildRequires: perl(PPI) >= 1.205 -BuildRequires: perl(Test::Script) >= 1.02 +BuildRequires: perl(List::Util) >= 1.20 +BuildRequires: perl(PPI) >= 1.215 +BuildRequires: perl(Test::Script) >= 1.03 BuildRequires: perl(version) >= 0.76 BuildRequires: perl(File::Find::Rule) >= 0.32 BuildRequires: perl(File::Find::Rule::Perl) >= 1.04 @@ -22,12 +21,6 @@ BuildRequires: perl(Test::More) >= 0.47 BuildRequires: perl(Perl::Critic::Utils) >= 1.104 BuildRequires: perl(Params::Util) >= 0.25 -# For improved tests -BuildRequires: perl(Test::Pod) >= 1.26 -BuildRequires: perl(Test::CPAN::Meta) >= 0.12 -BuildRequires: perl(Pod::Simple) >= 3.07 -BuildRequires: perl(Test::MinimumVersion) >= 0.008 - %description Find a minimum required version of perl for Perl code @@ -39,17 +32,13 @@ Find a minimum required version of perl for Perl code make %{?_smp_mflags} %install -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 -type d -depth -exec rmdir {} 2>/dev/null ';' chmod -R u+w $RPM_BUILD_ROOT/* -%clean -rm -rf $RPM_BUILD_ROOT - %check -make test AUTOMATED_TESTING=1 +make test %files %defattr(-,root,root,-) @@ -60,6 +49,11 @@ make test AUTOMATED_TESTING=1 %{_mandir}/man3/* %changelog +* Fri Jun 17 2011 Ralf Corsépius - 1.28-1 +- Upstream update. +- Remove maintainer test (Upstream doesn't want us to find his bugs). +- Update BR's. + * Tue Feb 08 2011 Fedora Release Engineering - 1.26-3 - Rebuilt for https://fedoraproject.org/wiki/Fedora_15_Mass_Rebuild diff --git a/sources b/sources index 8c53c93..535b9c0 100644 --- a/sources +++ b/sources @@ -1 +1 @@ -faf35e902d98fdfeca35f298d1553a68 Perl-MinimumVersion-1.26.tar.gz +1f0ec43ebe2076862b4d0d6439e3b943 Perl-MinimumVersion-1.28.tar.gz From 6e38126284a6b47cd8b23ab5bf1b3e9a21d8298d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Marcela=20Ma=C5=A1l=C3=A1=C5=88ov=C3=A1?= Date: Tue, 28 Jun 2011 13:56:33 +0200 Subject: [PATCH 25/56] use perl_bootstrap macro --- perl-Perl-MinimumVersion.spec | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index df4777c..2ab93af 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.28 -Release: 1%{?dist} +Release: 2%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -12,14 +12,16 @@ BuildArch: noarch BuildRequires: perl(List::Util) >= 1.20 BuildRequires: perl(PPI) >= 1.215 -BuildRequires: perl(Test::Script) >= 1.03 BuildRequires: perl(version) >= 0.76 +BuildRequires: perl(Perl::Critic::Utils) >= 1.104 +BuildRequires: perl(Params::Util) >= 0.25 +%if !%{defined perl_bootstrap} +BuildRequires: perl(Test::Script) >= 1.03 BuildRequires: perl(File::Find::Rule) >= 0.32 BuildRequires: perl(File::Find::Rule::Perl) >= 1.04 BuildRequires: perl(File::Spec) >= 0.80 BuildRequires: perl(Test::More) >= 0.47 -BuildRequires: perl(Perl::Critic::Utils) >= 1.104 -BuildRequires: perl(Params::Util) >= 0.25 +%endif %description Find a minimum required version of perl for Perl code @@ -38,7 +40,9 @@ find $RPM_BUILD_ROOT -type d -depth -exec rmdir {} 2>/dev/null ';' chmod -R u+w $RPM_BUILD_ROOT/* %check +%if !%{defined perl_bootstrap} make test +%endif %files %defattr(-,root,root,-) @@ -49,6 +53,9 @@ make test %{_mandir}/man3/* %changelog +* Tue Jun 28 2011 Marcela Mašláňová - 1.28-2 +- use perl_bootstrap macro + * Fri Jun 17 2011 Ralf Corsépius - 1.28-1 - Upstream update. - Remove maintainer test (Upstream doesn't want us to find his bugs). From 2936ce7fc4eaef09509ca5db9a7fecc640e8c375 Mon Sep 17 00:00:00 2001 From: Petr Sabata Date: Tue, 19 Jul 2011 15:55:03 +0200 Subject: [PATCH 26/56] Perl mass rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 2ab93af..23d6796 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.28 -Release: 2%{?dist} +Release: 3%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -53,6 +53,9 @@ make test %{_mandir}/man3/* %changelog +* Tue Jul 19 2011 Petr Sabata - 1.28-3 +- Perl mass rebuild + * Tue Jun 28 2011 Marcela Mašláňová - 1.28-2 - use perl_bootstrap macro From 203908abe8b5f8db27625d91a8fb796a12c42805 Mon Sep 17 00:00:00 2001 From: Dennis Gilmore Date: Fri, 13 Jan 2012 10:49:09 -0600 Subject: [PATCH 27/56] - Rebuilt for https://fedoraproject.org/wiki/Fedora_17_Mass_Rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 23d6796..cc251c6 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.28 -Release: 3%{?dist} +Release: 4%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -53,6 +53,9 @@ make test %{_mandir}/man3/* %changelog +* Fri Jan 13 2012 Fedora Release Engineering - 1.28-4 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_17_Mass_Rebuild + * Tue Jul 19 2011 Petr Sabata - 1.28-3 - Perl mass rebuild From 7a7959cbc26765aa34ef5e3891563e12ba162e5f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= Date: Wed, 20 Jun 2012 08:40:35 +0200 Subject: [PATCH 28/56] Perl 5.16 rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index cc251c6..1958b59 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.28 -Release: 4%{?dist} +Release: 5%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -53,6 +53,9 @@ make test %{_mandir}/man3/* %changelog +* Wed Jun 20 2012 Petr Pisar - 1.28-5 +- Perl 5.16 rebuild + * Fri Jan 13 2012 Fedora Release Engineering - 1.28-4 - Rebuilt for https://fedoraproject.org/wiki/Fedora_17_Mass_Rebuild From f6ebd86d6ea540a1d4e40c58083075f0484c4a7b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= Date: Tue, 10 Jul 2012 15:46:08 +0200 Subject: [PATCH 29/56] Perl 5.16 re-rebuild of bootstrapped packages --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 1958b59..fbcda72 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.28 -Release: 5%{?dist} +Release: 6%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -53,6 +53,9 @@ make test %{_mandir}/man3/* %changelog +* Tue Jul 10 2012 Petr Pisar - 1.28-6 +- Perl 5.16 re-rebuild of bootstrapped packages + * Wed Jun 20 2012 Petr Pisar - 1.28-5 - Perl 5.16 rebuild From fa471978828f32d952345c25a6014124405db9d5 Mon Sep 17 00:00:00 2001 From: Dennis Gilmore Date: Fri, 20 Jul 2012 13:23:08 -0500 Subject: [PATCH 30/56] - Rebuilt for https://fedoraproject.org/wiki/Fedora_18_Mass_Rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index fbcda72..254edff 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.28 -Release: 6%{?dist} +Release: 7%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -53,6 +53,9 @@ make test %{_mandir}/man3/* %changelog +* Fri Jul 20 2012 Fedora Release Engineering - 1.28-7 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_18_Mass_Rebuild + * Tue Jul 10 2012 Petr Pisar - 1.28-6 - Perl 5.16 re-rebuild of bootstrapped packages From 0243d03a03b19c95f4a7d0693c45b98cdfa24fec Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= Date: Wed, 24 Oct 2012 17:07:27 +0200 Subject: [PATCH 31/56] Specify all dependencies --- perl-Perl-MinimumVersion.spec | 20 ++++++++++++++++---- 1 file changed, 16 insertions(+), 4 deletions(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 254edff..b0c392c 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.28 -Release: 7%{?dist} +Release: 8%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -10,17 +10,26 @@ Source0: http://search.cpan.org/CPAN/authors/id/A/AD/ADAMK/Perl-MinimumVe Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version)) BuildArch: noarch +BuildRequires: perl(Cwd) +BuildRequires: perl(File::Find) +BuildRequires: perl(File::Path) +BuildRequires: perl(ExtUtils::MakeMaker) +# Run-time and tests: BuildRequires: perl(List::Util) >= 1.20 +BuildRequires: perl(Params::Util) >= 0.25 +BuildRequires: perl(Perl::Critic::Utils) >= 1.104 BuildRequires: perl(PPI) >= 1.215 BuildRequires: perl(version) >= 0.76 -BuildRequires: perl(Perl::Critic::Utils) >= 1.104 -BuildRequires: perl(Params::Util) >= 0.25 %if !%{defined perl_bootstrap} -BuildRequires: perl(Test::Script) >= 1.03 +BuildRequires: perl(Carp) +BuildRequires: perl(Exporter) BuildRequires: perl(File::Find::Rule) >= 0.32 BuildRequires: perl(File::Find::Rule::Perl) >= 1.04 BuildRequires: perl(File::Spec) >= 0.80 +BuildRequires: perl(Getopt::Long) +BuildRequires: perl(PPI::Util) BuildRequires: perl(Test::More) >= 0.47 +BuildRequires: perl(Test::Script) >= 1.03 %endif %description @@ -53,6 +62,9 @@ make test %{_mandir}/man3/* %changelog +* Wed Oct 24 2012 Petr Pisar - 1.28-8 +- Specify all dependencies + * Fri Jul 20 2012 Fedora Release Engineering - 1.28-7 - Rebuilt for https://fedoraproject.org/wiki/Fedora_18_Mass_Rebuild From 19c1cef5ed342415fa158aa97600032e18c0e52c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ralf=20Cors=C3=A9pius?= Date: Fri, 18 Jan 2013 10:09:39 +0100 Subject: [PATCH 32/56] Upstream update. - Add BR: perl(PPIx::Regexp). - Reflect upstream URL having changed. --- .gitignore | 2 +- perl-Perl-MinimumVersion.spec | 14 ++++++++++---- sources | 2 +- 3 files changed, 12 insertions(+), 6 deletions(-) diff --git a/.gitignore b/.gitignore index 7f45cbd..5937535 100644 --- a/.gitignore +++ b/.gitignore @@ -1 +1 @@ -/Perl-MinimumVersion-1.28.tar.gz +/Perl-MinimumVersion-1.32.tar.gz diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index b0c392c..15b19d5 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,11 +1,11 @@ Name: perl-Perl-MinimumVersion -Version: 1.28 -Release: 8%{?dist} +Version: 1.32 +Release: 1%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries URL: http://search.cpan.org/dist/Perl-MinimumVersion/ -Source0: http://search.cpan.org/CPAN/authors/id/A/AD/ADAMK/Perl-MinimumVersion-%{version}.tar.gz +Source0: http://search.cpan.org/CPAN/authors/id/C/CH/CHORNY/Perl-MinimumVersion-%{version}.tar.gz Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version)) BuildArch: noarch @@ -13,12 +13,13 @@ BuildArch: noarch BuildRequires: perl(Cwd) BuildRequires: perl(File::Find) BuildRequires: perl(File::Path) -BuildRequires: perl(ExtUtils::MakeMaker) +BuildRequires: perl(ExtUtils::MakeMaker) >= 6.59 # Run-time and tests: BuildRequires: perl(List::Util) >= 1.20 BuildRequires: perl(Params::Util) >= 0.25 BuildRequires: perl(Perl::Critic::Utils) >= 1.104 BuildRequires: perl(PPI) >= 1.215 +BuildRequires: perl(PPIx::Regexp) >= 0.029 BuildRequires: perl(version) >= 0.76 %if !%{defined perl_bootstrap} BuildRequires: perl(Carp) @@ -62,6 +63,11 @@ make test %{_mandir}/man3/* %changelog +* Fri Jan 18 2013 Ralf Corsépius - 1.32-1 +- Upstream update. +- Add BR: perl(PPIx::Regexp). +- Reflect upstream URL having changed. + * Wed Oct 24 2012 Petr Pisar - 1.28-8 - Specify all dependencies diff --git a/sources b/sources index 535b9c0..3e93e16 100644 --- a/sources +++ b/sources @@ -1 +1 @@ -1f0ec43ebe2076862b4d0d6439e3b943 Perl-MinimumVersion-1.28.tar.gz +df44169658c95e8cc94f1e8fdd8f429e Perl-MinimumVersion-1.32.tar.gz From c5c768298bd0dcc56796c46487f4b987d02c135c Mon Sep 17 00:00:00 2001 From: Dennis Gilmore Date: Thu, 14 Feb 2013 08:42:04 -0600 Subject: [PATCH 33/56] - Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 15b19d5..efc4f68 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.32 -Release: 1%{?dist} +Release: 2%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -63,6 +63,9 @@ make test %{_mandir}/man3/* %changelog +* Thu Feb 14 2013 Fedora Release Engineering - 1.32-2 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild + * Fri Jan 18 2013 Ralf Corsépius - 1.32-1 - Upstream update. - Add BR: perl(PPIx::Regexp). From 423f677fced6eab241b6ef50b2b82a49e67dc11b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= Date: Tue, 30 Jul 2013 17:22:19 +0200 Subject: [PATCH 34/56] Perl 5.18 rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index efc4f68..5a3c943 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.32 -Release: 2%{?dist} +Release: 3%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -63,6 +63,9 @@ make test %{_mandir}/man3/* %changelog +* Tue Jul 30 2013 Petr Pisar - 1.32-3 +- Perl 5.18 rebuild + * Thu Feb 14 2013 Fedora Release Engineering - 1.32-2 - Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild From d7cf9a32598d49390d9bab62d53ebccdb2617b3d Mon Sep 17 00:00:00 2001 From: Dennis Gilmore Date: Sat, 3 Aug 2013 19:23:58 -0500 Subject: [PATCH 35/56] - Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 5a3c943..e6a6dbb 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.32 -Release: 3%{?dist} +Release: 4%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -63,6 +63,9 @@ make test %{_mandir}/man3/* %changelog +* Sun Aug 04 2013 Fedora Release Engineering - 1.32-4 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild + * Tue Jul 30 2013 Petr Pisar - 1.32-3 - Perl 5.18 rebuild From e554688a043ca28d6a9c2aa493b664ac968fa744 Mon Sep 17 00:00:00 2001 From: Jitka Plesnikova Date: Wed, 14 Aug 2013 18:55:02 +0200 Subject: [PATCH 36/56] Perl 5.18 re-rebuild of bootstrapped packages --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index e6a6dbb..e45f760 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.32 -Release: 4%{?dist} +Release: 5%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -63,6 +63,9 @@ make test %{_mandir}/man3/* %changelog +* Wed Aug 14 2013 Jitka Plesnikova - 1.32-5 +- Perl 5.18 re-rebuild of bootstrapped packages + * Sun Aug 04 2013 Fedora Release Engineering - 1.32-4 - Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild From 5f568584349854cf8463062154a255b998604e90 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ralf=20Cors=C3=A9pius?= Date: Wed, 7 May 2014 16:56:28 +0200 Subject: [PATCH 37/56] Upstream update. - Reflect upstream BR:-changes. - Reflect Source0: having changed. - Minor spec file modernization. --- .gitignore | 2 +- perl-Perl-MinimumVersion.spec | 32 ++++++++++++++++++-------------- sources | 2 +- 3 files changed, 20 insertions(+), 16 deletions(-) diff --git a/.gitignore b/.gitignore index 5937535..bb22552 100644 --- a/.gitignore +++ b/.gitignore @@ -1 +1 @@ -/Perl-MinimumVersion-1.32.tar.gz +/Perl-MinimumVersion-1.35.tar.gz diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index e45f760..ada1552 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,34 +1,34 @@ Name: perl-Perl-MinimumVersion -Version: 1.32 -Release: 5%{?dist} +Version: 1.35 +Release: 1%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries URL: http://search.cpan.org/dist/Perl-MinimumVersion/ -Source0: http://search.cpan.org/CPAN/authors/id/C/CH/CHORNY/Perl-MinimumVersion-%{version}.tar.gz +Source0: http://search.cpan.org/CPAN/authors/id/N/NE/NEILB/Perl-MinimumVersion-%{version}.tar.gz Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version)) BuildArch: noarch -BuildRequires: perl(Cwd) -BuildRequires: perl(File::Find) -BuildRequires: perl(File::Path) -BuildRequires: perl(ExtUtils::MakeMaker) >= 6.59 +BuildRequires: perl(ExtUtils::MakeMaker) >= 6.30 # Run-time and tests: +BuildRequires: perl(Carp) +BuildRequires: perl(Exporter) BuildRequires: perl(List::Util) >= 1.20 BuildRequires: perl(Params::Util) >= 0.25 BuildRequires: perl(Perl::Critic::Utils) >= 1.104 BuildRequires: perl(PPI) >= 1.215 -BuildRequires: perl(PPIx::Regexp) >= 0.029 +BuildRequires: perl(PPI::Util) +BuildRequires: perl(PPIx::Regexp) >= 0.033 +BuildRequires: perl(strict) +BuildRequires: perl(vars) BuildRequires: perl(version) >= 0.76 +BuildRequires: perl(warnings) %if !%{defined perl_bootstrap} -BuildRequires: perl(Carp) -BuildRequires: perl(Exporter) BuildRequires: perl(File::Find::Rule) >= 0.32 BuildRequires: perl(File::Find::Rule::Perl) >= 1.04 BuildRequires: perl(File::Spec) >= 0.80 BuildRequires: perl(Getopt::Long) -BuildRequires: perl(PPI::Util) BuildRequires: perl(Test::More) >= 0.47 BuildRequires: perl(Test::Script) >= 1.03 %endif @@ -46,8 +46,7 @@ make %{?_smp_mflags} %install make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} ';' -find $RPM_BUILD_ROOT -type d -depth -exec rmdir {} 2>/dev/null ';' -chmod -R u+w $RPM_BUILD_ROOT/* +%{_fixperms} $RPM_BUILD_ROOT/* %check %if !%{defined perl_bootstrap} @@ -55,7 +54,6 @@ make test %endif %files -%defattr(-,root,root,-) %doc Changes LICENSE %{_bindir}/* %{perl_vendorlib}/Perl @@ -63,6 +61,12 @@ make test %{_mandir}/man3/* %changelog +* Wed May 07 2014 Ralf Corsépius - 1.35-1 +- Upstream update. +- Reflect upstream BR:-changes. +- Reflect Source0: having changed. +- Minor spec file modernization. + * Wed Aug 14 2013 Jitka Plesnikova - 1.32-5 - Perl 5.18 re-rebuild of bootstrapped packages diff --git a/sources b/sources index 3e93e16..feee8ee 100644 --- a/sources +++ b/sources @@ -1 +1 @@ -df44169658c95e8cc94f1e8fdd8f429e Perl-MinimumVersion-1.32.tar.gz +546e2cf8b99a3e78776d7c22bbb6335a Perl-MinimumVersion-1.35.tar.gz From 412aabf246c4272ca01ec7fa269c2f4151b3d931 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ralf=20Cors=C3=A9pius?= Date: Mon, 12 May 2014 11:08:52 +0200 Subject: [PATCH 38/56] Upstream update. --- .gitignore | 2 +- perl-Perl-MinimumVersion.spec | 5 ++++- sources | 2 +- 3 files changed, 6 insertions(+), 3 deletions(-) diff --git a/.gitignore b/.gitignore index bb22552..dad621e 100644 --- a/.gitignore +++ b/.gitignore @@ -1 +1 @@ -/Perl-MinimumVersion-1.35.tar.gz +/Perl-MinimumVersion-1.37.tar.gz diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index ada1552..ba3f31b 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,5 +1,5 @@ Name: perl-Perl-MinimumVersion -Version: 1.35 +Version: 1.37 Release: 1%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic @@ -61,6 +61,9 @@ make test %{_mandir}/man3/* %changelog +* Mon May 12 2014 Ralf Corsépius - 1.37-1 +- Upstream update. + * Wed May 07 2014 Ralf Corsépius - 1.35-1 - Upstream update. - Reflect upstream BR:-changes. diff --git a/sources b/sources index feee8ee..25b84bc 100644 --- a/sources +++ b/sources @@ -1 +1 @@ -546e2cf8b99a3e78776d7c22bbb6335a Perl-MinimumVersion-1.35.tar.gz +d3a20a459b4320b6d01bdcd41ca816ff Perl-MinimumVersion-1.37.tar.gz From da21c9755d5645a59e3953b9e71e132e7b3dc2c1 Mon Sep 17 00:00:00 2001 From: Dennis Gilmore Date: Sat, 7 Jun 2014 04:01:47 -0500 Subject: [PATCH 39/56] - Rebuilt for https://fedoraproject.org/wiki/Fedora_21_Mass_Rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index ba3f31b..e95fc29 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.37 -Release: 1%{?dist} +Release: 2%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -61,6 +61,9 @@ make test %{_mandir}/man3/* %changelog +* Sat Jun 07 2014 Fedora Release Engineering - 1.37-2 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_21_Mass_Rebuild + * Mon May 12 2014 Ralf Corsépius - 1.37-1 - Upstream update. From c30a8962c603b0405671139648dc02a199f7f03e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ralf=20Cors=C3=A9pius?= Date: Thu, 28 Aug 2014 08:06:42 +0200 Subject: [PATCH 40/56] Upstream update. --- .gitignore | 2 +- perl-Perl-MinimumVersion.spec | 7 +++++-- sources | 2 +- 3 files changed, 7 insertions(+), 4 deletions(-) diff --git a/.gitignore b/.gitignore index dad621e..92ae149 100644 --- a/.gitignore +++ b/.gitignore @@ -1 +1 @@ -/Perl-MinimumVersion-1.37.tar.gz +/Perl-MinimumVersion-1.38.tar.gz diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index e95fc29..8981b84 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion -Version: 1.37 -Release: 2%{?dist} +Version: 1.38 +Release: 1%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -61,6 +61,9 @@ make test %{_mandir}/man3/* %changelog +* Thu Aug 28 2014 Ralf Corsépius - 1.38-1 +- Upstream update. + * Sat Jun 07 2014 Fedora Release Engineering - 1.37-2 - Rebuilt for https://fedoraproject.org/wiki/Fedora_21_Mass_Rebuild diff --git a/sources b/sources index 25b84bc..c14e2bc 100644 --- a/sources +++ b/sources @@ -1 +1 @@ -d3a20a459b4320b6d01bdcd41ca816ff Perl-MinimumVersion-1.37.tar.gz +4285a236c64b87d67f0afd14b167cde4 Perl-MinimumVersion-1.38.tar.gz From 79b00022a3445389c5d7823ed3ffd3cc0cfd2b34 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ralf=20Cors=C3=A9pius?= Date: Thu, 28 Aug 2014 09:54:14 +0200 Subject: [PATCH 41/56] Filter underspecified deps. --- perl-Perl-MinimumVersion.spec | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 8981b84..dd75c32 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.38 -Release: 1%{?dist} +Release: 2%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -33,6 +33,12 @@ BuildRequires: perl(Test::More) >= 0.47 BuildRequires: perl(Test::Script) >= 1.03 %endif +%{?perl_default_filter} +# Remove under-specified dependencies +%global __requires_exclude %{?__requires_exclude:%__requires_exclude|}^perl\\(version\\)$ +%global __requires_exclude %{?__requires_exclude:%__requires_exclude|}^perl\\(Params::Util\\)$ +%global __requires_exclude %{?__requires_exclude:%__requires_exclude|}^perl >= 0:5.005$ + %description Find a minimum required version of perl for Perl code @@ -61,6 +67,9 @@ make test %{_mandir}/man3/* %changelog +* Thu Aug 28 2014 Ralf Corsépius - 1.38-2 +- Filter underspecified deps. + * Thu Aug 28 2014 Ralf Corsépius - 1.38-1 - Upstream update. From d91a70bb3d0089c4fbbc8d8b6a0fa7c7cb1af79c Mon Sep 17 00:00:00 2001 From: Jitka Plesnikova Date: Fri, 29 Aug 2014 18:58:53 +0200 Subject: [PATCH 42/56] Perl 5.20 rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index dd75c32..ea0bfb4 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.38 -Release: 2%{?dist} +Release: 3%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -67,6 +67,9 @@ make test %{_mandir}/man3/* %changelog +* Fri Aug 29 2014 Jitka Plesnikova - 1.38-3 +- Perl 5.20 rebuild + * Thu Aug 28 2014 Ralf Corsépius - 1.38-2 - Filter underspecified deps. From b05ba4a33f541e9d495b9ef0ebe1162963cf4f6e Mon Sep 17 00:00:00 2001 From: Jitka Plesnikova Date: Mon, 8 Sep 2014 22:26:31 +0200 Subject: [PATCH 43/56] Perl 5.20 re-rebuild of bootstrapped packages --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index ea0bfb4..c3f0d4b 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.38 -Release: 3%{?dist} +Release: 4%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -67,6 +67,9 @@ make test %{_mandir}/man3/* %changelog +* Sun Sep 07 2014 Jitka Plesnikova - 1.38-4 +- Perl 5.20 re-rebuild of bootstrapped packages + * Fri Aug 29 2014 Jitka Plesnikova - 1.38-3 - Perl 5.20 rebuild From 677e7f0d496fc4a874b0604b2f6e60d5e46def02 Mon Sep 17 00:00:00 2001 From: Jitka Plesnikova Date: Sat, 6 Jun 2015 20:08:37 +0200 Subject: [PATCH 44/56] Perl 5.22 rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index c3f0d4b..c775201 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.38 -Release: 4%{?dist} +Release: 5%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -67,6 +67,9 @@ make test %{_mandir}/man3/* %changelog +* Sat Jun 06 2015 Jitka Plesnikova - 1.38-5 +- Perl 5.22 rebuild + * Sun Sep 07 2014 Jitka Plesnikova - 1.38-4 - Perl 5.20 re-rebuild of bootstrapped packages From feb6f11fb9cf4b3d545544e85f653d64e728b44d Mon Sep 17 00:00:00 2001 From: Jitka Plesnikova Date: Wed, 10 Jun 2015 15:23:54 +0200 Subject: [PATCH 45/56] Perl 5.22 re-rebuild of bootstrapped packages --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index c775201..caeefd8 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.38 -Release: 5%{?dist} +Release: 6%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -67,6 +67,9 @@ make test %{_mandir}/man3/* %changelog +* Wed Jun 10 2015 Jitka Plesnikova - 1.38-6 +- Perl 5.22 re-rebuild of bootstrapped packages + * Sat Jun 06 2015 Jitka Plesnikova - 1.38-5 - Perl 5.22 rebuild From e4ada7a907f235bf4492975e1d2bed2ffe3db84b Mon Sep 17 00:00:00 2001 From: Dennis Gilmore Date: Thu, 18 Jun 2015 05:30:34 +0000 Subject: [PATCH 46/56] - Rebuilt for https://fedoraproject.org/wiki/Fedora_23_Mass_Rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index caeefd8..f497f51 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.38 -Release: 6%{?dist} +Release: 7%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -67,6 +67,9 @@ make test %{_mandir}/man3/* %changelog +* Thu Jun 18 2015 Fedora Release Engineering - 1.38-7 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_23_Mass_Rebuild + * Wed Jun 10 2015 Jitka Plesnikova - 1.38-6 - Perl 5.22 re-rebuild of bootstrapped packages From 1f1aa4336c58f93b1bfa036f9116715c241c2185 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ralf=20Cors=C3=A9pius?= Date: Wed, 27 Jan 2016 18:22:34 +0100 Subject: [PATCH 47/56] Add %license. - Modernize spec. --- perl-Perl-MinimumVersion.spec | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index f497f51..d631c6f 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.38 -Release: 7%{?dist} +Release: 8%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -33,7 +33,6 @@ BuildRequires: perl(Test::More) >= 0.47 BuildRequires: perl(Test::Script) >= 1.03 %endif -%{?perl_default_filter} # Remove under-specified dependencies %global __requires_exclude %{?__requires_exclude:%__requires_exclude|}^perl\\(version\\)$ %global __requires_exclude %{?__requires_exclude:%__requires_exclude|}^perl\\(Params::Util\\)$ @@ -46,12 +45,11 @@ Find a minimum required version of perl for Perl code %setup -q -n Perl-MinimumVersion-%{version} %build -%{__perl} Makefile.PL INSTALLDIRS=vendor +%{__perl} Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 make %{?_smp_mflags} %install make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT -find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} ';' %{_fixperms} $RPM_BUILD_ROOT/* %check @@ -60,13 +58,18 @@ make test %endif %files -%doc Changes LICENSE +%doc Changes +%license LICENSE %{_bindir}/* %{perl_vendorlib}/Perl %{_mandir}/man1/* %{_mandir}/man3/* %changelog +* Wed Jan 27 2016 Ralf Corsépius - 1.38-8 +- Add %%license. +- Modernize spec. + * Thu Jun 18 2015 Fedora Release Engineering - 1.38-7 - Rebuilt for https://fedoraproject.org/wiki/Fedora_23_Mass_Rebuild From e7de4d8ace3d31ad0cfe76571554e6b1ec366a61 Mon Sep 17 00:00:00 2001 From: Fedora Release Engineering Date: Thu, 4 Feb 2016 15:23:21 +0000 Subject: [PATCH 48/56] - Rebuilt for https://fedoraproject.org/wiki/Fedora_24_Mass_Rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index d631c6f..4af7fc9 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.38 -Release: 8%{?dist} +Release: 9%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -66,6 +66,9 @@ make test %{_mandir}/man3/* %changelog +* Thu Feb 04 2016 Fedora Release Engineering - 1.38-9 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_24_Mass_Rebuild + * Wed Jan 27 2016 Ralf Corsépius - 1.38-8 - Add %%license. - Modernize spec. From 92dfdd4068460e85f0e44fcaf802e32aebc8e61f Mon Sep 17 00:00:00 2001 From: Jitka Plesnikova Date: Mon, 16 May 2016 14:36:17 +0200 Subject: [PATCH 49/56] Perl 5.24 rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 4af7fc9..519821b 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.38 -Release: 9%{?dist} +Release: 10%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -66,6 +66,9 @@ make test %{_mandir}/man3/* %changelog +* Mon May 16 2016 Jitka Plesnikova - 1.38-10 +- Perl 5.24 rebuild + * Thu Feb 04 2016 Fedora Release Engineering - 1.38-9 - Rebuilt for https://fedoraproject.org/wiki/Fedora_24_Mass_Rebuild From d4097694565bf9e4ed9bad47c2ab925a696904db Mon Sep 17 00:00:00 2001 From: Jitka Plesnikova Date: Wed, 18 May 2016 18:14:52 +0200 Subject: [PATCH 50/56] Perl 5.24 re-rebuild of bootstrapped packages --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 519821b..3aa005a 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.38 -Release: 10%{?dist} +Release: 11%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -66,6 +66,9 @@ make test %{_mandir}/man3/* %changelog +* Wed May 18 2016 Jitka Plesnikova - 1.38-11 +- Perl 5.24 re-rebuild of bootstrapped packages + * Mon May 16 2016 Jitka Plesnikova - 1.38-10 - Perl 5.24 rebuild From 09af8d5a1cf4239765a991ca9bf9f48ffaccd478 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= Date: Fri, 24 Jun 2016 10:48:54 +0200 Subject: [PATCH 51/56] Mandatory Perl build-requires added --- perl-Perl-MinimumVersion.spec | 1 + 1 file changed, 1 insertion(+) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 3aa005a..3c67194 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -10,6 +10,7 @@ Source0: http://search.cpan.org/CPAN/authors/id/N/NE/NEILB/Perl-MinimumVe Requires: perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version)) BuildArch: noarch +BuildRequires: perl-generators BuildRequires: perl(ExtUtils::MakeMaker) >= 6.30 # Run-time and tests: BuildRequires: perl(Carp) From ea143f3658a1cd1b88aecf42575605bc2cac739e Mon Sep 17 00:00:00 2001 From: Fedora Release Engineering Date: Sat, 11 Feb 2017 04:51:40 +0000 Subject: [PATCH 52/56] - Rebuilt for https://fedoraproject.org/wiki/Fedora_26_Mass_Rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 3c67194..2f0b382 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.38 -Release: 11%{?dist} +Release: 12%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -67,6 +67,9 @@ make test %{_mandir}/man3/* %changelog +* Sat Feb 11 2017 Fedora Release Engineering - 1.38-12 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_26_Mass_Rebuild + * Wed May 18 2016 Jitka Plesnikova - 1.38-11 - Perl 5.24 re-rebuild of bootstrapped packages From ddf2ec3f73787232efd35dd55d778da8946e7d94 Mon Sep 17 00:00:00 2001 From: Jitka Plesnikova Date: Tue, 6 Jun 2017 10:58:49 +0200 Subject: [PATCH 53/56] Perl 5.26 rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index 2f0b382..bb004c9 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.38 -Release: 12%{?dist} +Release: 13%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -67,6 +67,9 @@ make test %{_mandir}/man3/* %changelog +* Tue Jun 06 2017 Jitka Plesnikova - 1.38-13 +- Perl 5.26 rebuild + * Sat Feb 11 2017 Fedora Release Engineering - 1.38-12 - Rebuilt for https://fedoraproject.org/wiki/Fedora_26_Mass_Rebuild From 0246f7930229ffd9e84b3e2bdb26ea3a6ee2cdde Mon Sep 17 00:00:00 2001 From: Jitka Plesnikova Date: Wed, 7 Jun 2017 16:52:11 +0200 Subject: [PATCH 54/56] Perl 5.26 re-rebuild of bootstrapped packages --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index bb004c9..bc26c5b 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.38 -Release: 13%{?dist} +Release: 14%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -67,6 +67,9 @@ make test %{_mandir}/man3/* %changelog +* Wed Jun 07 2017 Jitka Plesnikova - 1.38-14 +- Perl 5.26 re-rebuild of bootstrapped packages + * Tue Jun 06 2017 Jitka Plesnikova - 1.38-13 - Perl 5.26 rebuild From 85bfd41272a64e48553610c6a866b00b6ceb7deb Mon Sep 17 00:00:00 2001 From: Fedora Release Engineering Date: Thu, 27 Jul 2017 05:44:47 +0000 Subject: [PATCH 55/56] - Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Mass_Rebuild --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index bc26c5b..e817b60 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.38 -Release: 14%{?dist} +Release: 15%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -67,6 +67,9 @@ make test %{_mandir}/man3/* %changelog +* Thu Jul 27 2017 Fedora Release Engineering - 1.38-15 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Mass_Rebuild + * Wed Jun 07 2017 Jitka Plesnikova - 1.38-14 - Perl 5.26 re-rebuild of bootstrapped packages From 96555ddcea65cbeb4e1f82fa14aa9f790c30009b Mon Sep 17 00:00:00 2001 From: Fedora Release Engineering Date: Fri, 9 Feb 2018 00:06:35 +0000 Subject: [PATCH 56/56] - Rebuilt for https://fedoraproject.org/wiki/Fedora_28_Mass_Rebuild Signed-off-by: Fedora Release Engineering --- perl-Perl-MinimumVersion.spec | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/perl-Perl-MinimumVersion.spec b/perl-Perl-MinimumVersion.spec index e817b60..af9d093 100644 --- a/perl-Perl-MinimumVersion.spec +++ b/perl-Perl-MinimumVersion.spec @@ -1,6 +1,6 @@ Name: perl-Perl-MinimumVersion Version: 1.38 -Release: 15%{?dist} +Release: 16%{?dist} Summary: Find a minimum required version of perl for Perl code License: GPL+ or Artistic Group: Development/Libraries @@ -67,6 +67,9 @@ make test %{_mandir}/man3/* %changelog +* Fri Feb 09 2018 Fedora Release Engineering - 1.38-16 +- Rebuilt for https://fedoraproject.org/wiki/Fedora_28_Mass_Rebuild + * Thu Jul 27 2017 Fedora Release Engineering - 1.38-15 - Rebuilt for https://fedoraproject.org/wiki/Fedora_27_Mass_Rebuild