r70266 - in /branches/upstream/libperl-minimumversion-perl/current: ./ lib/Perl/ lib/Perl/MinimumVersion/ script/ t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Thu Mar 3 03:13:31 UTC 2011
Author: jawnsy-guest
Date: Thu Mar 3 03:13:16 2011
New Revision: 70266
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=70266
Log:
[svn-upgrade] new version libperl-minimumversion-perl (1.28)
Added:
branches/upstream/libperl-minimumversion-perl/current/t/13_perl_510.t
Modified:
branches/upstream/libperl-minimumversion-perl/current/Changes
branches/upstream/libperl-minimumversion-perl/current/MANIFEST
branches/upstream/libperl-minimumversion-perl/current/META.yml
branches/upstream/libperl-minimumversion-perl/current/README
branches/upstream/libperl-minimumversion-perl/current/lib/Perl/MinimumVersion.pm
branches/upstream/libperl-minimumversion-perl/current/lib/Perl/MinimumVersion/Reason.pm
branches/upstream/libperl-minimumversion-perl/current/script/perlver
branches/upstream/libperl-minimumversion-perl/current/t/02_main.t
branches/upstream/libperl-minimumversion-perl/current/t/03_open_3arg.t
branches/upstream/libperl-minimumversion-perl/current/t/04_substr.t
branches/upstream/libperl-minimumversion-perl/current/t/05_foreach.t
branches/upstream/libperl-minimumversion-perl/current/t/06_weaken.t
branches/upstream/libperl-minimumversion-perl/current/t/07_splice.t
branches/upstream/libperl-minimumversion-perl/current/t/08_mkdir.t
branches/upstream/libperl-minimumversion-perl/current/t/09_pkg_name_version.t
branches/upstream/libperl-minimumversion-perl/current/t/10_yada_yada_yada.t
branches/upstream/libperl-minimumversion-perl/current/t/12_double_colon.t
Modified: branches/upstream/libperl-minimumversion-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libperl-minimumversion-perl/current/Changes?rev=70266&op=diff
==============================================================================
--- branches/upstream/libperl-minimumversion-perl/current/Changes (original)
+++ branches/upstream/libperl-minimumversion-perl/current/Changes Thu Mar 3 03:13:16 2011
@@ -1,12 +1,19 @@
Revision history for Perl extension Perl-MinimumVersion
+
+1.28 Wed 2 Mar 2011
+ - The ->isa in the 5.10 operator and magic variable tests were
+ back the front, breaking both. Fixed (ADAMK)
+ - Magic variable rules now check using ->symbol method instead of
+ ->content so that $+{foo} are correctly treated like %+ (ADAMK)
+ - Removed -w from tests to allow testing with Tainting on (ADAMK)
1.27 Sat 26 Feb 2011
- Updating to Module::Install::DSL 1.00
- Updating copyright year
- - Fix detection of binary numbers (Alexandr Ciornii)
- - Add check for variables added in 5.5 (Alexandr Ciornii)
- - Correct detection of different cases of '...' (Alexandr Ciornii)
- - Detection of bareword that ends with double colon (Alexandr Ciornii)
+ - Fix detection of binary numbers (Alexandr Ciornii)
+ - Add check for variables added in 5.5 (Alexandr Ciornii)
+ - Correct detection of different cases of '...' (Alexandr Ciornii)
+ - Detection of bareword that ends with double colon (Alexandr Ciornii)
1.26 Thu 22 Jul 2010
- Detect "package NAME VERSION" in 5.12. (Steffen Mueller)
@@ -14,7 +21,7 @@
- Detect "use feature ':5.12';" in 5.12. (Steffen Mueller)
1.25 Sun 11 Apr 2010
- - Error in minimum_syntax_reason discovered by perl 5.12 (Alexandr Ciornii)
+ - Error in minimum_syntax_reason discovered by perl 5.12 (Alexandr Ciornii)
1.24 Fri 22 Jan 2010
- The previous changes seem to work well in practice now,
@@ -31,36 +38,36 @@
element responsible for each limitation as P:MV:Reason (ADAMK)
- Added first experimental version of the new _reason API (ADAMK)
- Adding 5.8 dependency for "use Carp version ()" (ADAMK)
- - module Errno requires perl 5.5 (Alexandr Ciornii)
- - PPI is no longer compatible with perl 5.5, so P::MV can also
- depend on 5.6 (Alexandr Ciornii)
+ - module Errno requires perl 5.5 (Alexandr Ciornii)
+ - PPI is no longer compatible with perl 5.5, so P::MV can also
+ depend on 5.6 (Alexandr Ciornii)
- Bumping File::Find::Rule dependency to 0.32 because we break with
0.31 (ADAMK)
1.22 Wed 25 Nov 2009
- - Negative length in 'splice' requires perl 5.5 (Alexandr Ciornii)
- - 'mkdir' with one argument requires perl 5.6 (Alexandr Ciornii)
- - 'substr' will not be checked if it is a method name (Alexandr Ciornii)
- - better tests and fix for 3-arg 'open' (Alexandr Ciornii)
+ - Negative length in 'splice' requires perl 5.5 (Alexandr Ciornii)
+ - 'mkdir' with one argument requires perl 5.6 (Alexandr Ciornii)
+ - 'substr' will not be checked if it is a method name (Alexandr Ciornii)
+ - better tests and fix for 3-arg 'open' (Alexandr Ciornii)
1.21 Tue 24 Nov 2009
- - Add 'bytes' to 5.6 pragma (Alexandr Ciornii)
- - Add support for "version numbers" like "v1.1.1" (Alexandr Ciornii)
- - Reimplement _three_argument_open, more tests (Alexandr Ciornii)
- Now check for 3-arg open is working.
- - Check 4-arg substr that requires perl 5.5 (Alexandr Ciornii)
- - Postfix foreach requires perl 5.004.05 (Alexandr Ciornii)
- - Scalar::Util::weaken requires perl 5.006 (Alexandr Ciornii)
- - P::MV itself found incompatibility in 02_main.t with 5.5 (Alexandr Ciornii)
+ - Add 'bytes' to 5.6 pragma (Alexandr Ciornii)
+ - Add support for "version numbers" like "v1.1.1" (Alexandr Ciornii)
+ - Reimplement _three_argument_open, more tests (Alexandr Ciornii)
+ Now check for 3-arg open is working.
+ - Check 4-arg substr that requires perl 5.5 (Alexandr Ciornii)
+ - Postfix foreach requires perl 5.004.05 (Alexandr Ciornii)
+ - Scalar::Util::weaken requires perl 5.006 (Alexandr Ciornii)
+ - P::MV itself found incompatibility in 02_main.t with 5.5 (Alexandr Ciornii)
1.20 Sat 4 Apr 2009
- Change 5.005_03 to 5.005.05 (ADAMK)
- - 5.8 and 5.6 pragmas (Alexandr Ciornii)
- - Fixed error in perlver/find (Alexandr Ciornii)
- - CPAN::Exception should not trigger dependency on 5.5 (Alexandr Ciornii)
- - Added undocumented option 'explain' in perlver (Alexandr Ciornii)
- - CHECK blocks (Alexandr Ciornii)
- - First implementation of _three_argument_open and tests (Alexandr Ciornii)
+ - 5.8 and 5.6 pragmas (Alexandr Ciornii)
+ - Fixed error in perlver/find (Alexandr Ciornii)
+ - CPAN::Exception should not trigger dependency on 5.5 (Alexandr Ciornii)
+ - Added undocumented option 'explain' in perlver (Alexandr Ciornii)
+ - CHECK blocks (Alexandr Ciornii)
+ - First implementation of _three_argument_open and tests (Alexandr Ciornii)
1.19 Sun 14 Sep 2008
- Updating PPI and several other dependencies to get a more
Modified: branches/upstream/libperl-minimumversion-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libperl-minimumversion-perl/current/MANIFEST?rev=70266&op=diff
==============================================================================
--- branches/upstream/libperl-minimumversion-perl/current/MANIFEST (original)
+++ branches/upstream/libperl-minimumversion-perl/current/MANIFEST Thu Mar 3 03:13:16 2011
@@ -29,6 +29,7 @@
t/10_yada_yada_yada.t
t/11_feature_bundle_512.t
t/12_double_colon.t
+t/13_perl_510.t
xt/meta.t
xt/pmv.t
xt/pod.t
Modified: branches/upstream/libperl-minimumversion-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libperl-minimumversion-perl/current/META.yml?rev=70266&op=diff
==============================================================================
--- branches/upstream/libperl-minimumversion-perl/current/META.yml (original)
+++ branches/upstream/libperl-minimumversion-perl/current/META.yml Thu Mar 3 03:13:16 2011
@@ -35,4 +35,4 @@
ChangeLog: http://fisheye2.atlassian.com/changelog/cpan/trunk/Perl-MinimumVersion
license: http://dev.perl.org/licenses/
repository: http://svn.ali.as/cpan/trunk/Perl-MinimumVersion
-version: 1.27
+version: 1.28
Modified: branches/upstream/libperl-minimumversion-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libperl-minimumversion-perl/current/README?rev=70266&op=diff
==============================================================================
--- branches/upstream/libperl-minimumversion-perl/current/README (original)
+++ branches/upstream/libperl-minimumversion-perl/current/README Thu Mar 3 03:13:16 2011
@@ -7,8 +7,8 @@
$object = Perl::MinimumVersion->new( $filename );
$object = Perl::MinimumVersion->new( \$source );
$object = Perl::MinimumVersion->new( $ppi_document );
-
- # Find the minimum version
+
+ # Find the minimum version
$version = $object->minimum_version;
DESCRIPTION
Modified: branches/upstream/libperl-minimumversion-perl/current/lib/Perl/MinimumVersion.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libperl-minimumversion-perl/current/lib/Perl/MinimumVersion.pm?rev=70266&op=diff
==============================================================================
--- branches/upstream/libperl-minimumversion-perl/current/lib/Perl/MinimumVersion.pm (original)
+++ branches/upstream/libperl-minimumversion-perl/current/lib/Perl/MinimumVersion.pm Thu Mar 3 03:13:16 2011
@@ -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;
@@ -50,14 +50,12 @@
use Perl::MinimumVersion::Reason ();
-use constant REASON => 'Perl::MinimumVersion::Reason';
-
use vars qw{$VERSION @ISA @EXPORT_OK %CHECKS %MATCHES};
BEGIN {
- $VERSION = '1.27';
+ $VERSION = '1.28';
# Only needed for dev releases, comment out otherwise
- $VERSION = eval $VERSION;
+ # $VERSION = eval $VERSION;
# Export the PMV convenience constant
@ISA = 'Exporter';
@@ -561,17 +559,17 @@
sub _perl_5010_operators {
shift->Document->find_first( sub {
+ $_[1]->isa('PPI::Token::Operator')
+ and
+ $MATCHES{_perl_5010_operators}->{$_[1]->content}
+ } );
+}
+
+sub _perl_5010_magic {
+ 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}
+ $MATCHES{_perl_5010_magic}->{$_[1]->symbol}
} );
}
@@ -589,13 +587,13 @@
$Document->find_any( sub {
$_[1]->isa('PPI::Token::Magic')
and
- $_[1]->content eq '$^E'
+ $_[1]->symbol eq '$^E'
} )
and
$Document->find_any( sub {
$_[1]->isa('PPI::Token::Magic')
and
- $_[1]->content eq '$!'
+ $_[1]->symbol eq '$!'
} );
}
@@ -669,13 +667,13 @@
sub _any_binary_literals {
shift->Document->find_first( sub {
$_[1]->isa('PPI::Token::Number::Binary')
- } );
+ } );
}
sub _any_version_literals {
shift->Document->find_first( sub {
$_[1]->isa('PPI::Token::Number::Version')
- } );
+ } );
}
@@ -683,7 +681,7 @@
shift->Document->find_first( sub {
$_[1]->isa('PPI::Token::Magic')
and
- $_[1]->content eq '$^V'
+ $_[1]->symbol eq '$^V'
} );
}
@@ -826,7 +824,7 @@
shift->Document->find_first( sub {
my $main_element=$_[1];
$main_element->isa('PPI::Token::Word') or return '';
- $main_element->content eq 'substr' 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);
@@ -862,7 +860,7 @@
shift->Document->find_first( sub {
my $main_element=$_[1];
$main_element->isa('PPI::Token::Word') or return '';
- $main_element->content eq 'splice' 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);
@@ -893,7 +891,7 @@
shift->Document->find_first( sub {
my $main_element=$_[1];
$main_element->isa('PPI::Token::Word') or return '';
- $main_element->content eq 'foreach' 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);
@@ -932,12 +930,11 @@
} );
}
-
sub _5005_variables {
shift->Document->find_first( sub {
$_[1]->isa('PPI::Token::Magic')
and
- ($_[1]->content eq '$!' or $_[1]->content eq '$^R')
+ ($_[1]->symbol eq '$!' or $_[1]->symbol eq '$^R')
} );
}
@@ -979,15 +976,15 @@
# Filter and prepare for a Schwartian maximum
my @valid = map {
- [ $_, $_->isa(REASON) ? $_->version : $_ ]
+ [ $_, $_->isa('Perl::MinimumVersion::Reason') ? $_->version : $_ ]
} grep {
- _INSTANCE($_, REASON)
+ _INSTANCE($_, 'Perl::MinimumVersion::Reason')
or
_INSTANCE($_, 'version')
} @_ or return '';
# Find the maximum
- my $max = shift @valid;
+ my $max = shift @valid;
foreach my $it ( @valid ) {
$max = $it if $it->[1] > $max->[1];
}
Modified: branches/upstream/libperl-minimumversion-perl/current/lib/Perl/MinimumVersion/Reason.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libperl-minimumversion-perl/current/lib/Perl/MinimumVersion/Reason.pm?rev=70266&op=diff
==============================================================================
--- branches/upstream/libperl-minimumversion-perl/current/lib/Perl/MinimumVersion/Reason.pm (original)
+++ branches/upstream/libperl-minimumversion-perl/current/lib/Perl/MinimumVersion/Reason.pm Thu Mar 3 03:13:16 2011
@@ -10,10 +10,10 @@
use vars qw{$VERSION};
BEGIN {
- $VERSION = '1.27';
+ $VERSION = '1.28';
# Only needed for dev releases, comment out otherwise
- $VERSION = eval $VERSION;
+ # $VERSION = eval $VERSION;
}
sub new {
Modified: branches/upstream/libperl-minimumversion-perl/current/script/perlver
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libperl-minimumversion-perl/current/script/perlver?rev=70266&op=diff
==============================================================================
--- branches/upstream/libperl-minimumversion-perl/current/script/perlver (original)
+++ branches/upstream/libperl-minimumversion-perl/current/script/perlver Thu Mar 3 03:13:16 2011
@@ -57,7 +57,7 @@
use vars qw{$VERSION $VERBOSE $BLAME $EXPLAIN};
BEGIN {
- $VERSION = '1.27';
+ $VERSION = '1.28';
# Configuration globals
$VERBOSE = '';
Modified: branches/upstream/libperl-minimumversion-perl/current/t/02_main.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libperl-minimumversion-perl/current/t/02_main.t?rev=70266&op=diff
==============================================================================
--- branches/upstream/libperl-minimumversion-perl/current/t/02_main.t (original)
+++ branches/upstream/libperl-minimumversion-perl/current/t/02_main.t Thu Mar 3 03:13:16 2011
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
# Main testing for Perl::MinimumVersion
Modified: branches/upstream/libperl-minimumversion-perl/current/t/03_open_3arg.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libperl-minimumversion-perl/current/t/03_open_3arg.t?rev=70266&op=diff
==============================================================================
--- branches/upstream/libperl-minimumversion-perl/current/t/03_open_3arg.t (original)
+++ branches/upstream/libperl-minimumversion-perl/current/t/03_open_3arg.t Thu Mar 3 03:13:16 2011
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
use strict;
BEGIN {
Modified: branches/upstream/libperl-minimumversion-perl/current/t/04_substr.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libperl-minimumversion-perl/current/t/04_substr.t?rev=70266&op=diff
==============================================================================
--- branches/upstream/libperl-minimumversion-perl/current/t/04_substr.t (original)
+++ branches/upstream/libperl-minimumversion-perl/current/t/04_substr.t Thu Mar 3 03:13:16 2011
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
use strict;
BEGIN {
Modified: branches/upstream/libperl-minimumversion-perl/current/t/05_foreach.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libperl-minimumversion-perl/current/t/05_foreach.t?rev=70266&op=diff
==============================================================================
--- branches/upstream/libperl-minimumversion-perl/current/t/05_foreach.t (original)
+++ branches/upstream/libperl-minimumversion-perl/current/t/05_foreach.t Thu Mar 3 03:13:16 2011
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
use strict;
BEGIN {
Modified: branches/upstream/libperl-minimumversion-perl/current/t/06_weaken.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libperl-minimumversion-perl/current/t/06_weaken.t?rev=70266&op=diff
==============================================================================
--- branches/upstream/libperl-minimumversion-perl/current/t/06_weaken.t (original)
+++ branches/upstream/libperl-minimumversion-perl/current/t/06_weaken.t Thu Mar 3 03:13:16 2011
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
use strict;
BEGIN {
Modified: branches/upstream/libperl-minimumversion-perl/current/t/07_splice.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libperl-minimumversion-perl/current/t/07_splice.t?rev=70266&op=diff
==============================================================================
--- branches/upstream/libperl-minimumversion-perl/current/t/07_splice.t (original)
+++ branches/upstream/libperl-minimumversion-perl/current/t/07_splice.t Thu Mar 3 03:13:16 2011
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
use strict;
BEGIN {
Modified: branches/upstream/libperl-minimumversion-perl/current/t/08_mkdir.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libperl-minimumversion-perl/current/t/08_mkdir.t?rev=70266&op=diff
==============================================================================
--- branches/upstream/libperl-minimumversion-perl/current/t/08_mkdir.t (original)
+++ branches/upstream/libperl-minimumversion-perl/current/t/08_mkdir.t Thu Mar 3 03:13:16 2011
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
use strict;
BEGIN {
Modified: branches/upstream/libperl-minimumversion-perl/current/t/09_pkg_name_version.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libperl-minimumversion-perl/current/t/09_pkg_name_version.t?rev=70266&op=diff
==============================================================================
--- branches/upstream/libperl-minimumversion-perl/current/t/09_pkg_name_version.t (original)
+++ branches/upstream/libperl-minimumversion-perl/current/t/09_pkg_name_version.t Thu Mar 3 03:13:16 2011
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
use strict;
BEGIN {
Modified: branches/upstream/libperl-minimumversion-perl/current/t/10_yada_yada_yada.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libperl-minimumversion-perl/current/t/10_yada_yada_yada.t?rev=70266&op=diff
==============================================================================
--- branches/upstream/libperl-minimumversion-perl/current/t/10_yada_yada_yada.t (original)
+++ branches/upstream/libperl-minimumversion-perl/current/t/10_yada_yada_yada.t Thu Mar 3 03:13:16 2011
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
use strict;
BEGIN {
Modified: branches/upstream/libperl-minimumversion-perl/current/t/12_double_colon.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libperl-minimumversion-perl/current/t/12_double_colon.t?rev=70266&op=diff
==============================================================================
--- branches/upstream/libperl-minimumversion-perl/current/t/12_double_colon.t (original)
+++ branches/upstream/libperl-minimumversion-perl/current/t/12_double_colon.t Thu Mar 3 03:13:16 2011
@@ -1,4 +1,4 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
use strict;
BEGIN {
Added: branches/upstream/libperl-minimumversion-perl/current/t/13_perl_510.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libperl-minimumversion-perl/current/t/13_perl_510.t?rev=70266&op=file
==============================================================================
--- branches/upstream/libperl-minimumversion-perl/current/t/13_perl_510.t (added)
+++ branches/upstream/libperl-minimumversion-perl/current/t/13_perl_510.t Thu Mar 3 03:13:16 2011
@@ -1,0 +1,39 @@
+#!/usr/bin/perl
+
+# Test Perl 5.10 features
+
+use strict;
+BEGIN {
+ $| = 1;
+ $^W = 1;
+}
+
+use Test::More tests => 10;
+use Perl::MinimumVersion;
+
+# Perl 5.10 operators
+SCOPE: {
+ my $p = Perl::MinimumVersion->new(\'$foo = 1 // 2');
+ is( $p->minimum_version, '5.010', '->minimum_version ok' );
+ my $m = $p->minimum_syntax_reason;
+ is( $m->element->content, '//', 'Matched correct element' );
+ is( $m->rule, '_perl_5010_operators', 'Matched correct rule' );
+}
+
+# Perl 5.10 magic variables
+SCOPE: {
+ my $p = Perl::MinimumVersion->new(\'%+ = ();');
+ is( $p->minimum_version, '5.010', '->minimum_version ok' );
+ my $m = $p->minimum_syntax_reason;
+ is( $m->element->content, '%+', 'Matched correct element' );
+ is( $m->rule, '_perl_5010_magic', 'Matched correct rule' );
+}
+
+SCOPE: {
+ my $p = Perl::MinimumVersion->new(\'$+{foo} = 1;');
+ is( $p->minimum_version, '5.010', '->minimum_version ok' );
+ my $m = $p->minimum_syntax_reason;
+ is( $m->element->content, '$+', 'Matched correct element' );
+ is( $m->element->symbol, '%+', 'Symbol matches expected' );
+ is( $m->rule, '_perl_5010_magic', 'Matched correct rule' );
+}
More information about the Pkg-perl-cvs-commits
mailing list