From: John Peacock <jpeacock@rowman.com>
Date: Sat, 24 Nov 2001 14:27:46 +0000 (-0500)
Subject: Re: [PATCH] Make Exporter::Heavy use Universal->VERSION()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=22b4675c82b54f7c9e1db32463dab649611fbcbe;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] Make Exporter::Heavy use Universal->VERSION()
Message-ID: <3BFFF4B2.40509@rowman.com>

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

diff --git a/lib/Exporter/Heavy.pm b/lib/Exporter/Heavy.pm
index e3fd897..4b1c2e2 100644
--- a/lib/Exporter/Heavy.pm
+++ b/lib/Exporter/Heavy.pm
@@ -112,7 +112,7 @@ sub heavy_export {
 	foreach $sym (@imports) {
 	    if (!$export_cache->{$sym}) {
 		if ($sym =~ m/^\d/) {
-		    $pkg->require_version($sym);
+		    $pkg->VERSION($sym); # inherit from UNIVERSAL
 		    # If the version number was the only thing specified
 		    # then we should act as if nothing was specified:
 		    if (@imports == 1) {
@@ -217,16 +217,7 @@ sub _push_tags {
 sub require_version {
     my($self, $wanted) = @_;
     my $pkg = ref $self || $self;
-    my $version = ${"${pkg}::VERSION"};
-    if (!defined $version or $version < $wanted) {
-	$version = defined $version ? $version : "(undef)";
-	    # %INC contains slashes, but $pkg contains double-colons.
-	my $file = (map {s,::,/,g; $INC{$_}} "$pkg.pm")[0];
-	$file = defined $file ? " ($file)" : '';
-	require Carp;
-	Carp::croak("$pkg $wanted required--this is only version $version$file")
-    }
-    $version;
+    return ${pkg}->VERSION($wanted);
 }
 
 1;