diff options
Diffstat (limited to 'rhautoimport-btl')
-rwxr-xr-x | rhautoimport-btl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/rhautoimport-btl b/rhautoimport-btl index a70ec83..300027c 100755 --- a/rhautoimport-btl +++ b/rhautoimport-btl @@ -91,8 +91,11 @@ my $bdfile = sprintf("%02d%02d%02d-btlv128\.mp3", $broadcast_date[0]%100, $broad print "looking for files like '$bdfile' 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 $uri = ""; my $file = ""; |