summaryrefslogtreecommitdiff
path: root/dist/Safe
diff options
context:
space:
mode:
authorDavid Golden <dagolden@cpan.org>2010-01-13 21:47:30 -0500
committerDavid Golden <dagolden@cpan.org>2010-01-13 22:04:08 -0500
commit91152fc19d1c59a1213e39f74ac8a80f4a015f5e (patch)
tree13df618732832e19928bf20a21a4f6dbf7a9bc67 /dist/Safe
parent32709fdf41543f067562e0dc9944448dd11d2c28 (diff)
downloadperl-91152fc19d1c59a1213e39f74ac8a80f4a015f5e.tar.gz
Omnibus strict and lax version parsing
Authors: John Peacock, David Golden and Zefram The goal of this mega-patch is to enforce strict rules for version numbers provided to 'package NAME VERSION' while formalizing the prior, lax rules used for version object creation. Parsing for use() is unchanged. version.pm adds two globals, $STRICT and $LAX, containing regular expressions that define the rules. There are two additional functions -- version::is_strict and version::is_lax -- that test an argument against these rules. However, parsing of strings that might contain version numbers is done in core via the Perl_scan_version function, which may be called during compilation or may be called later when version objects are created by Perl_new_version or Perl_upg_version. A new helper function, Perl_prescan_version, has been added to validate a string under either strict or lax rules. This is used in toke.c for 'package NAME VERSION' in strict mode and by Perl_scan_version in lax mode. It matches the behavior of the verison.pm regular expressions, but does not use them directly. A new test file, comp/packagev.t, validates strict and lax behaviors of 'package NAME VERSION' and 'version->new(VERSION)' respectively and verifies their behavior against the $STRICT and $LAX regular expressions, as well. Validating these two implementation should help ensure they each work as intended. Other files and tests have been modified as necessary to support these changes. There is remaining work to be done in a few areas: * documenting all changes in behavior and new functions * determining proper treatment of "," as decimal separators in various locales * updating diagnostics for new error messages * porting changes back to the version.pm distribution on CPAN, including pure-Perl versions
Diffstat (limited to 'dist/Safe')
-rw-r--r--dist/Safe/Safe.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/dist/Safe/Safe.pm b/dist/Safe/Safe.pm
index eb7d68b71d..476b9fd693 100644
--- a/dist/Safe/Safe.pm
+++ b/dist/Safe/Safe.pm
@@ -62,6 +62,8 @@ my $default_share = [qw[
&utf8::unicode_to_native
$version::VERSION
$version::CLASS
+ $version::STRICT
+ $version::LAX
@version::ISA
], ($] >= 5.008001 && qw[
&Regexp::DESTROY