summaryrefslogtreecommitdiff
path: root/rhautoimport-btl
diff options
context:
space:
mode:
Diffstat (limited to 'rhautoimport-btl')
-rwxr-xr-xrhautoimport-btl7
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 = "";