FS-7989 add more debugging data
This commit is contained in:
parent
58ba3860cd
commit
730c79ca08
|
@ -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);
|
||||
|
|
Loading…
Reference in New Issue