diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-06-28 12:17:38 +0200 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-07-01 14:05:41 +0200 |
| commit | b606cf7f37b8b46206c7f521b29167e037397a62 (patch) | |
| tree | e45fbf2581a952143dd7e8c7e6c34f9c25075c12 /regexec.c | |
| parent | 378b4d0f82057e5af983d31c5b48b7f10f4758b3 (diff) | |
| download | perl-b606cf7f37b8b46206c7f521b29167e037397a62.tar.gz | |
Store C<study>'s data as U32s, instead of I32s.
The "no more" condition is now represented as ~0, instead of -1.
Diffstat (limited to 'regexec.c')
| -rw-r--r-- | regexec.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -701,7 +701,7 @@ Perl_re_intuit_start(pTHX_ REGEXP * const rx, SV *sv, char *strpos, mg = mg_find(sv, PERL_MAGIC_study); assert(mg); - if (((I32 *)mg->mg_ptr)[BmRARE(check)] != -1 + if (((U32 *)mg->mg_ptr)[BmRARE(check)] != (U32)~0 || ( BmRARE(check) == '\n' && (BmPREVIOUS(check) == SvCUR(check) - 1) && SvTAIL(check) )) |