Changeset 794 for trunk/plugins/en/complex_questions.tcl

Timestamp:

06/23/07 17:12:05 (19 months ago)

Author:

james

Message:

apply patch from #129

Files:

• trunk/plugins/en/complex_questions.tcl (modified) (1 diff)

trunk/plugins/en/complex_questions.tcl

@@ -285 +285 @@
     #see if we know the answer to it
     if {$question != ""} {
-      if [regexp -nocase {[[:<:]]a/?s/?l[[:>:]]} $question] {
+      if [regexp -nocase {\ma/?s/?l\M} $question] {
         #asl?
         set age [expr [rand 20] + 13]