[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).

diff --git a/pp_sys.c b/pp_sys.c
index cc8b099..78a51ae 100644 (file)
--- 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;

diff --git a/t/op/tie.t b/t/op/tie.t
index b6567fc..887fa96 100644 (file)
--- a/t/op/tie.t
+++ b/t/op/tie.t
@@ -1180,3 +1180,11 @@ fetching
 before at - line 8.
 fetching
 after at - line 10.
+########
+
+# tied returns same value as tie
+sub TIESCALAR{bless[]}
+$tyre = \tie $tied, "";
+print "ok\n" if \tied $tied == $tyre;
+EXPECT
+ok