From: Abhijit Menon-Sen <ams@wiw.org>
Date: Mon, 18 Jun 2001 14:23:44 +0000 (+0530)
Subject: FLAGS = (...,OUR,TYPED,...)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=addd17944a903a06ff703e464df3c19e25641a1a;p=p5sagit%2Fp5-mst-13.2.git

FLAGS = (...,OUR,TYPED,...)
Message-ID: <20010618142344.A13136@lustre.linux.in>

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

diff --git a/dump.c b/dump.c
index bbbcec3..1dc5571 100644
--- a/dump.c
+++ b/dump.c
@@ -963,6 +963,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
 	if (GvSHARED(sv))       sv_catpv(d, "SHARED,");
 	if (GvASSUMECV(sv))	sv_catpv(d, "ASSUMECV,");
 	if (GvIN_PAD(sv))       sv_catpv(d, "IN_PAD,");
+	if (flags & SVpad_OUR)	sv_catpv(d, "OUR,");
 	if (GvIMPORTED(sv)) {
 	    sv_catpv(d, "IMPORT");
 	    if (GvIMPORTED(sv) == GVf_IMPORTED)
@@ -976,7 +977,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
 		sv_catpv(d, " ),");
 	    }
 	}
-	/* FALL THROGH */
+	/* FALL THROUGH */
     default:
 	if (SvEVALED(sv))	sv_catpv(d, "EVALED,");
 	if (SvIsUV(sv))		sv_catpv(d, "IsUV,");
@@ -986,6 +987,10 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
 	if (SvTAIL(sv))		sv_catpv(d, "TAIL,");
 	if (SvVALID(sv))	sv_catpv(d, "VALID,");
 	break;
+    case SVt_PVMG:
+	if (flags & SVpad_TYPED)
+				sv_catpv(d, "TYPED,");
+	break;
     }
 
     if (*(SvEND(d) - 1) == ',')