diff options
| author | John Peacock <jpeacock@rowman.com> | 2006-06-08 17:14:04 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-06-09 16:03:03 +0000 |
| commit | 92dcf8ce268fff64097044a269995ffa27692a3d (patch) | |
| tree | 7366c02363dc12211bd8168cf4f6a60680d4b1a1 /lib/version.pm | |
| parent | 7e265ef3a760ea72c6406128afc4b4771e71c25e (diff) | |
| download | perl-92dcf8ce268fff64097044a269995ffa27692a3d.tar.gz | |
[patch] Fwd: CPAN Upload: J/JP/JPEACOCK/version-0.64.tar.gz
Message-ID: <4488CB5C.4070702@rowman.com>
p4raw-id: //depot/perl@28375
Diffstat (limited to 'lib/version.pm')
| -rw-r--r-- | lib/version.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lib/version.pm b/lib/version.pm index 3fcb6b1ba1..74313c3c51 100644 --- a/lib/version.pm +++ b/lib/version.pm @@ -6,8 +6,7 @@ use strict; use vars qw(@ISA $VERSION $CLASS *qv); -$VERSION = "0.60_02"; -$VERSION = eval($VERSION); +$VERSION = 0.64; $CLASS = 'version'; @@ -19,7 +18,7 @@ sub import { *{$callpkg."::qv"} = sub {return bless version::qv(shift), $class } - unless $callpkg->can('qv'); + unless defined (&{"$callpkg\::qv"}); } |