From 0a78cd5d546a6120b099fe63d90fd0c2559380f5 Mon Sep 17 00:00:00 2001
From: Steve Peters <steve@fisharerojo.org>
Date: Sun, 6 Nov 2005 20:18:23 +0000
Subject: Upgrade to CPAN-1.76_61

p4raw-id: //depot/perl@26023
---
 lib/CPAN/Version.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'lib/CPAN/Version.pm')

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;
-- 
cgit v1.2.1