From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 22 May 2006 16:51:36 +0000 (+0000)
Subject: Amend version.pm so it correctly loads the XS version of qv()
X-Git-Tag: accepted/trunk/20130322.191538~17573
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=4c0d88fa74047e2136ab0d51a21a0f536d0d1bcb;p=platform%2Fupstream%2Fperl.git

Amend version.pm so it correctly loads the XS version of qv()

p4raw-id: //depot/perl@28280
---

diff --git a/lib/version.pm b/lib/version.pm
index 460df33..dcf5804 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) = @_;