diff options
author | ZakFlash <zakflashvideo@gmail.com> | 2012-06-30 20:50:53 +0100 |
---|---|---|
committer | ZakFlash <zakflashvideo@gmail.com> | 2012-06-30 20:50:53 +0100 |
commit | e6f6700820da41708b279127ffcc14b4d96b955c (patch) | |
tree | 7c8b067c38cc69545772d80000d38fc434804df6 | |
parent | 92b2d497695db41ef76246f0f7c53d19afe0ffe1 (diff) | |
download | get-flash-videos-e6f6700820da41708b279127ffcc14b4d96b955c.tar.gz |
Channel 4: fixed HTTP error handling
-rw-r--r-- | lib/FlashVideo/Site/Channel4.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/FlashVideo/Site/Channel4.pm b/lib/FlashVideo/Site/Channel4.pm index 0d78dca..84c78ea 100644 --- a/lib/FlashVideo/Site/Channel4.pm +++ b/lib/FlashVideo/Site/Channel4.pm @@ -52,7 +52,7 @@ sub find_video { my $raw_xml = $browser->get("http://ais.channel4.com/asset/$asset_id"); if (!$browser->success) { - die "Couldn't get asset XML: " . $browser->status_line; + die "Couldn't get asset XML: " . $browser->response->status_line; } my $xml = from_xml($raw_xml); @@ -112,7 +112,7 @@ sub find_video { $browser->get($subtitles_url); if (!$browser->success) { - info "Couldn't download 4od subtitles: " . $browser->status_line; + info "Couldn't download 4od subtitles: " . $browser->response->status_line; } my $subtitles_file = title_to_filename($title, "srt"); |