This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix regression with $version::LAX and bump release
authorJohn Peacock <john.peacock@havurah-software.org>
Sat, 4 Jan 2014 20:42:14 +0000 (15:42 -0500)
committerKarl Williamson <public@khwilliamson.com>
Sat, 4 Jan 2014 21:07:56 +0000 (14:07 -0700)
When I created a standalone version::regex class, I forgot that
the $version::LAX and $version::STRICT regex's were documented
as available (though not exported).  Resolves CPAN ticket:

  https://rt.cpan.org/Ticket/Display.html?id=91858

(Committer also ran  porting/customized.t --regen)

15 files changed:
cpan/version/lib/version.pm
cpan/version/lib/version/Internals.pod
cpan/version/lib/version/regex.pm
cpan/version/lib/version/vpp.pm
cpan/version/t/00impl-pp.t
cpan/version/t/01base.t
cpan/version/t/02derived.t
cpan/version/t/03require.t
cpan/version/t/04strict_lax.t
cpan/version/t/05sigdie.t
cpan/version/t/06noop.t
cpan/version/t/07locale.t
cpan/version/t/08_corelist.t
cpan/version/t/09_list_util.t
t/porting/customized.dat

index dfdee5e..e20fb6e 100644 (file)
@@ -6,13 +6,15 @@ use strict;
 
 use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);
 
-$VERSION = 0.9905;
+$VERSION = 0.9906;
 $CLASS = 'version';
 
 # avoid using Exporter
 require version::regex;
 *version::is_lax = \&version::regex::is_lax;
 *version::is_strict = \&version::regex::is_strict;
