X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fversion.pm;h=85be41d6872a6a1095b33ed9205d44300b797608;hb=ec488c7f13c4270af54fc91b6664495b5831b7ec;hp=dcf5804d6d90996f8d0bcfd8339fde5e1aeb10c3;hpb=4c0d88fa74047e2136ab0d51a21a0f536d0d1bcb;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/version.pm b/lib/version.pm
index dcf5804..85be41d6 100644
--- a/lib/version.pm
+++ b/lib/version.pm
@@ -6,19 +6,20 @@ use strict;
 
 use vars qw(@ISA $VERSION $CLASS *qv);
 
-$VERSION = "0.60_01";
-$VERSION = eval($VERSION);
+$VERSION = "0.70";
 
 $CLASS = 'version';
 
 # Preloaded methods go here.
 sub import {
-    my ($class, @args) = @_;
+    my ($class) = @_;
     my $callpkg = caller();
     no strict 'refs';
     
     *{$callpkg."::qv"} = 
-	    sub {return bless version::qv(shift), $class };
+	    sub {return bless version::qv(shift), $class }
+	unless defined (&{"$callpkg\::qv"});
+
 }
 
 1;