# 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').
}
# 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 {