Help for this page

Select Code to Download

Select or download this

diff /usr/local/lib/perl/5.18.2/Tcl.pm.bak /usr/local/lib/perl/5.18.2/
+Tcl.pm
384a385
...
>     my $anonname = $_[0]->[2];
655a678
>     Tcl::anon_kill($anonname);