fix a bug in perl wrapper example program

Author: bruceravel

languages/perl/example/xdi_reader.pl

@@ -11,9 +11,17 @@
 use Xray::XDI;
 
 my $xdi = Xray::XDI->new(file=>$ARGV[0]||"");
-print  "Syntax: xdi_reader.pl filename\n",                                                                             exit if not defined($xdi->xdifile);
-printf "Error reading XDI file '%s':\n\t%s\t(error code = %d)\n",       $ARGV[0], $xdi->errormessage, $xdi->errorcode, exit if $xdi->errorcode < 0;
-printf "Warning reading XDI file '%s':\n\t%s\t(warning code = %d)\n\n", $ARGV[0], $xdi->errormessage, $xdi->errorcode       if $xdi->errorcode > 0;
+if (not defined($xdi->xdifile)) {
+  print  "Syntax: xdi_reader.pl filename\n";
+  exit;
+};
+if ($xdi->errorcode < 0) {
+  printf "Error reading XDI file '%s':\n\t%s\t(error code = %d)\n",       $ARGV[0], $xdi->errormessage, $xdi->errorcode;
+  exit;
+};
+if ($xdi->errorcode > 0) {
+  printf "Warning reading XDI file '%s':\n\t%s\t(warning code = %d)\n\n", $ARGV[0], $xdi->errormessage, $xdi->errorcode;
+};
 
 
 print  "#------\n";