Added error output.

This commit is contained in:
JT Smith 2002-06-10 23:42:21 +00:00
parent 7efdd08c89
commit bc20e597b6

View file

@ -23,7 +23,7 @@ sub getRSS {
$request = new HTTP::Request (GET => $_[0]);
$response = $userAgent->request($request);
$content = $response->content;
eval{parseXML(\%result, \$content)};
eval{parseXML(\%result, \$content)} or print $@;
return %result;
}