FS-7989 add more debugging data

This commit is contained in:
Anthony Minessale 2015-09-29 14:48:46 -05:00
parent 58ba3860cd
commit 730c79ca08
1 changed files with 4 additions and 0 deletions

View File

@ -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);