Changeset 11834

Timestamp:

Feb 15, 2007, 12:04:03 PM (19 years ago)

Author:

jhoblitt

Message:

trap exceptions from DateStore::File::Parse in DataStore::FileSet being caused by empty file lists

Location:

trunk/DataStore

Files:

• Changes (modified) (1 diff)
• lib/DataStore/FileSet.pm (modified) (2 diffs)

trunk/DataStore/Changes

@@ -1 +1 @@
 Revision history for Perl module DataStore
+
+0.07
+    - trap exceptions from DateStore::File::Parse in DataStore::FileSet being
+      caused by empty file lists
 
 0.06 Thu Feb  1 13:57:56 HST 2007

trunk/DataStore/lib/DataStore/FileSet.pm

@@ -1 +1 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: FileSet.pm,v 1.11 2006-07-22 01:17:33 smalle Exp $
+# $Id: FileSet.pm,v 1.12 2007-02-15 22:04:03 jhoblitt Exp $
 
 package DataStore::FileSet;
@@ -199 +199 @@
         my $parser = DataStore::File::Parser->new(base_uri => $self->uri);
 
-        $data = $parser->parse($response->content);
+        eval {
+            $data = $parser->parse($response->content);
+        };
+        if ($@) {
+            carp "error parsing DataStore File format: $@";
+        }
     }