diff options
| -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); |