Author: mmaslano Update of /cvs/pkgs/rpms/perl-Perl-MinimumVersion/devel In directory cvs01.phx2.fedoraproject.org:/tmp/cvs-serv6338 Modified Files: perl-Perl-MinimumVersion.spec Added Files: Perl-MinimumVersion-25.patch Log Message: * Mon May 3 2010 Marcela Mašláňová <mmaslano@xxxxxxxxxx> - 1.24-2 - for the meantime apply changes from trunk. Other builds using this package should succed with perl-5.12. Perl-MinimumVersion-25.patch: lib/Perl/.svn/all-wcprops | 11 lib/Perl/.svn/entries | 65 lib/Perl/.svn/prop-base/MinimumVersion.pm.svn-base | 5 lib/Perl/.svn/text-base/MinimumVersion.pm.svn-base | 1037 ++++++++++++++ lib/Perl/MinimumVersion.pm | 46 lib/Perl/MinimumVersion/.svn/all-wcprops | 11 lib/Perl/MinimumVersion/.svn/entries | 62 lib/Perl/MinimumVersion/.svn/text-base/Reason.pm.svn-base | 36 lib/Perl/MinimumVersion/Reason.pm | 72 t/02_main.t | 9 t/03_open_3arg.t | 76 - t/04_substr.t | 64 t/05_foreach.t | 60 t/06_weaken.t | 66 t/07_splice.t | 68 t/08_mkdir.t | 64 t/09_pkg_name_version.t | 38 t/10_yada_yada_yada.t | 34 t/11_feature_bundle_512.t | 36 t/97_meta.t | 27 t/98_pod.t | 32 t/99_pmv.t | 32 22 files changed, 1619 insertions(+), 332 deletions(-) --- NEW FILE Perl-MinimumVersion-25.patch --- 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@xxxxxxxx + + + + + + + + + + + + + + +88f4d9cd-8a04-0410-9d60-8f63309c3137 + +Reason.pm +file + + + + +2010-05-03T07:23:31.091810Z +3ece6d1a31707473047d796b366510bc +2010-04-11T14:30:55.494658Z +11888 +chorny@xxxxxxxx + + + + + + + + + + + + + + + + + + + + + +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 [...1708 lines suppressed...] + 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(); Index: perl-Perl-MinimumVersion.spec =================================================================== RCS file: /cvs/pkgs/rpms/perl-Perl-MinimumVersion/devel/perl-Perl-MinimumVersion.spec,v retrieving revision 1.14 retrieving revision 1.15 diff -u -p -r1.14 -r1.15 --- perl-Perl-MinimumVersion.spec 1 Mar 2010 13:17:26 -0000 1.14 +++ perl-Perl-MinimumVersion.spec 3 May 2010 07:45:49 -0000 1.15 @@ -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 %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á <mmaslano@xxxxxxxxxx> - 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 <corsepiu@xxxxxxxxxxxxxxxxx> - 1.24-1 - Upstream update. - Adjust BR's. -- Fedora Extras Perl SIG http://www.fedoraproject.org/wiki/Extras/SIGs/Perl perl-devel mailing list perl-devel@xxxxxxxxxxxxxxxxxxxxxxx https://admin.fedoraproject.org/mailman/listinfo/perl-devel