Changeset 16974

Timestamp:

Mar 13, 2008, 11:38:09 AM (18 years ago)

Author:

bills

Message:

in list mode if pstampparse fails print the error message to stdout

File:

• trunk/pstamp/scripts/pstamp_webrequest.pl (modified) (1 diff)

trunk/pstamp/scripts/pstamp_webrequest.pl

@@ -84 +84 @@
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
         run(command => $command, verbose => $verbosity);
-    unless ($success) {
-        die("Unable to perform pstampparse: $error_code");
+
+    if ($success) {
+        ### print "Matching Images:\n";
+        print @$stdout_buf;
+    } else {
+        print @$stderr_buf;
     }
-    ### print "Matching Images:\n";
-    print @$stdout_buf;
     exit 0;
 }