File::Copy & permission bits.

[perl5.git] / lib / version.pm

diff --git a/lib/version.pm b/lib/version.pm
index 3fcb6b1..f05d20a 100644 (file)
--- a/lib/version.pm
+++ b/lib/version.pm
@@ -6,20 +6,19 @@ use strict;
 
 use vars qw(@ISA $VERSION $CLASS *qv);
 
-$VERSION = "0.60_02";
-$VERSION = eval($VERSION);
+$VERSION = 0.74;
 
 $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 }
-       unless $callpkg->can('qv');
+       unless defined (&{"$callpkg\::qv"});
 
 }