Self-ties are unsupported currently, stopgap patch from Alan Burlison.

p4raw-id: //depot/perl@7213

1 files changed, 4 insertions, 1 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 5fa86d62aa..9329ffdb40 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -794,7 +794,10 @@ PP(pp_tie)
     POPSTACK;
     if (sv_isobject(sv)) {
 	sv_unmagic(varsv, how);
-	sv_magic(varsv, (SvRV(sv) == varsv ? Nullsv : sv), how, Nullch, 0);
+	/* Croak if a self-tie is attempted */
+	if (varsv == SvRV(sv))
+	    Perl_croak(aTHX_ "Self-ties are not supported");
+	sv_magic(varsv, sv, how, Nullch, 0);
     }
     LEAVE;
     SP = PL_stack_base + markoff;