Changeset 8715 for trunk/ippScripts/scripts/mdc2list.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/mdc2list.pl (modified) (1 diff)

trunk/ippScripts/scripts/mdc2list.pl

@@ -34 +34 @@
 my @input = <$inFile>;          # Contents of the metadata config file
 my $mdcParser = PS::IPP::Metadata::Config->new; # Parser for metadata config files
-my $md = $mdcParser->parse(join "", @input); # The parsed metadata
+my $md = $mdcParser->parse(join "", @input)
+        or die "unable to parse metadata config doc";
 my $hashes = mds2hashes($md);   # An array of hashes
 foreach my $pending (@$hashes) {