[patch] GvSHARED

Message-ID: <Pine.LNX.4.21.0102101047320.15298-100000@mako.covalent.net>

p4raw-id: //depot/perl@8760

1 files changed, 7 insertions, 1 deletions

diff --git a/gv.c b/gv.c
index c73d503d5f..1539ddd524 100644
--- a/gv.c
+++ b/gv.c
@@ -45,8 +45,14 @@ Perl_gv_IOadd(pTHX_ register GV *gv)
 {
     if (!gv || SvTYPE((SV*)gv) != SVt_PVGV)
 	Perl_croak(aTHX_ "Bad symbol for filehandle");
-    if (!GvIOp(gv))
+    if (!GvIOp(gv)) {
+#ifdef GV_SHARED_CHECK
+        if (GvSHARED(gv)) {
+            Perl_croak(aTHX_ "Bad symbol for filehandle (GV is shared)");
+        }
+#endif
 	GvIOp(gv) = newIO();
+    }
     return gv;
 }