Update Anagram.pm

master
Dani 2014-08-15 01:59:44 +02:00
parent 85bdae6591
commit 1c52504734
1 changed files with 2 additions and 2 deletions

View File

@ -122,11 +122,11 @@ handle remainder => sub {
my @chars = shuffle split (//, $word);
$w = join '', @chars;
} while ($w eq $word);
return $word, html => html_output ('Sorry, we found no anagrams for "'.encode_entities $word.'". We scrambled it for you:', $w);
return $word, html => html_output ('Sorry, we found no anagrams for "'.encode_entities ($word).'". We scrambled it for you:', $w);
}
my $response = join ', ', @output;
my $output_str = 'Anagrams of '.encode_entities $word.'"';
my $output_str = 'Anagrams of '.encode_entities ($word).'"';
unless ($full_word) {
$output_str .= " of length $len";
}