1 files changed, 1 insertions, 1 deletions
diff --git a/dump.c b/dump.c
index fad5060cd6..4622fb9b88 100644
--- a/dump.c
+++ b/dump.c
@@ -1385,7 +1385,7 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
     if (flags & SVp_IOK)	sv_catpv(d, "pIOK,");
     if (flags & SVp_NOK)	sv_catpv(d, "pNOK,");
     if (flags & SVp_POK)	sv_catpv(d, "pPOK,");
-    if (flags & SVp_SCREAM && type != SVt_PVHV)
+    if (flags & SVp_SCREAM && type != SVt_PVHV && !isGV_with_GP(sv))
 				sv_catpv(d, "SCREAM,");
 
     switch (type) {