diff options
| author | Nicholas Clark <nick@ccl4.org> | 2006-02-25 15:11:28 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2006-02-25 15:11:28 +0000 |
| commit | 27bd069fdd0f917015e698e36bfc41a29daa63be (patch) | |
| tree | 3dbbfe85bf26980e05bd30b10bf090c1bf0b3e32 /dump.c | |
| parent | dedf8e73e174e139ce8f1fbbac255755b7d901a4 (diff) | |
| download | perl-27bd069fdd0f917015e698e36bfc41a29daa63be.tar.gz | |
Curiously none of the macros SvIVX, SvUVX or SvNVX are used on
typeglobs.
p4raw-id: //depot/perl@27325
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -1281,8 +1281,9 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo SvREFCNT_dec(d); return; } - if (type == SVt_IV || (type >= SVt_PVIV && type != SVt_PVAV - && type != SVt_PVHV && type != SVt_PVCV)) { + if ((type >= SVt_PVIV && type != SVt_PVAV && type != SVt_PVHV + && type != SVt_PVCV && !isGV_with_GP(sv)) + || type == SVt_IV) { if (SvIsUV(sv) #ifdef PERL_OLD_COPY_ON_WRITE || SvIsCOW(sv) @@ -1302,7 +1303,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo PerlIO_putc(file, '\n'); } if ((type >= SVt_PVNV && type != SVt_PVAV && type != SVt_PVHV - && type != SVt_PVCV && type != SVt_PVFM) + && type != SVt_PVCV && type != SVt_PVFM && !isGV_with_GP(sv)) || type == SVt_NV) { STORE_NUMERIC_LOCAL_SET_STANDARD(); /* %Vg doesn't work? --jhi */ |