dgit: archive_api_query_curl: Add a bit of debug

[dgit.git] / dgit

diff --git a/dgit b/dgit
index 4a5cae1d37c3bdbbcd733b3887af67da00cdfd6b..7e975e121233455a192d1d6b440ee9ef32fef279 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -1217,6 +1217,8 @@ sub archive_api_query_curl ($) {
        }
     }
 
+    printdebug "archive api query: fetching $url...\n";
+
     my $x = $curl->perform();
     fail f_ "fetch of %s failed (%s): %s",
        $url, $curl->strerror($x), $curl->errbuf