diff options
| author | Hugo van der Sanden <hv@crypt.org> | 2002-08-29 22:56:45 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-08-29 22:56:45 +0000 |
| commit | a6faae8dfc92869b2dd029b3fff2c8eea57135d0 (patch) | |
| tree | 13ac04ac30557c3d7cd117cbda095eb704136076 /lib/Exporter.pm | |
| parent | d4e900e09d841ca8d48fcd75d5be63ec52dc96d1 (diff) | |
| download | perl-a6faae8dfc92869b2dd029b3fff2c8eea57135d0.tar.gz | |
#17449 failed to apply the actual patch. This is it.
p4raw-id: //depot/perl@17806
Diffstat (limited to 'lib/Exporter.pm')
| -rw-r--r-- | lib/Exporter.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/Exporter.pm b/lib/Exporter.pm index 8b8d4c4939..753ea6aab2 100644 --- a/lib/Exporter.pm +++ b/lib/Exporter.pm @@ -9,7 +9,8 @@ require 5.006; our $Debug = 0; our $ExportLevel = 0; our $Verbose ||= 0; -our $VERSION = '5.566'; +our $VERSION = '5.567'; +our (%Cache); $Carp::Internal{Exporter} = 1; sub as_heavy { @@ -30,10 +31,10 @@ sub import { my $callpkg = caller($ExportLevel); # We *need* to treat @{"$pkg\::EXPORT_FAIL"} since Carp uses it :-( - my($exports, $export_cache, $fail) - = (\@{"$pkg\::EXPORT"}, \%{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); + my($exports, $fail) = (\@{"$pkg\::EXPORT"}, \@{"$pkg\::EXPORT_FAIL"}); return export $pkg, $callpkg, @_ if $Verbose or $Debug or @$fail > 1; + my $export_cache = ($Cache{$pkg} ||= {}); my $args = @_ or @_ = @$exports; local $_; |