diff options
author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-22 16:51:36 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-05-22 16:51:36 +0000 |
commit | 4c0d88fa74047e2136ab0d51a21a0f536d0d1bcb (patch) | |
tree | dd62880eb615a30e0bd72a087cbce0b39a068996 /lib | |
parent | a79db61dcadc9f5a0fd43eecf4ddcdd6bae7af03 (diff) | |
download | perl-4c0d88fa74047e2136ab0d51a21a0f536d0d1bcb.tar.gz |
Amend version.pm so it correctly loads the XS version of qv()
p4raw-id: //depot/perl@28280
Diffstat (limited to 'lib')
-rw-r--r-- | lib/version.pm | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/lib/version.pm b/lib/version.pm index 460df33825..dcf5804d6d 100644 --- a/lib/version.pm +++ b/lib/version.pm @@ -6,23 +6,11 @@ use strict; use vars qw(@ISA $VERSION $CLASS *qv); -$VERSION = "0.60"; +$VERSION = "0.60_01"; $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) = @_; |