summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2011-05-12 22:16:57 -0700
committerFather Chrysostomos <sprout@cpan.org>2011-05-18 14:54:34 -0700
commit640c0c3e6cbf43a7a03079adc89e0ad39fb33a19 (patch)
treec0f937d6b2af5e1fbbdff816e0396de0d7d5a925 /sv.c
parent63c9c6618f11b54b040d7136bc4f6cf8cf304247 (diff)
downloadperl-640c0c3e6cbf43a7a03079adc89e0ad39fb33a19.tar.gz
Revert "Partially revert 4155e4fe"
This reverts commit 7f586e41ad4ecd904c7d8dbe1ddb0f9410484bac.
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c2
1 files changed, 0 insertions, 2 deletions
diff --git a/sv.c b/sv.c
index 7a23026024..a218fff331 100644
--- 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))