Imported Upstream version 20130922

[perltidy.git] / examples / bbtidy.pl

diff --git a/examples/bbtidy.pl b/examples/bbtidy.pl
index 7353a81be8fafff0b9bc29249a902680443d3768..79cd44297cb3e1a79c6756a25fd7635217ac2f46 100644 (file)
--- a/examples/bbtidy.pl
+++ b/examples/bbtidy.pl
@@ -11,11 +11,13 @@ BEGIN { my $input_string = ""; my $output_string = ""; }
 $input_string .= $_;
 
 END {
-    Perl::Tidy::perltidy(
+    my $err=Perl::Tidy::perltidy(
         source      => \$input_string,
         destination => \$output_string
     );
-
+    if ($err){
+        die "Error calling perltidy\n";
+    }
     print "$output_string\n";
 }