diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-01-05 21:33:30 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-01-05 21:33:30 +0000 |
| commit | 08e447406761619260203dbbef9cf10b6efa533c (patch) | |
| tree | 0ecbcc7b50cf5cb76a4982389bdb6962475f8be0 /dump.c | |
| parent | d0a30c4343e6b989663db0abe44ac1e4c2820428 (diff) | |
| download | perl-08e447406761619260203dbbef9cf10b6efa533c.tar.gz | |
Don't allocate the NV slot for SVt_REGEXP.
p4raw-id: //depot/perl@32859
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1553,8 +1553,8 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo Perl_dump_indent(aTHX_ level, file, " COP_HIGH = %"UVuf"\n", (UV) COP_SEQ_RANGE_HIGH(sv)); } else if ((type >= SVt_PVNV && type != SVt_PVAV && type != SVt_PVHV - && type != SVt_PVCV && type != SVt_PVFM && !isGV_with_GP(sv) - && !SvVALID(sv)) + && type != SVt_PVCV && type != SVt_PVFM && type != SVt_REGEXP + && !isGV_with_GP(sv) && !SvVALID(sv)) || type == SVt_NV) { STORE_NUMERIC_LOCAL_SET_STANDARD(); /* %Vg doesn't work? --jhi */ |