diff options
| author | Anton Berezin <tobez@FreeBSD.org> | 2003-07-14 11:36:59 +0000 |
|---|---|---|
| committer | Anton Berezin <tobez@FreeBSD.org> | 2003-07-14 11:36:59 +0000 |
| commit | 3b3b7d95e8f7a471941c510e4df566875c9e0610 (patch) | |
| tree | a69afa1f2c78547614af30b991b6e02a763ed15e /lang/perl5.10/files | |
| parent | ba16d3d3d0edbe89b3a42ab95b440409c4ad77d0 (diff) | |
| download | ports-3b3b7d95e8f7a471941c510e4df566875c9e0610.tar.gz ports-3b3b7d95e8f7a471941c510e4df566875c9e0610.zip | |
Notes
Diffstat (limited to 'lang/perl5.10/files')
| -rw-r--r-- | lang/perl5.10/files/patch-lastcloseparen | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/lang/perl5.10/files/patch-lastcloseparen b/lang/perl5.10/files/patch-lastcloseparen new file mode 100644 index 000000000000..3676fed904de --- /dev/null +++ b/lang/perl5.10/files/patch-lastcloseparen @@ -0,0 +1,31 @@ +--- pp_hot.c.orig Mon Jul 14 10:20:29 2003 ++++ pp_hot.c Mon Jul 14 10:21:31 2003 +@@ -1406,7 +1406,7 @@ yup: /* Confirmed by INTUIT */ + rx->startp[0] = s - truebase; + rx->endp[0] = s - truebase + rx->minlen; + } +- rx->nparens = rx->lastparen = 0; /* used by @- and @+ */ ++ rx->nparens = rx->lastparen = rx->lastcloseparen = 0; /* used by @-, @+, and $^N */ + LEAVE_SCOPE(oldsave); + RETPUSHYES; + +--- sv.c.orig Mon Jul 14 10:21:49 2003 ++++ sv.c Mon Jul 14 10:22:35 2003 +@@ -11474,6 +11474,7 @@ perl_clone_using(PerlInterpreter *proto_ + PL_regstartp = (I32*)NULL; + PL_regendp = (I32*)NULL; + PL_reglastparen = (U32*)NULL; ++ PL_reglastcloseparen = (U32*)NULL; + PL_regtill = Nullch; + PL_reg_start_tmp = (char**)NULL; + PL_reg_start_tmpl = 0; +--- regexec.c.orig Mon Jul 14 10:37:02 2003 ++++ regexec.c Mon Jul 14 10:37:34 2003 +@@ -2107,6 +2107,7 @@ S_regtry(pTHX_ regexp *prog, char *start + PL_reglastparen = &prog->lastparen; + PL_reglastcloseparen = &prog->lastcloseparen; + prog->lastparen = 0; ++ prog->lastcloseparen = 0; + PL_regsize = 0; + DEBUG_r(PL_reg_starttry = startpos); + if (PL_reg_start_tmpl <= prog->nparens) { |