Changeset 11442

Timestamp:

2006-03-21T14:18:12+12:00 (18 years ago)

Author:

kjdon

Message:

check the result of read_file before continuing

File:

• trunk/gsdl/bin/script/explode_metadata_database.pl (modified) (1 diff)

trunk/gsdl/bin/script/explode_metadata_database.pl

@@ -167 +167 @@
     $plugobj->read_file($filename, $input_encoding, undef, \$text);
 
+    # is there any text in the file??
+    die "\n" unless length($text);
     # Create a directory to store the document files...
     my ($documents_directory) = ($filename =~ /(.*)\.[^\.]+$/);