bad input fix

2013-02-17 20:26:45 -05:00 · 2013-02-17 20:26:45 -05:00 · baee849941
parent a5c1f8bfcb
commit baee849941
1 changed files with 2 additions and 0 deletions
--- a/lib/DDG/Goodie/AnagramSolver.pm
+++ b/lib/DDG/Goodie/AnagramSolver.pm
@ -6,6 +6,8 @@ use DDG::Goodie;
 triggers start => "flargblarg";

 handle remainder => sub {
+    # maybe just split input and then test for validity
+    # to make it more robust
    /^\s*([a-zA-Z]+)\s*([0-9]+)\s*$/;
    my $word = 0;
    $word = lc($1) if $1;