diff options
author | John Peacock <jpeacock@rowman.com> | 2001-11-24 09:27:46 -0500 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-11-24 18:46:31 +0000 |
commit | 22b4675c82b54f7c9e1db32463dab649611fbcbe (patch) | |
tree | 5c2010dccc30a5764c8f363ed6170ea65713f0fb /lib/Exporter | |
parent | 77d1c1ec0d3db6893e6210858ed35ecb56477e0c (diff) | |
download | perl-22b4675c82b54f7c9e1db32463dab649611fbcbe.tar.gz |
Re: [PATCH] Make Exporter::Heavy use Universal->VERSION()
Message-ID: <3BFFF4B2.40509@rowman.com>
p4raw-id: //depot/perl@13243
Diffstat (limited to 'lib/Exporter')
-rw-r--r-- | lib/Exporter/Heavy.pm | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/lib/Exporter/Heavy.pm b/lib/Exporter/Heavy.pm index e3fd89770c..4b1c2e2526 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; |