diff options
Diffstat (limited to 'rhautoimport-ra')
| -rwxr-xr-x | rhautoimport-ra | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/rhautoimport-ra b/rhautoimport-ra index 6231a67..2464614 100755 --- a/rhautoimport-ra +++ b/rhautoimport-ra @@ -82,8 +82,11 @@ my $bd = sprintf("%04d-%02d-%02d", @broadcast_day); print "looking for files from $bd in RSS Feed\n"; print " -> $RSS_URL\n"; -my $feed = rhautoimport::fetch_parse_rss($RSS_URL) - or die "Error fetching feed: " . XML::Feed->errstr; +my ($feed, $errstr) = rhautoimport::fetch_parse_rss($RSS_URL); +unless (defined $feed) { + print "Error fetching feed: $errstr\n"; + exit 1; +} my $bdexp = sprintf("^(\\d+)\\..*\\s*0?%d\\s*[.,]\\s*0?%d\\s*[.,]\\s*%4d", $broadcast_day[2], $broadcast_day[1], $broadcast_day[0]); |