Imported Upstream version 20130922

[perltidy.git] / examples / find_naughty.pl

diff --git a/examples/find_naughty.pl b/examples/find_naughty.pl
index fc5a750f549e490e2514bd1d6970724af20827f2..fb5719ce50d87351874921ee90bbd0a804e87b67 100644 (file)
--- a/examples/find_naughty.pl
+++ b/examples/find_naughty.pl
@@ -40,7 +40,7 @@ foreach my $source (@ARGV) {
 # The PerlTokenSearch package is an interface to perltidy which accepts a
 # source filehandle and looks for selected variables.
 #
-# It works by making a a callback object with a write_line() method to
+# It works by making a callback object with a write_line() method to
 # receive tokenized lines from perltidy.  
 #
 # Usage:
@@ -64,12 +64,15 @@ sub find_naughty {
     print "Testing File: $args{_source}\n";
 
     # run perltidy, which will call $formatter's write_line() for each line
-    perltidy(
+    my $err=perltidy(
         'source'    => $args{_source},
         'formatter' => bless( \%args, __PACKAGE__ ),    # callback object
         'argv' => "-npro -se",    # -npro : ignore .perltidyrc,
                                   # -se   : errors to STDOUT
     );
+    if ($err) {
+        die "Error calling perltidy\n";
+    }
 }
 
 sub write_line {