Avoid requiring parens in expressions in [like]

partcl · Dec 11, 2009 · 480b2d6 · 480b2d6
1 parent 5fd27b2
commit 480b2d6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/test_more.tcl b/lib/test_more.tcl
@@ -86,7 +86,7 @@ proc pass {{description ""} {special ""}} {
 }
 
 proc like {value regexp {description ""}} {
-   if ([regexp $regexp $value]) {
+   if {[regexp $regexp $value]} {
      pass $description
    } else {
      is "STRING: $value" "REGEXP: $regexp" $description