Index: /trunk/DataStore/Changes
===================================================================
--- /trunk/DataStore/Changes	(revision 9826)
+++ /trunk/DataStore/Changes	(revision 9827)
@@ -1,3 +1,6 @@
 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
Index: /trunk/DataStore/scripts/dsleech
===================================================================
--- /trunk/DataStore/scripts/dsleech	(revision 9826)
+++ /trunk/DataStore/scripts/dsleech	(revision 9827)
@@ -3,5 +3,5 @@
 # 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,4 +96,7 @@
 
         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;