summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-05-22 16:51:36 +0000
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-05-22 16:51:36 +0000
commit4c0d88fa74047e2136ab0d51a21a0f536d0d1bcb (patch)
treedd62880eb615a30e0bd72a087cbce0b39a068996 /lib
parenta79db61dcadc9f5a0fd43eecf4ddcdd6bae7af03 (diff)
downloadperl-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.pm14
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) = @_;