New upstream version 20181120

[perltidy.git] / examples / perllinetype.pl

diff --git a/examples/perllinetype.pl b/examples/perllinetype.pl
old mode 100644 (file)
new mode 100755 (executable)
index 1d8184d..6164b95
--- a/examples/perllinetype.pl
+++ b/examples/perllinetype.pl
@@ -44,13 +44,16 @@ my $formatter = MyFormatter->new();
 my $dest;
 
 # start perltidy, which will start calling our write_line()
-perltidy(
+my $err=perltidy(
     'formatter'   => $formatter,     # callback object
     'source'      => $source,
     'destination' => \$dest,         # (not really needed)
     'argv'        => "-npro -se",    # dont need .perltidyrc
                                      # errors to STDOUT
 );
+if ($err) {
+    die "Error calling perltidy\n";
+}
 $fh->close() if $fh;
 
 package MyFormatter;