perl5.004 hints file (maint and dev paths)

[p5sagit/p5-mst-13.2.git] / op.c

diff --git a/op.c b/op.c
index 3440b1c..472a475 100644 (file)
--- a/op.c
+++ b/op.c
@@ -2168,7 +2168,7 @@ pmruntime(OP *o, OP *expr, OP *repl)
 #ifdef USE_THREADS
                    if (curop->op_type == OP_THREADSV) {
                        repl_has_vars = 1;
-                       if (strchr("&`'123456789+", curop->op_private)) {
+                       if (strchr("&`'123456789+", curop->op_private))
                            break;
                    }
 #else