This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexp.h: no subbeg move when reordering regexp struct
authorRichard Leach <richardleach@users.noreply.github.com>
Sun, 8 Mar 2020 13:09:30 +0000 (13:09 +0000)
committerKarl Williamson <khw@cpan.org>
Wed, 11 Mar 2020 14:59:23 +0000 (08:59 -0600)
regexp.h

index 50a043c..59fa1b8 100644 (file)
--- a/regexp.h
+++ b/regexp.h
@@ -152,12 +152,12 @@ typedef struct regexp {
 
     /*---------------------------------------------------------------------- */
 
+    char *subbeg;       /* saved or original string so \digit works forever. */
     SV_SAVED_COPY       /* If non-NULL, SV which is COW from original */
     SSize_t sublen;     /* Length of string pointed by subbeg */
     SSize_t suboffset;  /* byte offset of subbeg from logical start of str */
     SSize_t subcoffset; /* suboffset equiv, but in chars (for @-/@+) */
     SSize_t maxlen;  /* minimum possible number of chars in string to match */
-    char *subbeg;       /* saved or original string so \digit works forever. */
 
     /*---------------------------------------------------------------------- */