Replace custom anon filehandle generation with Symbol.pm.

It's been in Perl since 5.004. For rt.cpan.org 50315
schwern · Jan 19, 2012 · c95435d · c95435d
1 parent 1cfeff1
commit c95435d
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/lib/ExtUtils/Packlist.pm b/lib/ExtUtils/Packlist.pm
@@ -19,14 +19,12 @@ Make a filehandle. Same kind of idea as Symbol::gensym().
 
 =cut
 
-sub mkfh()
-{
-no strict;
-my $fh = \*{$fhname++};
-use strict;
-return($fh);
+sub mkfh {
+    require Symbol;
+    return Symbol::gensym();
 }
 
+
 =item __find_relocations
 
 Works out what absolute paths in the configuration have been located at run