[perl #97980] Stop tied() from returning a copy

Now tied() returns the actual scalar used to hold the tie object,
so one can write weaken(tied $foo).

1 files changed, 1 insertions, 4 deletions

diff --git a/pp_sys.c b/pp_sys.c
index cc8b099775..78a51aed06 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -973,10 +973,7 @@ PP(pp_tied)
 	RETPUSHUNDEF;
 
     if ((mg = SvTIED_mg(sv, how))) {
-	SV *osv = SvTIED_obj(sv, mg);
-	if (osv == mg->mg_obj)
-	    osv = sv_mortalcopy(osv);
-	PUSHs(osv);
+	PUSHs(SvTIED_obj(sv, mg));
 	RETURN;
     }
     RETPUSHUNDEF;