Deprecate assignment to $[

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

diff --git a/lib/CPAN/Version.pm b/lib/CPAN/Version.pm
index c306634..da876aa 100644 (file)
--- a/lib/CPAN/Version.pm
+++ b/lib/CPAN/Version.pm
@@ -2,7 +2,7 @@ package CPAN::Version;
 
 use strict;
 use vars qw($VERSION);
-$VERSION = sprintf "%.6f", substr(q$Rev: 2210 $,4)/1000000 + 5.4;
+$VERSION = "5.5";
 
 # CPAN::Version::vcmp courtesy Jost Krieger
 sub vcmp {
@@ -60,6 +60,16 @@ sub vlt {
     0 + ($self->vcmp($l,$r) < 0);
 }
 
+sub vge {
+    my($self,$l,$r) = @_;
+    $self->vcmp($l,$r) >= 0;
+}
+
+sub vle {
+    my($self,$l,$r) = @_;
+    0 + ($self->vcmp($l,$r) <= 0);
+}
+
 sub vstring {
     my($self,$n) = @_;
     $n =~ s/^v// or die "CPAN::Version::vstring() called with invalid arg [$n]";