Temporary stopgap for the self-tying issue: for now only

array and hash self-ties are verboten.  The real fix, of
course, would be to comprehensively test (and implement?)
and debug (and document) self-ties.

p4raw-id: //depot/perl@7443

1 files changed, 6 insertions, 3 deletions

diff --git a/pp_sys.c b/pp_sys.c
index c7cbd460db..28ffcda5e1 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;