Change 22192: [perl #25160] ':flock' not recognized unless it's first

[H.Merijn Brand]

Change 22192 by [EMAIL PROTECTED] on 2004/01/21 21:10:10

        [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: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/lib/Exporter/Heavy.pm#22 edit

Differences ...

==== //depot/perl/lib/Exporter/Heavy.pm#22 (text) ====
Index: perl/lib/Exporter/Heavy.pm
--- perl/lib/Exporter/Heavy.pm#21~18263~        Sun Dec  8 13:56:13 2002
+++ perl/lib/Exporter/Heavy.pm  Wed Jan 21 13:10:10 2004
@@ -69,7 +69,7 @@
            $cache_is_current = 1;
        }
 
-       if ($imports[0] =~ m#^[/!:]#){
+       if (grep m{^[/!:]}, @imports) {
            my $tagsref = \%{"${pkg}::EXPORT_TAGS"};
            my $tagdata;
            my %imports;
End of Patch.