duckduckgo
/
zeroclickinfo-goodies
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bad input fix

master
Brad Steinbacher 2013-02-17 20:20:58 -05:00
parent 15fdda09d4
commit 48d7edbe07
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lib/DDG/Goodie/AnagramSolver.pm
View File

@ -7,7 +7,8 @@ triggers start => "flargblarg";
handle remainder => sub {
/^\s*([a-zA-Z]+)\s*([0-9]+)\s*$/;
my $word = lc $1;
my $word = 0;
$word = lc($1) if $word;
my $n = 0;
$n = $2 if $2;
@ -25,7 +26,7 @@ handle remainder => sub {
open INF, "<", "/usr/share/dict/words" or die $!; # PLACEHOLDER
my @output;
while (<INF>) { # PLACEHOLDER
if (/^[$word]{$n}$/) {
if ($word and /^[$word]{$n}$/) {
chomp;
my %f;
for (split //, $_) {