This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
weak references aren't UVs, do don't show this in the dump flags.
authorNicholas Clark <nick@ccl4.org>
Tue, 21 Jun 2005 10:58:22 +0000 (10:58 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 21 Jun 2005 10:58:22 +0000 (10:58 +0000)
p4raw-id: //depot/perl@24921

dump.c

diff --git a/dump.c b/dump.c
index ddeacf4..e047d34 100644 (file)
--- a/dump.c
+++ b/dump.c
@@ -1190,7 +1190,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
        /* FALL THROUGH */
     default:
        if (SvEVALED(sv))       sv_catpv(d, "EVALED,");
-       if (SvIsUV(sv))         sv_catpv(d, "IsUV,");
+       if (SvIsUV(sv) && !(flags & SVf_ROK))   sv_catpv(d, "IsUV,");
        break;
     case SVt_PVBM:
        if (SvTAIL(sv))         sv_catpv(d, "TAIL,");