diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2013-08-21 22:03:49 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2013-08-21 22:15:37 -0700 |
| commit | 7ce41e5ca15dec5de00abab8fdc69792f8c01a47 (patch) | |
| tree | 23421f1798d019ae65da9e3911f1233cfa1cd7f7 /pp_hot.c | |
| parent | 1555b325296e46f7b95bee03fe856cec348b0d57 (diff) | |
| download | perl-7ce41e5ca15dec5de00abab8fdc69792f8c01a47.tar.gz | |
pp_hot.c:pp_subst: Move comment
Perl 5 has always had the ‘don't match same null twice’ comment
in pp_subst. Originally it was a parenthetical note right below
the s == m.
71be2cbc removed the parentheses. Commit f722798be moved it further
away from s == m. Now what it refers to is far from clear.
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2232,9 +2232,9 @@ PP(pp_subst) d += clen; } s = RX_OFFS(rx)[0].end + orig; - } while (CALLREGEXEC(rx, s, strend, orig, s == m, + } while (CALLREGEXEC(rx, s, strend, orig, + s == m, /* don't match same null twice */ TARG, NULL, - /* don't match same null twice */ REXEC_NOT_FIRST|REXEC_IGNOREPOS|REXEC_FAIL_ON_UNDERFLOW)); if (s != d) { I32 i = strend - s; |