buncha MacPerl patches for bleadperl

[p5sagit/p5-mst-13.2.git] / pp_sys.c

diff --git a/pp_sys.c b/pp_sys.c
index 283dbc1..2f45855 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -757,6 +757,11 @@ PP(pp_tie)
            methname = "TIEARRAY";
            break;
        case SVt_PVGV:
+#ifdef GV_SHARED_CHECK
+           if (GvSHARED((GV*)varsv)) {
+                Perl_croak(aTHX_ "Attempt to tie shared GV");
+           }
+#endif
            methname = "TIEHANDLE";
            how = 'q';
            break;