Changeset 3844

Timestamp:

May 4, 2005, 12:14:18 PM (21 years ago)

Author:

jhoblitt

Message:

change VERSION to '0.02'
print a warning to STDERR if the parse failed

File:

• trunk/PS-IPP-Metadata-Config/scripts/mddump.pl (modified) (3 diffs)

trunk/PS-IPP-Metadata-Config/scripts/mddump.pl

@@ -3 +3 @@
 # Copyright (C) 2005  Joshua Hoblitt
 #
-# $Id: mddump.pl,v 1.1 2005-05-04 01:17:36 jhoblitt Exp $
+# $Id: mddump.pl,v 1.2 2005-05-04 22:14:18 jhoblitt Exp $
 
 use strict;
@@ -9 +9 @@
 
 use vars qw( $VERSION );
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 use Data::Dumper qw( Dumper );
@@ -42 +42 @@
 close( $md );
 
-print Dumper( $data );
+if ( $data ) {
+    print Dumper( $data );
+} else {
+    warn "Invalid Syntax, Parse failed.\n";
+    exit 1;
+}
 
 __END__