Revert change 28322, which makes ithreads panic

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

diff --git a/lib/version.pm b/lib/version.pm
index 9443a6a..3fcb6b1 100644 (file)
--- a/lib/version.pm
+++ b/lib/version.pm
@@ -1,20 +1,26 @@
 #!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.50;
+$VERSION = "0.60_02";
+$VERSION = eval($VERSION);
 
 $CLASS = 'version';
 
 # Preloaded methods go here.
+sub import {
+    my ($class, @args) = @_;
+    my $callpkg = caller();
+    no strict 'refs';
+    
+    *{$callpkg."::qv"} = 
+           sub {return bless version::qv(shift), $class }
+       unless $callpkg->can('qv');
+
+}
 
 1;