[Bps-public-commit] Test-Spelling branch, master, updated. 2c7615c053a10dbcdcba3cc4e1b41cb2d8f64fa9

Shawn Moore sartak at bestpractical.com
Mon Apr 25 13:15:31 EDT 2011


The branch, master has been updated
       via  2c7615c053a10dbcdcba3cc4e1b41cb2d8f64fa9 (commit)
      from  56e7ad3f67e7a33e8dfbd5a0505f0136706340a9 (commit)

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

- Log -----------------------------------------------------------------
commit 2c7615c053a10dbcdcba3cc4e1b41cb2d8f64fa9
Author: Shawn M Moore <sartak at bestpractical.com>
Date:   Mon Apr 25 13:15:19 2011 -0400

    Use a lexical filehandle instead of global for spell cmd

diff --git a/lib/Test/Spelling.pm b/lib/Test/Spelling.pm
index 2680c6c..54431ee 100644
--- a/lib/Test/Spelling.pm
+++ b/lib/Test/Spelling.pm
@@ -42,10 +42,10 @@ sub pod_file_spelling_ok {
     $checker->parse_from_file($file, $scratch);
 
     # run spell command and fetch output
-    open ASPELL, "$Spell_cmd < $scratch|"
+    open my $spellcheck_results, "$Spell_cmd < $scratch|"
         or croak "Couldn't run spellcheck command '$Spell_cmd'";
-    my @words = <ASPELL>;
-    close ASPELL or die;
+    my @words = <$spellcheck_results>;
+    close $spellcheck_results or die;
 
     # clean up words, remove stopwords, select unique errors
     chomp for @words;

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



More information about the Bps-public-commit mailing list