diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-12-27 20:33:55 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-12-27 20:33:55 +0000 |
| commit | f708cfc10f5ba0c4e1efa412ff01f165ea63f555 (patch) | |
| tree | ff0c6f3aac80ae7e974d277bc7611ea14c27a862 /sv.c | |
| parent | 2cd48dfddda7cedd271f0adfac2ed9f58f10189b (diff) | |
| download | perl-f708cfc10f5ba0c4e1efa412ff01f165ea63f555.tar.gz | |
Test that we can clone regexps into new threads, and fix the bug in
change 32740 that this reveals. (Bug spotted by, and initial patch
from, Jerry D. Hedden.)
p4raw-id: //depot/perl@32745
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -10121,6 +10121,7 @@ Perl_sv_dup(pTHX_ const SV *sstr, CLONE_PARAMS* param) case SVt_PVAV: case SVt_PVCV: case SVt_PVLV: + case SVt_ORANGE: case SVt_PVMG: case SVt_PVNV: case SVt_PVIV: @@ -10175,6 +10176,8 @@ Perl_sv_dup(pTHX_ const SV *sstr, CLONE_PARAMS* param) break; case SVt_PVMG: break; + case SVt_ORANGE: + break; case SVt_PVLV: /* XXX LvTARGOFF sometimes holds PMOP* when DEBUGGING */ if (LvTYPE(dstr) == 't') /* for tie: unrefcnted fake (SV**) */ |