the attached patch seems to fix it for the moment ...
Regards,
Peter
diff --git a/Film.pm b/Film.pm
index 0fba862..b82d5bf 100644
--- a/Film.pm
+++ b/Film.pm
@@ -804,13 +804,14 @@ sub directors {
}
while ($tag = $parser->get_tag() ) {
- my $text = $parser->get_text();
-
- last if $text =~ /^writ(?:ing|ers)/i or $tag->[0] eq '/div';
-
- if($tag->[0] eq 'a' && $tag->[1]{href} && $text !~ /(img|more)/i) {
- my($id) = $tag->[1]{href} =~ /(\d+)/;
- push @directors, {id => $id, name => $text};
+ my $type=$tag->[0];
+ last if $type eq '/div';
+ if ($type eq 'a') {
+ my($id) = $tag->[1]{href} =~ /(\d+)/;
+ $tag= $parser->get_tag('span');
+ if ($tag->[1]{itemprop} eq 'name') {
+ push @directors, {id => $id, name => $parser->get_text};
+ }
}
}
RT for rt.cpan.org