X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp_sys.c;h=29bc12a14eb09e25722b91d4d3cd16fd640283a8;hb=7fb3795116dd07b7f236652a03ac53946b1af7cf;hp=83dfb193da9995b61b2d31e07c64271796b6f812;hpb=fd90a50dd9dd98650b54e33f8b9a3e77bcbf54b8;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp_sys.c b/pp_sys.c
index 83dfb19..29bc12a 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -758,9 +758,9 @@ 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");
+#ifdef GV_UNIQUE_CHECK
+	    if (GvUNIQUE((GV*)varsv)) {
+                Perl_croak(aTHX_ "Attempt to tie unique GV");
 	    }
 #endif
 	    methname = "TIEHANDLE";