Changeset 9827

Timestamp:

Nov 1, 2006, 5:15:08 PM (20 years ago)

Author:

jhoblitt

Message:

fix dsleech to handle valid but empty filesets

Location:

trunk/DataStore

Files:

• Changes (modified) (1 diff)
• scripts/dsleech (modified) (2 diffs)

trunk/DataStore/Changes

@@ -1 +1 @@
 Revision history for Perl module DataStore
+
+0.06
+    - fix dsleech to handle valid but empty filesets
 
 0.05 Fri Sep  1 11:28:13 HST 2006

trunk/DataStore/scripts/dsleech

@@ -3 +3 @@
 # Copyright (C) 2006  Joshua Hoblitt
 #
-# $Id: dsleech,v 1.3 2006-09-01 21:18:30 jhoblitt Exp $
+# $Id: dsleech,v 1.4 2006-11-02 03:15:08 jhoblitt Exp $
 
 use strict;
@@ -96 +96 @@
 
         my $files = $response->data;
+        # if we get an empty fileset ->request will sucessed but ->data will
+        # return undef   
+        next unless defined $files;
         unless (@$files) {
             print "no files in fileset ", $fileset->set, "\n" if $verbose;