From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 28 Mar 2016 21:31:42 +0000 (-0700)
Subject: only print subdirs unless printing
X-Git-Url: https://git.donarmstrong.com/?p=bin.git;a=commitdiff_plain;h=a729411bee8b75b153acb23545be92a70e9895c4

only print subdirs unless printing
---

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;
             }
         }