Before applying this fix I quite often saw errors like:
Not an ARRAY reference at ./get_iplayer line 5611.
(for example when using --pvr having added a recursive PID of
b00lv1k1.)
---
get_iplayer | 12 ++++++++++--
1 files changed, 10 insertions(+), 2 deletions(-)
You may not want to apply this patch as it is but hopefully it should
point out what appeared to me to be causing the problem.
Thanks.
Mike.
diff --git a/get_iplayer b/get_iplayer
index c746df0..c48a2cc 100755
--- a/get_iplayer
+++ b/get_iplayer
@@ -5608,8 +5608,16 @@ sub parse_rdf_brand {
main::logger "INFO: With Series pid
'".$series_element->{'rdf:resource'}."'\n" if $opt->{debug};
push @pids, parse_rdf_series( $ua,
$series_element->{'rdf:resource'} );
}
- main::logger "INFO: Series: <None>\n" if $#{
$rdf->{'po:Brand'}->{'po:episode'} };
- for my $episode_element ( @{ $rdf->{'po:Brand'}->{'po:episode'} } ) {
+ if (ref$rdf->{'po:Brand'}->{'po:episode'} eq 'ARRAY') {
+ main::logger "INFO: Series: <None>\n" if $#{
$rdf->{'po:Brand'}->{'po:episode'} };
+ for my $episode_element ( @{ $rdf->{'po:Brand'}->{'po:episode'}
} ) {
+ main::logger "INFO: Episode pid:
".$episode_element->{'rdf:resource'}."\n" if $opt->{debug};
+ push @pids, extract_pid(
$episode_element->{'rdf:resource'} );
+ parse_rdf_episode( $ua,
$episode_element->{'rdf:resource'} );
+ }
+ } else {
+ main::logger "INFO: Series: <None>\n";
+ my $episode_element = $rdf->{'po:Brand'}->{'po:episode'};
main::logger "INFO: Episode pid:
".$episode_element->{'rdf:resource'}."\n" if $opt->{debug};
push @pids, extract_pid( $episode_element->{'rdf:resource'} );
parse_rdf_episode( $ua, $episode_element->{'rdf:resource'} );
--
1.5.6.5
_______________________________________________
get_iplayer mailing list
[email protected]
http://lists.infradead.org/mailman/listinfo/get_iplayer
