This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Well, I know *something* passed make test from a clean build before
authorNicholas Clark <nick@ccl4.org>
Fri, 11 Jan 2008 20:27:23 +0000 (20:27 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 11 Jan 2008 20:27:23 +0000 (20:27 +0000)
change 32961, and I thought that it was the right thing, but I guess
not. It should have read like this.

p4raw-id: //depot/perl@32962

regexp.h

index 9bd4d2d..b09bebd 100644 (file)
--- a/regexp.h
+++ b/regexp.h
@@ -398,11 +398,11 @@ and check for NULL.
        assert(SvTYPE(thwape) == SVt_REGEXP);                           \
        &SvANY(thwape)->subbeg;                                         \
     }))
-#  define RX_SUBBEG(prog)                                              \
+#  define RX_OFFS(prog)                                                        \
     (*({                                                               \
        REGEXP *const thwape = (prog);                                  \
        assert(SvTYPE(thwape) == SVt_REGEXP);                           \
-       &SvANY(thwape)->subbeg;                                         \
+       &SvANY(thwape)->offs;                                           \
     }))
 #  define RX_NPARENS(prog)                                             \
     (*({                                                               \