diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-11-12 18:16:52 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-11-12 18:16:52 +0000 |
| commit | 51a9ea209c379f02dc1ea497fd0d6bbc3b43052e (patch) | |
| tree | 89400b4c1640300d9ed183fa4e935dc866842187 /pp_ctl.c | |
| parent | 2a49f0f5dac6a94dc40827858cb5adb7ba8941cd (diff) | |
| download | perl-51a9ea209c379f02dc1ea497fd0d6bbc3b43052e.tar.gz | |
Looks like I didn't actually test the COW conditional code in
change 27533. Perl now compiles, but
ext/Compress/Raw/Zlib/t/07bufsize.t fails.
p4raw-id: //depot/perl@29247
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -295,7 +295,7 @@ PP(pp_substcont) SvUPGRADE(sv, SVt_PVMG); if (!(mg = mg_find(sv, PERL_MAGIC_regex_global))) { #ifdef PERL_OLD_COPY_ON_WRITE - if (SvIsCOW(lsv)) + if (SvIsCOW(sv)) sv_force_normal_flags(sv, 0); #endif mg = sv_magicext(sv, NULL, PERL_MAGIC_regex_global, &PL_vtbl_mglob, |