Changeset 1011 for trunk/plugins/en/action_complex_failsafe.tcl

Timestamp:

06/19/09 18:15:00 (3 years ago)

Author:

james

Message:

resist learning very short verbs

File:

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

trunk/plugins/en/action_complex_failsafe.tcl

@@ -116 +116 @@
 
         if {$stem != ""} {
+                if {[string length $stem] < 3} {
+                        return 0
+                }
+
                 if [string match -nocase "*e" $stem] {
                         set stem [string range $stem 0 end-1]