diff options
author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2004-01-21 21:10:10 +0000 |
---|---|---|
committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2004-01-21 21:10:10 +0000 |
commit | a2bca5a3dd681953c7431c93a2018c3eadc8ba06 (patch) | |
tree | 1551def3225d2c3f8ba051f934fee308d65815cf /lib/Exporter | |
parent | 8cf57410bfe449ec0fb15c8e676d142202abc442 (diff) | |
download | perl-a2bca5a3dd681953c7431c93a2018c3eadc8ba06.tar.gz |
[perl #25160] ':flock' not recognized unless it's first
Exporter::Heavy now will treat :, /, and ! special in
all arguments, not only if the _first_ arg starts with it
Date: Wed, 21 Jan 2004 08:32:47 -0500
Message-ID: <20040121133248.3359.qmail@plover.com>
p4raw-id: //depot/perl@22192
Diffstat (limited to 'lib/Exporter')
-rw-r--r-- | lib/Exporter/Heavy.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Exporter/Heavy.pm b/lib/Exporter/Heavy.pm index 232238686d..2cc792288f 100644 --- a/lib/Exporter/Heavy.pm +++ b/lib/Exporter/Heavy.pm @@ -69,7 +69,7 @@ sub heavy_export { $cache_is_current = 1; } - if ($imports[0] =~ m#^[/!:]#){ + if (grep m{^[/!:]}, @imports) { my $tagsref = \%{"${pkg}::EXPORT_TAGS"}; my $tagdata; my %imports; |