Changeset 8715 for trunk/ippScripts/scripts/detrend_stack.pl

Timestamp:

Aug 30, 2006, 3:43:18 PM (20 years ago)

Author:

jhoblitt

Message:

check the return result of PS::IPP::Metadata::Config->parse()

File:

• trunk/ippScripts/scripts/detrend_stack.pl (modified) (2 diffs)

trunk/ippScripts/scripts/detrend_stack.pl

@@ -51 +51 @@
         run(command => $command, verbose => 1);
     die "Unable to perform dettool -processed: $error_code\n" if not $success;
-    my $metadata = $mdcParser->parse(join "", @$stdout_buf); # Parsed metadata
+    my $metadata = $mdcParser->parse(join "", @$stdout_buf)
+        or die "unable to parse metadata config doc";
     $files = parse_md_list($metadata);
 }
@@ -85 +86 @@
     close $statsFile;
     my $mdcParser = PS::IPP::Metadata::Config->new;     # Parser for metadata config files
-    my $metadata = $mdcParser->parse(join "", @contents); # Metadata from the stats
+    my $metadata = $mdcParser->parse(join "", @contents)
+        or die "unable to parse metadata config doc";
     $stats = PS::IPP::Metadata::Stats->new(); # Stats parser
     $stats->parse($metadata) or die "Unable to find all values in statistics output.\n";