This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Final patch to sync with version.pm CPAN release
authorJohn Peacock <jpeacock@cpan.org>
Sat, 4 Jan 2014 15:51:55 +0000 (10:51 -0500)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 4 Jan 2014 18:53:46 +0000 (10:53 -0800)
A last couple of test tweaks so that version.pm now passes all
tests from 5.005_04 to blead.  NOTE the pure Perl version::vpp is
not default for all Perl releases prior to v5.10.

cpan/version/lib/version.pm
cpan/version/lib/version/vpp.pm
cpan/version/t/09_list_util.t

index b21f1bd..dfdee5e 100644 (file)
@@ -1,10 +1,10 @@
 #!perl -w
 package version;
 
-use 5.005_05;
+use 5.005_04;
 use strict;
 
-use vars qw(@ISA $VERSION $CLASS *declare *qv);
+use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);
 
 $VERSION = 0.9905;
 $CLASS = 'version';
index c879c39..79e74c3 100644 (file)
@@ -117,7 +117,7 @@ sub currstr {
 
 package version::vpp;
 
-use 5.005_05;
+use 5.005_04;
 use strict;
 
 use POSIX qw/locale_h/;
index f7fb89f..4882ee9 100644 (file)
@@ -4,34 +4,37 @@
 #########################
 
 use strict;
-use Test::More tests => 3;
 use_ok("version", 0.9905);
+use Test::More;
 
-# do strict lax tests in a sub to isolate a package to test importing
-SKIP: {
-    eval "use List::Util qw(reduce);";
-    skip 'No reduce() in List::Util', 2
-       if $@;
-
-    # use again to get the import()
-    use List::Util qw(reduce);
-    {
-       my $fail = 0;
-       my $ret = reduce {
-           version->parse($a);
-           $fail++ unless defined $a;
-           1
-       } "0.039", "0.035";
-       is $fail, 0, 'reduce() with parse';
+BEGIN {
+    eval "use List::Util qw(reduce)";
+    if ($@) {
+       plan skip_all => "No List::Util::reduce() available";
+    } else {
+       plan tests => 3;
     }
+}
 
-    {
-       my $fail = 0;
-       my $ret = reduce {
-           version->qv($a);
-           $fail++ unless defined $a;
-           1
-       } "0.039", "0.035";
-       is $fail, 0, 'reduce() with qv';
-    }
+# do strict lax tests in a sub to isolate a package to test importing
+# use again to get the import()
+use List::Util qw(reduce);
+{
+    my $fail = 0;
+    my $ret = reduce {
+       version->parse($a);
+       $fail++ unless defined $a;
+       1
+    } "0.039", "0.035";
+    is $fail, 0, 'reduce() with parse';
+}
+
+{
+    my $fail = 0;
+    my $ret = reduce {
+       version->qv($a);
+       $fail++ unless defined $a;
+       1
+    } "0.039", "0.035";
+    is $fail, 0, 'reduce() with qv';
 }