Update upstream source from tag 'upstream/20180220'

[perltidy.git] / examples / perlmask.pl

diff --git a/examples/perlmask.pl b/examples/perlmask.pl
old mode 100644 (file)
new mode 100755 (executable)
index 4302afe..5d94e4f
--- a/examples/perlmask.pl
+++ b/examples/perlmask.pl
@@ -80,7 +80,7 @@ if ($masked_file) { print $masked_file; }
 # a string or array.  It can also optionally return the original file
 # as a string or array.
 #
-# 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.  This write_line method
 # selectively replaces tokens with either their original text or with a
 # benign masking character (such as '#' or 'Q').
@@ -126,12 +126,15 @@ EOM
     }
 
     # 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 print_line {