From d1edede2ec46b4f02e191e61ac7bfc7cfa74026b Mon Sep 17 00:00:00 2001 From: Alex Schroeder Date: Fri, 17 Aug 2007 00:26:35 +0000 Subject: [PATCH] Allow seven lives for cats. --- modules/questionasker.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/modules/questionasker.pl b/modules/questionasker.pl index f3d3583b..223ff7a8 100644 --- a/modules/questionasker.pl +++ b/modules/questionasker.pl @@ -17,7 +17,7 @@ # 59 Temple Place, Suite 330 # Boston, MA 02111-1307 USA -$ModulesDescription .= '

$Id: questionasker.pl,v 1.14 2007/01/12 02:05:27 as Exp $

'; +$ModulesDescription .= '

$Id: questionasker.pl,v 1.15 2007/08/17 00:26:35 as Exp $

'; use vars qw(@QuestionaskerQuestions $QuestionaskerRememberAnswer @@ -31,7 +31,7 @@ use vars qw(@QuestionaskerQuestions (['What is the first letter of this question?' => sub { shift =~ /^\s*W\s*$/i }], ['How many letters are in the word "four"?' => sub { shift =~ /^\s*(4|four)\s*$/i }], ['Tell me any number between 1 and 10' => sub { shift =~ /^\s*([1-9]|10|one|two|three|four|five|six|seven|eight|nine|ten)\s*$/ }], - ["How many lives does a cat have?" => sub { shift =~ /^\s*(9|nine)\s*$/i }], + ["How many lives does a cat have?" => sub { shift =~ /^\s*(7|seven|9|nine)\s*$/i }], ["What is 2 + 4?" => sub { shift =~ /^\s*(6|six)\s*$/i }], );