From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 21 Jun 2005 10:58:22 +0000 (+0000)
Subject: weak references aren't UVs, do don't show this in the dump flags.
X-Git-Tag: accepted/trunk/20130322.191538~20332
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=69c678eb3bbbed7a7896fd9a2e52b0bbb93d4c3e;p=platform%2Fupstream%2Fperl.git

weak references aren't UVs, do don't show this in the dump flags.

p4raw-id: //depot/perl@24921
---

diff --git a/dump.c b/dump.c
index ddeacf4..e047d34 100644
--- 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,");