lib/Pod/t/man.t should use TODO with not ok to express its intentions

[p5sagit/p5-mst-13.2.git] / lib / CPAN / Version.pm

diff --git a/lib/CPAN/Version.pm b/lib/CPAN/Version.pm
index e12d27a..f47c7c6 100644 (file)
--- a/lib/CPAN/Version.pm
+++ b/lib/CPAN/Version.pm
@@ -30,9 +30,13 @@ version strings visible and comparable.
 
 package CPAN::Version;
 
+use strict;
+use vars qw($VERSION);
+$VERSION = sprintf "%.2f", substr(q$Rev: 254 $,4)/100;
+
 # CPAN::Version::vcmp courtesy Jost Krieger
 sub vcmp {
-  my($self,$l,$r) = [at]_;
+  my($self,$l,$r) = @_;
   local($^W) = 0;
   CPAN->debug("l[$l] r[$r]") if $CPAN::DEBUG;
 
@@ -64,19 +68,19 @@ sub vcmp {
 }
 
 sub vgt {
-  my($self,$l,$r) = [at]_;
+  my($self,$l,$r) = @_;
   $self->vcmp($l,$r) > 0;
 }
 
 sub vstring {
-  my($self,$n) = [at]_;
+  my($self,$n) = @_;
   $n =~ s/^v// or die "CPAN::Version::vstring() called with invalid arg [$n]";
   pack "U*", split /\./, $n;
 }
 
 # vv => visible vstring
 sub float2vv {
-    my($self,$n) = [at]_;
+    my($self,$n) = @_;
     my($rev) = int($n);
     $rev ||= 0;
     my($mantissa) = $n =~ /\.(\d{1,12})/; # limit to 12 digits to limit
@@ -94,7 +98,7 @@ sub float2vv {
 }
 
 sub readable {
-  my($self,$n) = [at]_;
+  my($self,$n) = @_;
   $n =~ /^([\w\-\+\.]+)/;
 
   return $1 if defined $1 && length($1)>0;
@@ -109,7 +113,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;