From bc5b589a68478d02ab08d6e64cd2b868d4318acc Mon Sep 17 00:00:00 2001 From: matt lehning Date: Thu, 31 Jan 2013 15:00:04 -0500 Subject: [PATCH] cleaned up code --- lib/DDG/Goodie/Card.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/DDG/Goodie/Card.pm b/lib/DDG/Goodie/Card.pm index 54ec01e27af..340909ee64e 100644 --- a/lib/DDG/Goodie/Card.pm +++ b/lib/DDG/Goodie/Card.pm @@ -5,7 +5,7 @@ use DDG::Goodie; triggers start => 'choose', 'pick', 'card'; handle query_lc => sub { - return unless my ($a, $unused, $unused2, $n) = $_ =~ /^((choose|pick) a card|(pick|choose) (\d{0,2}) cards?)$/; + return unless my ($a, $n) = $_ =~ /^((?:choose|pick) a card|(?:pick|choose) (\d{0,2}) cards?)$/; my @output; my @choices = ("ace of spades", "1 of spades", "2 of spades", "3 of spades", "4 of spades", "5 of spades", "6 of spades", "7 of spades", "8 of spades", "9 of spades", "10 of spades", "jack of spades", "queen of spades", "king of spades", "ace of spades", "1 of diamonds", "2 of diamonds", "3 of diamonds", "4 of diamonds", "5 of diamonds", "6 of diamonds", "7 of diamonds", "8 of diamonds", "9 of diamonds", "10 of diamonds", "jack of diamonds", "queen of diamonds", "king of diamonds", "ace of hearts", "1 of hearts", "2 of hearts", "3 of hearts", "4 of hearts", "5 of hearts", "6 of hearts", "7 of hearts", "8 of hearts", "9 of hearts", "10 of hearts", "jack of hearts", "queen of hearts", "king of hearts", "ace of clubs", "1 of clubs", "2 of clubs", "3 of clubs", "4 of clubs", "5 of clubs", "6 of clubs", "7 of clubs", "8 of clubs", "9 of clubs", "10 of clubs", "jack of clubs", "queen of clubs", "king of clubs"); my $cards = 1;