+*LAX = \$version::regex::LAX;
+*STRICT = \$version::regex::STRICT;
 
 sub import {
     no strict 'refs';
index d0b2c13..95be844 100644 (file)
@@ -129,7 +129,7 @@ was used to initialize the version object.
 =head2 Regular Expressions for Version Parsing
 
 A formalized definition of the legal forms for version strings is
-included in the main F<version.pm> file.  Primitives are included for
+included in the C<version::regex> class.  Primitives are included for
 common elements, although they are scoped to the file so they are useful
 for reference purposes only.  There are two publicly accessible scalars
 that can be used in other code (not exported):
index 7370b5b..341902e 100644 (file)
@@ -4,7 +4,7 @@ use strict;
 
 use vars qw($VERSION $CLASS $STRICT $LAX);
 
-$VERSION = 0.9905;
+$VERSION = 0.9906;
 
 #--------------------------------------------------------------------------#
 # Version regexp components
index 79e74c3..13e5a7e 100644 (file)
@@ -122,13 +122,15 @@ use strict;
 
 use POSIX qw/locale_h/;
 use locale;
-use vars qw($VERSION $CLASS @ISA);
-$VERSION = 0.9905;
+use vars qw($VERSION $CLASS @ISA $LAX $STRICT);
+$VERSION = 0.9906;
 $CLASS = 'version::vpp';
 
 require version::regex;
 *version::vpp::is_strict = \&version::regex::is_strict;
 *version::vpp::is_lax = \&version::regex::is_lax;
+*LAX = \$version::regex::LAX;
+*STRICT = \$version::regex::STRICT;
 
 use overload (
     '""'       => \&stringify,
index 36026aa..c62889f 100644 (file)
@@ -9,7 +9,7 @@ use Test::More qw/no_plan/;
 BEGIN {
     (my $coretests = $0) =~ s'[^/]+\.t'coretests.pm';
     require $coretests;
-    use_ok('version::vpp', 0.9905);
+    use_ok('version::vpp', 0.9906);
 }
 
 BaseTests("version::vpp","new","qv");
index 681a0ff..41ba0f6 100644 (file)
@@ -9,7 +9,7 @@ use Test::More qw/no_plan/;
 BEGIN {
     (my $coretests = $0) =~ s'[^/]+\.t'coretests.pm';
     require $coretests;
-    use_ok('version', 0.9905);
+    use_ok('version', 0.9906);
 }
 
 BaseTests("version","new","qv");
index 8cf2743..9f2f97e 100644 (file)
@@ -10,7 +10,7 @@ use File::Temp qw/tempfile/;
 BEGIN {
     (my $coretests = $0) =~ s'[^/]+\.t'coretests.pm';
     require $coretests;
-    use_ok("version", 0.9905);
+    use_ok("version", 0.9906);
     # If we made it this far, we are ok.
 }
 
index 873fada..d480c88 100644 (file)
@@ -14,7 +14,7 @@ BEGIN {
 # Don't want to use, because we need to make sure that the import doesn't
 # fire just yet (some code does this to avoid importing qv() and delare()).
 require_ok("version");
-is $version::VERSION, 0.9905, "Make sure we have the correct class";
+is $version::VERSION, 0.9906, "Make sure we have the correct class";
 ok(!"main"->can("qv"), "We don't have the imported qv()");
 ok(!"main"->can("declare"), "We don't have the imported declare()");
 
index 24a7215..25c1dde 100644 (file)
@@ -8,11 +8,14 @@ use Test::More qw/no_plan/;
 
 # do strict lax tests in a sub to isolate a package to test importing
 SKIP: {
-    skip 'No extended regexes Perl < 5.006', 172
+    skip 'No extended regexes Perl < 5.006', 174
        if $] < 5.006_000;
     strict_lax_tests();
+    is ref($version::LAX), 'Regexp', 'Can see $version::LAX '.$version::LAX ;
+    is ref($version::STRICT), 'Regexp', 'Can see $version::STRICT '.$version::STRICT;
 }
 
+
 sub strict_lax_tests {
   package temp12345;
   # copied from perl core test t/op/packagev.t
index 3496f57..5fe5210 100644 (file)
@@ -14,7 +14,7 @@ BEGIN {
 }
 
 BEGIN {
-    use version 0.9905;
+    use version 0.9906;
 }
 
 pass "Didn't get caught by the wrong DIE handler, which is a good thing";
index 74e7251..8db4c75 100644 (file)
@@ -7,7 +7,7 @@
 use Test::More qw/no_plan/;
 
 BEGIN {
-    use_ok('version', 0.9905);
+    use_ok('version', 0.9906);
 }
 
 my $v1 = version->new('1.2');
index a3c75c0..3503b6f 100644 (file)
@@ -11,7 +11,7 @@ use Test::More tests => 7;
 use Config;
 
 BEGIN {
-    use_ok('version', 0.9905);
+    use_ok('version', 0.9906);
 }
 
 SKIP: {
index 9a8e474..8cd2e14 100644 (file)
@@ -5,7 +5,7 @@
 #########################
 
 use Test::More tests => 3;
-use_ok("version", 0.9905);
+use_ok("version", 0.9906);
 
 # do strict lax tests in a sub to isolate a package to test importing
 SKIP: {
index 4882ee9..6348f9d 100644 (file)
@@ -4,7 +4,7 @@
 #########################
 
 use strict;
-use_ok("version", 0.9905);
+use_ok("version", 0.9906);
 use Test::More;
 
 BEGIN {
index e4786e8..bbd5040 100644 (file)
@@ -16,6 +16,6 @@ autodie cpan/autodie/t/utf8_open.t 5295851351c49f939008c5aca6a798742b1e503d
 libnet cpan/libnet/Makefile.PL 6b10ac98e672bfebb8f49b9720a93442645208b3
 podlators cpan/podlators/scripts/pod2man.PL f81acf53f3ff46cdcc5ebdd661c5d13eb35d20d6
 podlators cpan/podlators/scripts/pod2text.PL b4693fcfe4a0a1b38a215cfb8985a65d5d025d69
-version cpan/version/lib/version.pm 881dee6f24fc887c5650b9c9a8aeed4d4923cc16
-version cpan/version/t/07locale.t bbc7f94bc2ad633978aedb5732b8b4ad6b3247fb
-version cpan/version/t/08_corelist.t 1c10cc05162c99b02cd45f9b9fb9a310aa2bff10
+version cpan/version/lib/version.pm 3934bcc033f1f15aed2ba78017f71d2e5482deca
+version cpan/version/t/07locale.t 9ec512b4ef9cd6d6ab26c4215692048925fd0179
+version cpan/version/t/08_corelist.t 3094fab78b4e8a5471d0c3bcca2402317c6562d0