FS-7989 add more debugging data

diff --git a/support-d/utils/fixbug.pl b/support-d/utils/fixbug.pl
index 027d954bdb3a32da7d830752ced72510b611b72e..573ef06ee26be9b67aa8d201561f449b7e56d0ff 100755 (executable)
--- a/support-d/utils/fixbug.pl
+++ b/support-d/utils/fixbug.pl
@@ -34,6 +34,10 @@ if ($prog =~ /wget/) {
 }
 
 my $xml = `$cmd $url 2>/dev/null`;
+if ($opts{debug}) {
+    print "URL $url\n";
+    print $xml;
+}
 
 my $xs= new XML::Simple;
 my $r = $xs->XMLin($xml);