Upgrade to version.pm 0.60

p4raw-id: //depot/perl@28276

1 files changed, 24 insertions, 8 deletions

diff --git a/lib/version.pm b/lib/version.pm
index 5af78ef5ca..460df33825 100644
--- a/lib/version.pm
+++ b/lib/version.pm
@@ -1,20 +1,36 @@
 #!perl -w
 package version;
 
-use 5.005_03;
+use 5.005_04;
 use strict;
 
-require Exporter;
-use vars qw(@ISA $VERSION $CLASS @EXPORT);
+use vars qw(@ISA $VERSION $CLASS *qv);
 
-@ISA = qw(Exporter);
-
-@EXPORT = qw(qv);
-
-$VERSION = 0.53;
+$VERSION = "0.60";
+$VERSION = eval($VERSION);
 
 $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 $callpkg = caller();
+    no strict 'refs';
+    
+    *{$callpkg."::qv"} = 
+	    sub {return bless version::qv(shift), $class };
+}
 
 1;