Unable to retrieve recommendation_movies

[brainkiller]

This call always returns a empty result:

$imdbObj->recommendation_movies()

[andy71]

I know it's quite old, but maybe someone needs it.

Just replace the whole sub "recommendation_movies" within Film.pm (worked for me):

sub recommendation_movies {
	my CLASS_NAME $self = shift;
	my $forced = shift || 0;
	
	if($forced) {
		my $parser = $self->_parser(FORCED);
		
		while (my $token = $parser->get_token) {
			if ($token->[0] eq 'S' and $token->[1] eq 'div') {
				if (exists $token->[2]{id} and $token->[2]{id} eq 'titleRecs') {
					$self->_show_message("Jumped to DIV " . $token->[2]{id}, 'DEBUG');
					last;
				}
			}
		}
		
		
		my %result = ();
		my $end_tag_counter = 1;
		while(my $tag = $parser->get_tag()) {
			$end_tag_counter++ if $tag->[0] eq 'div';
			$end_tag_counter-- if $tag->[0] eq '/div';
			
			my $text = $parser->get_text();
			if($tag->[0] eq 'a' && $text && $tag->[1]{href} && $tag->[1]{href} =~ /tt(\d+)/) {
				$result{$1} = $text;
			}
			last if $end_tag_counter le '0';
		}
		
		$self->{_recommendation_movies} = \%result;
	}
	
	return $self->{_recommendation_movies};
}

The first while loop moves forward within the IMDb page until the div tag with id 'titleRecs'.
Then we need a counter for nested div tags to jump to last if it reaches 0 again.
And i removed an 'Use of uninitialized value in pattern match' warning by adding another check if $tag->[1]{href} is initialized before using it in the pattern match.