diff options
| author | Joel Berger <joel.a.berger@gmail.com> | 2012-01-02 12:55:52 -0600 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-01-02 22:10:39 -0800 |
| commit | a91616b6bb0984d79fc8ae823d7b2fb6fba38ce4 (patch) | |
| tree | 61132cc66186eab110f169c959039f5bcc55f677 | |
| parent | 3195fd8c76aae772d1a8ad903546f26c01304aad (diff) | |
| download | perl-a91616b6bb0984d79fc8ae823d7b2fb6fba38ce4.tar.gz | |
Removed 'once' warnings in ExtUtils::Packlist::mkfh.
Fixes cpan bug #50315.
| -rw-r--r-- | dist/ExtUtils-Install/lib/ExtUtils/Packlist.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/dist/ExtUtils-Install/lib/ExtUtils/Packlist.pm b/dist/ExtUtils-Install/lib/ExtUtils/Packlist.pm index a671c2f442..dd0ce0d97a 100644 --- a/dist/ExtUtils-Install/lib/ExtUtils/Packlist.pm +++ b/dist/ExtUtils-Install/lib/ExtUtils/Packlist.pm @@ -24,6 +24,7 @@ Make a filehandle. Same kind of idea as Symbol::gensym(). sub mkfh() { no strict; +no warnings 'once'; my $fh = \*{$fhname++}; use strict; return($fh); |