warn on C<my($foo,$foo)>

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

diff --git a/regexec.c b/regexec.c
index 2bbe487..bcba723 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -2245,6 +2245,7 @@ regmatch(regnode *prog)
            sayYES;                     /* Success! */
        case SUSPEND:
            n = 1;
+           PL_reginput = locinput;
            goto do_ifmatch;        
        case UNLESSM:
            n = 0;