diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-01-02 20:47:31 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-01-02 20:47:31 +0000 |
| commit | 2e94196c9b65166bc30c1956b01df877a36f8934 (patch) | |
| tree | b99c35ca437ec79ef2f15a090f77f1695031b382 /dump.c | |
| parent | 93c535ac3c07a4674324635bcb8ecc089468009f (diff) | |
| download | perl-2e94196c9b65166bc30c1956b01df877a36f8934.tar.gz | |
PVMG can be isUV too.
p4raw-id: //depot/perl@29668
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -1450,8 +1450,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo case SVt_PVMG: if (SvPAD_TYPED(sv)) sv_catpv(d, "TYPED,"); if (SvPAD_OUR(sv)) sv_catpv(d, "OUR,"); - if (SvPAD_STATE(sv)) sv_catpv(d, "STATE,"); - break; + /* FALL THROUGH */ case SVt_PVNV: if (SvPAD_STATE(sv)) sv_catpv(d, "STATE,"); goto evaled_or_uv; |