Fix $str ~~ m// always being true

sorear · Mar 1, 2011 · 31427c7 · 31427c7
1 parent c01053e
commit 31427c7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/SAFE.setting b/lib/SAFE.setting
@@ -1032,7 +1032,7 @@ my class Regex is Sub {
                     (return (newrwlistvar (@ (l val))) (l val)))
                   (prog))))
               (set_status (s $*/) {Match})
-              {Any})
+              {Match})
         };
     }
 }