From a729411bee8b75b153acb23545be92a70e9895c4 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 28 Mar 2016 14:31:42 -0700
Subject: [PATCH] only print subdirs unless printing

---
 geo_downloader | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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