diff options
| author | Karl Berry <karl@freefriends.org> | 2019-03-10 21:56:14 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2019-03-10 21:56:14 +0000 |
| commit | e0a2a718e89f9700d627f1e6a8eea8f21d2fbeb8 (patch) | |
| tree | 39972f65008b0d70f306a5f976494d29411bc41e /Master/tlpkg/tlperl/lib/version | |
| parent | b206fdc77d81ed1600949062f08de5690a4bf66f (diff) | |
tl19 perl 5.28.1 for Windows, from Siep
git-svn-id: svn://tug.org/texlive/trunk@50322 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/version')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/version/regex.pm | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/Master/tlpkg/tlperl/lib/version/regex.pm b/Master/tlpkg/tlperl/lib/version/regex.pm index d635c38d4b1..4e44d12c936 100644 --- a/Master/tlpkg/tlperl/lib/version/regex.pm +++ b/Master/tlpkg/tlperl/lib/version/regex.pm @@ -2,9 +2,7 @@ package version::regex; use strict; -use vars qw($VERSION $CLASS $STRICT $LAX); - -$VERSION = 0.9917; +our $VERSION = 0.9923; #--------------------------------------------------------------------------# # Version regexp components @@ -57,19 +55,19 @@ my $LAX_ALPHA_PART = qr/_[0-9]+/; # Strict decimal version number. -my $STRICT_DECIMAL_VERSION = +our $STRICT_DECIMAL_VERSION = qr/ $STRICT_INTEGER_PART $FRACTION_PART? /x; # Strict dotted-decimal version number. Must have both leading "v" and # at least three parts, to avoid confusion with decimal syntax. -my $STRICT_DOTTED_DECIMAL_VERSION = +our $STRICT_DOTTED_DECIMAL_VERSION = qr/ v $STRICT_INTEGER_PART $STRICT_DOTTED_DECIMAL_PART{2,} /x; # Complete strict version number syntax -- should generally be used # anchored: qr/ \A $STRICT \z /x -$STRICT = +our $STRICT = qr/ $STRICT_DECIMAL_VERSION | $STRICT_DOTTED_DECIMAL_VERSION /x; #--------------------------------------------------------------------------# @@ -80,7 +78,7 @@ $STRICT = # allowing an alpha suffix or allowing a leading or trailing # decimal-point -my $LAX_DECIMAL_VERSION = +our $LAX_DECIMAL_VERSION = qr/ $LAX_INTEGER_PART (?: $FRACTION_PART | \. )? $LAX_ALPHA_PART? | $FRACTION_PART $LAX_ALPHA_PART? @@ -92,7 +90,7 @@ my $LAX_DECIMAL_VERSION = # enough, without the leading "v", Perl takes .1.2 to mean v0.1.2, # so when there is no "v", the leading part is optional -my $LAX_DOTTED_DECIMAL_VERSION = +our $LAX_DOTTED_DECIMAL_VERSION = qr/ v $LAX_INTEGER_PART (?: $LAX_DOTTED_DECIMAL_PART+ $LAX_ALPHA_PART? )? | @@ -105,7 +103,7 @@ my $LAX_DOTTED_DECIMAL_VERSION = # The string 'undef' is a special case to make for easier handling # of return values from ExtUtils::MM->parse_version -$LAX = +our $LAX = qr/ undef | $LAX_DOTTED_DECIMAL_VERSION | $LAX_DECIMAL_VERSION /x; #--------------------------------------------------------------------------# |