summaryrefslogtreecommitdiff
path: root/perl.c
diff options
context:
space:
mode:
authorDoug MacEachern <dougm@covalent.net>2001-08-04 02:43:02 -0700
committerJarkko Hietaniemi <jhi@iki.fi>2001-08-04 15:42:34 +0000
commit577e12cc4ababd31ea5d99718f699d57deab1b2c (patch)
treeb83054f70ec9bfc19f43d54ef10e8b26e79943d9 /perl.c
parentd97d4e5f2009f63ab3a634cfe17400da1e79be3f (diff)
downloadperl-577e12cc4ababd31ea5d99718f699d57deab1b2c.tar.gz
Re: [patch] ignore PL_curpm in PL_regex_padav cleanup
Message-ID: <Pine.LNX.4.21.0108040939050.23972-100000@mako.covalent.net> p4raw-id: //depot/perl@11574
Diffstat (limited to 'perl.c')
-rw-r--r--perl.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl.c b/perl.c
index b3d1e31e0c..28e8761f03 100644
--- a/perl.c
+++ b/perl.c
@@ -481,7 +481,7 @@ perl_destruct(pTHXx)
REGEXP *re = (REGEXP *)SvIVX(resv);
if (SvFLAGS(resv) & SVf_BREAK) {
- /* this is PL_curpm, already freed
+ /* this is PL_reg_curpm, already freed
* flag is set in regexec.c:S_regtry
*/
SvFLAGS(resv) &= ~SVf_BREAK;