diff options
author | Steve Hay <steve.m.hay@googlemail.com> | 2013-10-07 08:52:13 +0100 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2013-10-07 09:42:30 +0100 |
commit | d477c82bf8b8c629be2915335abd4358a5bd0132 (patch) | |
tree | 5a5fdb32b805f799201760c8245a12da84d1a546 /cpan/Module-Metadata | |
parent | 5eb9f461ffc6ee3b593f727dcbe05bcdc77bde57 (diff) | |
download | perl-d477c82bf8b8c629be2915335abd4358a5bd0132.tar.gz |
Upgrade Module-Metadata from version 1.000018 to 1.000019
Diffstat (limited to 'cpan/Module-Metadata')
-rw-r--r-- | cpan/Module-Metadata/lib/Module/Metadata.pm | 3 | ||||
-rw-r--r-- | cpan/Module-Metadata/t/metadata.t | 6 |
2 files changed, 8 insertions, 1 deletions
diff --git a/cpan/Module-Metadata/lib/Module/Metadata.pm b/cpan/Module-Metadata/lib/Module/Metadata.pm index a92d05f938..e352d31620 100644 --- a/cpan/Module-Metadata/lib/Module/Metadata.pm +++ b/cpan/Module-Metadata/lib/Module/Metadata.pm @@ -12,7 +12,7 @@ package Module::Metadata; use strict; use warnings; -our $VERSION = '1.000018'; +our $VERSION = '1.000019'; $VERSION = eval $VERSION; use Carp qw/croak/; @@ -654,6 +654,7 @@ sub _evaluate_version_line { #; package Module::Metadata::_version::p$pn; use version; no strict; + no warnings; \$vsub = sub { local $sigil$var; diff --git a/cpan/Module-Metadata/t/metadata.t b/cpan/Module-Metadata/t/metadata.t index 20e644035f..2c2eb9ef6d 100644 --- a/cpan/Module-Metadata/t/metadata.t +++ b/cpan/Module-Metadata/t/metadata.t @@ -210,6 +210,12 @@ package Simple v1.2.3_4 { 1; } --- + '0' => <<'---', # set from separately-initialised variable +package Simple; + our $CVSVERSION = '$Revision: 1.7 $'; + our ($VERSION) = ($CVSVERSION =~ /(\d+\.\d+)/); +} +--- ); my %modules = reverse @modules; |