From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Wed, 21 Jan 2004 21:10:10 +0000 (+0000)
Subject: [perl #25160] ':flock' not recognized unless it's first
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a2bca5a3dd681953c7431c93a2018c3eadc8ba06;p=p5sagit%2Fp5-mst-13.2.git

[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
---

diff --git a/lib/Exporter/Heavy.pm b/lib/Exporter/Heavy.pm
index 2322386..2cc7922 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;