diff options
| author | Steve Peters <steve@fisharerojo.org> | 2007-05-29 14:42:24 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2007-05-29 14:42:24 +0000 |
| commit | 8ce4ea0b866bfa0232d4a595485c596f09e0cac6 (patch) | |
| tree | f423652d5e2aebd3e20c266eb0d6c12758206026 /lib/CPAN | |
| parent | 7828f908b176de6cfbabc3077a4131cab72a7cb3 (diff) | |
| download | perl-8ce4ea0b866bfa0232d4a595485c596f09e0cac6.tar.gz | |
Upgrade to CPAN-1.9102
p4raw-id: //depot/perl@31306
Diffstat (limited to 'lib/CPAN')
| -rw-r--r-- | lib/CPAN/Kwalify.pm | 4 | ||||
| -rw-r--r-- | lib/CPAN/t/10version.t | 2 |
2 files changed, 4 insertions, 2 deletions
diff --git a/lib/CPAN/Kwalify.pm b/lib/CPAN/Kwalify.pm index c64236a823..77564cb7fc 100644 --- a/lib/CPAN/Kwalify.pm +++ b/lib/CPAN/Kwalify.pm @@ -48,7 +48,7 @@ See L<http://www.perl.com/perl/misc/Artistic.html> use strict; package CPAN::Kwalify; -use vars qw($VERSION); +use vars qw($VERSION $VAR1); $VERSION = sprintf "%.6f", substr(q$Rev: 1418 $,4)/1000000 + 5.4; use File::Spec (); @@ -83,7 +83,7 @@ sub _validate { local $/; <FH>; }; - our $VAR1 = undef; + $VAR1 = undef; eval $content; die "parsing of '$schema_name.dd' failed: $@" if $@; $schema_loaded->{$schema_name} = $VAR1; diff --git a/lib/CPAN/t/10version.t b/lib/CPAN/t/10version.t index d1f8c3946d..3c6978f27b 100644 --- a/lib/CPAN/t/10version.t +++ b/lib/CPAN/t/10version.t @@ -71,6 +71,8 @@ __END__ v1.2.3 v1.1.1 1 v1.2.3 v1.2.1 1 v1.2.3 v1.2.11 -1 +v2.4 2.004000 -1 +v2.4 2.004 0 1.2.3 1.2.11 -1 1.9 1.10 1 VERSION VERSION 0 |