bad input fix

master
Brad Steinbacher 2013-02-17 20:26:45 -05:00
parent a5c1f8bfcb
commit baee849941
1 changed files with 2 additions and 0 deletions

View File

@ -6,6 +6,8 @@ use DDG::Goodie;
triggers start => "flargblarg"; triggers start => "flargblarg";
handle remainder => sub { 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*$/; /^\s*([a-zA-Z]+)\s*([0-9]+)\s*$/;
my $word = 0; my $word = 0;
$word = lc($1) if $1; $word = lc($1) if $1;