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 | |
| 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')
| -rw-r--r-- | lib/Exporter/Heavy.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Exporter/Heavy.pm b/lib/Exporter/Heavy.pm index 3bdc4b4f20..5e05803604 100644 --- a/lib/Exporter/Heavy.pm +++ b/lib/Exporter/Heavy.pm @@ -51,7 +51,7 @@ sub heavy_export { my($pkg, $callpkg, @imports) = @_; my($type, $sym, $oops); my($exports, $export_cache) = (\@{"${pkg}::EXPORT"}, - \%{"${pkg}::EXPORT"}); + $Exporter::Cache{$pkg} ||= {}); if (@imports) { if (!%$export_cache) { @@ -144,7 +144,7 @@ sub heavy_export { } my($fail, $fail_cache) = (\@{"${pkg}::EXPORT_FAIL"}, - \%{"${pkg}::EXPORT_FAIL"}); + $Exporter::FailCache{$pkg} ||= {}); if (@$fail) { if (!%$fail_cache) { |