X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=pp_sys.c;h=28ffcda5e1549109ea70278acc4da183f81360f1;hb=a6c71b5b9462db13c7bb2cd263cee5995315784c;hp=c7cbd460dbd1e3a2e2c02fc0cc5cdf1275fbf090;hpb=f269dd06c6e6846627d56890bf93bf0503f0a36f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/pp_sys.c b/pp_sys.c
index c7cbd46..28ffcda 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -802,9 +802,12 @@ PP(pp_tie)
     POPSTACK;
     if (sv_isobject(sv)) {
 	sv_unmagic(varsv, how);
-	/* Croak if a self-tie is attempted */
-	if (varsv == SvRV(sv))
-	    Perl_croak(aTHX_ "Self-ties are not supported");
+	/* Croak if a self-tie on an aggregate is attempted. */
+	if (varsv == SvRV(sv) &&
+	    (SvTYPE(sv) == SVt_PVAV ||
+	     SvTYPE(sv) == SVt_PVHV))
+	    Perl_croak(aTHX_
+		       "Self-ties of arrays and hashes are not supported");
 	sv_magic(varsv, sv, how, Nullch, 0);
     }
     LEAVE;