X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fversion.pm;h=084b9485262cdc74e85f8571bb8eb97f01558661;hb=004caa160f94253de79aa75f9b412f94823dcb96;hp=460df3382515298b28f36aa0854810f201f1c9ef;hpb=c8a14fb6c15fa7e7d9f1ce7bc6160eab4bca36af;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/version.pm b/lib/version.pm
index 460df33..084b948 100644
--- a/lib/version.pm
+++ b/lib/version.pm
@@ -6,31 +6,20 @@ use strict;
 
 use vars qw(@ISA $VERSION $CLASS *qv);
 
-$VERSION = "0.60";
-$VERSION = eval($VERSION);
+$VERSION = 0.68;
 
 $CLASS = 'version';
 
-eval "use version::vxs $VERSION";
-if ( $@ ) { # don't have the XS version installed
-    eval "use version::vpp $VERSION"; # don't tempt fate
-    die "$@" if ( $@ );
-    push @ISA, "version::vpp";
-    *version::qv = \&version::vpp::qv;
-}
-else { # use XS module
-    push @ISA, "version::vxs";
-    *version::qv = \&version::vxs::qv;
-}
-
 # 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;