Revert "Partially revert 4155e4fe"

This reverts commit 7f586e41ad4ecd904c7d8dbe1ddb0f9410484bac.

diff --git a/sv.c b/sv.c
index 7a23026..a218fff 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -582,9 +582,7 @@ Perl_sv_clean_objs(pTHX)
     visit(do_clean_named_io_objs, SVt_PVGV|SVpgv_GP, SVTYPEMASK|SVp_POK|SVpgv_GP);
     /* And if there are some very tenacious barnacles clinging to arrays,
        closures, or what have you.... */
-    /* XXX This line breaks Tk and Gtk2. See [perl #82542].
     visit(do_curse, SVs_OBJECT, SVs_OBJECT);
-    */
     olddef = PL_defoutgv;
     PL_defoutgv = NULL; /* disable skip of PL_defoutgv */
     if (olddef && isGV_with_GP(olddef))

diff --git a/t/op/ref.t b/t/op/ref.t
index ea5bd2e..a6d8fa0 100644 (file)
--- a/t/op/ref.t
+++ b/t/op/ref.t
@@ -380,7 +380,6 @@ curr_test($test + 2);
 # test that DESTROY is called on all objects during global destruction,
 # even those without hard references [perl #36347]
 
-$TODO = 'bug #36347';
 is(
   runperl(
    stderr => 1, prog => 'sub DESTROY { print qq-aaa\n- } bless \$a[0]'
@@ -395,7 +394,7 @@ is(
  "aaa\n",
  'DESTROY called on closure variable'
 );
-$TODO = undef;
+
 
 # test if refgen behaves with autoviv magic
 {