X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=geo_downloader;h=6e40fe7c2fc702ef5354a18c14862629a8538da3;hb=7072dd6217d2a600f729188624f228b5700bd836;hp=a1c3953140b24bcdf262cf009c4363dde7cc6974;hpb=ad81e54381b6298502e57c681499394cd4e0756e;p=bin.git

diff --git a/geo_downloader b/geo_downloader
index a1c3953..6e40fe7 100755
--- a/geo_downloader
+++ b/geo_downloader
@@ -127,11 +127,12 @@ sub recursive_file_listing {
         for my $file (@files) {
             print STDERR "file: $file\n";
             my $subdirs = recursive_file_listing($ftp,$file);
-            print STDERR  "subdirs is :";
-            print STDERR p($subdirs);
             if (defined $subdirs) {
+                print STDERR  "subdirs is :";
+                print STDERR p($subdirs);
                 $listing->{$file} = $subdirs;
             } else {
+                print STDERR "No subdirectory\n";
                 $listing->{$file} = $orig_dir.'/'.$dir.'/'.$file;
             }
         }