dgit: WWW::Curl Set $response_body to '' explicitly

[dgit.git] / dgit

diff --git a/dgit b/dgit
index d24c4e64eb08c2bc08076b85550c458e3be2553b..f7b5025f5717e4565115c2c6023368b9d3f64d3e 100755 (executable)
--- a/dgit
+++ b/dgit
@@ -1191,7 +1191,7 @@ sub url_fetch ($;@) {
        confess "$k $v ".$curl->strerror($x)." ?" if $x;
     };
 
-    my $response_body;
+    my $response_body = '';
     $setopt->(CURLOPT_REDIR_PROTOCOLS, CURLPROTO_HTTPS|CURLPROTO_HTTP);
     $setopt->(CURLOPT_URL,             $url);
     $setopt->(CURLOPT_NOSIGNAL,        1);