X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=examples%2Fperllinetype.pl;h=6164b959793a24cc084db158f2fb69e35f56b5fb;hb=b55d4d1bc6f3864a9b92da798e1083cb8299c2ee;hp=1d8184d0dee1b6b3da54758cf2a6a25ee642d952;hpb=b2d8cef8551aa63c2718732e53392e7ebdd6c75f;p=perltidy.git

diff --git a/examples/perllinetype.pl b/examples/perllinetype.pl
old mode 100644
new mode 100755
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;