Imported Upstream version 20130922

[perltidy.git] / examples / perlxmltok.pl

diff --git a/examples/perlxmltok.pl b/examples/perlxmltok.pl
index 692338d0a090e8525d5f976af97a9a2a874f522c..17ef080f02735c040400465563f687c76e66f075 100644 (file)
--- a/examples/perlxmltok.pl
+++ b/examples/perlxmltok.pl
@@ -42,13 +42,16 @@ my $formatter = Perl::Tidy::XmlWriter->new($file);
 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;
 
 #####################################################################