diff options
| author | Steve Peters <steve@fisharerojo.org> | 2005-11-06 20:18:23 +0000 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2005-11-06 20:18:23 +0000 |
| commit | 0a78cd5d546a6120b099fe63d90fd0c2559380f5 (patch) | |
| tree | 0d17db5f2126c8995eea0b8dddba27680caaf993 /lib/CPAN/Version.pm | |
| parent | 52a5c5170563b6471b4be61ccf3752d0221efee6 (diff) | |
| download | perl-0a78cd5d546a6120b099fe63d90fd0c2559380f5.tar.gz | |
Upgrade to CPAN-1.76_61
p4raw-id: //depot/perl@26023
Diffstat (limited to 'lib/CPAN/Version.pm')
| -rw-r--r-- | lib/CPAN/Version.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/CPAN/Version.pm b/lib/CPAN/Version.pm index 68a4fec690..14c5bf44a8 100644 --- a/lib/CPAN/Version.pm +++ b/lib/CPAN/Version.pm @@ -30,6 +30,9 @@ version strings visible and comparable. package CPAN::Version; +use vars qw($VERSION); +$VERSION = sprintf "%.2f", substr(q$Rev: 231 $,4)/100; + # CPAN::Version::vcmp courtesy Jost Krieger sub vcmp { my($self,$l,$r) = @_; @@ -109,7 +112,11 @@ sub readable { # And if they say v1.2, then the old perl takes it as "v12" - $CPAN::Frontend->mywarn("Suspicious version string seen [$n]\n"); + if (defined $CPAN::Frontend) { + $CPAN::Frontend->mywarn("Suspicious version string seen [$n]\n"); + } else { + warn("Suspicious version string seen [$n]\n"); + } return $n; } my $better = sprintf "v%vd", $n; |