add missing newlines at the end of these documents

[perltidy.git] / examples / perllinetype.pl

diff --git a/examples/perllinetype.pl b/examples/perllinetype.pl
index 1d8184d0dee1b6b3da54758cf2a6a25ee642d952..6164b959793a24cc084db158f2fb69e35f56b5fb 100644 (file)
--- 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;