[Bps-public-commit] Test-Spelling branch, master, updated. 112f0ae3a126e1a562f8330c485003d2077b310c

[Shawn Moore]

The branch, master has been updated
       via  112f0ae3a126e1a562f8330c485003d2077b310c (commit)
      from  8820b5c18ab7f0803742eac279bdfb3e0931fac9 (commit)

Summary of changes:
 lib/Test/Spelling.pm |    7 +++----
 1 files changed, 3 insertions(+), 4 deletions(-)

- Log -----------------------------------------------------------------
commit 112f0ae3a126e1a562f8330c485003d2077b310c
Author: Shawn M Moore <sartak at bestpractical.com>
Date:   Mon Apr 25 13:29:58 2011 -0400

    Use another lexical filehandle instead of a local *DH

diff --git a/lib/Test/Spelling.pm b/lib/Test/Spelling.pm
index 59404e0..03059e3 100644
--- 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;

-----------------------------------------------------------------------