Use another lexical filehandle instead of a local *DH

bestpractical · Apr 25, 2011 · 112f0ae · 112f0ae
1 parent 8820b5c
commit 112f0ae
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/lib/Test/Spelling.pm b/lib/Test/Spelling.pm
@@ -91,10 +91,9 @@ sub all_pod_files {
     while ( @queue ) {
         my $file = shift @queue;
         if ( -d $file ) {
-            local *DH;
-            opendir DH, $file or next;
-            my @newfiles = readdir DH;
-            closedir DH;
+            opendir my $dirhandle, $file or next;
+            my @newfiles = readdir $dirhandle;
+            closedir $dirhandle;
 
             @newfiles = File::Spec->no_upwards( @newfiles );
             @newfiles = grep { $_ ne "CVS" && $_ ne ".svn" } @newfiles;