Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Re^2: Tkx after coderef problem

by huck (Parson)
on Jun 04, 2018 at 06:06 UTC ( #1215803=note: print w/replies, xml ) Need Help??

in reply to Re: Tkx after coderef problem
in thread Tkx after coderef problem

diff to 1.05

diff /usr/local/lib/perl/5.18.2/ /usr/local/lib/perl/5.18.2/ 384a385 > use Scalar::Util qw(weaken); 560a562,567 > # this kills the weakened tclname ref leaveng the strong current_r r +ef (like before) > > if (exists($anon_refs{$current_r})){ > anon_kill($anon_refs{$current_r}[2]); > } > 594a602,607 > # kill an anon_refs name > sub anon_kill { > my $anonname=shift; > delete $anon_refs{$anonname}; > } > 618c631,639 < $anon_refs{$rname} = bless [\$sub, $interp], 'Tcl::Code'; --- > # $anon_refs{$rname} = bless [\$sub, $interp], 'Tcl::Code'; > my $isnew=0; > unless (exists $anon_refs{$tclname}) { > $anon_refs{$tclname} = bless [\$sub, $interp, $tclname], 'Tcl: +:Code'; > $isnew=1; > } > $anon_refs{$rname} = $anon_refs{$tclname}; > weaken($anon_refs{$tclname}) if ($isnew); > 652a674 > my $anonname = $_[0]->[2]; 655a678 > Tcl::anon_kill($anonname);
Now to try to make a "bug report" via bug-Tcl [at]

Replies are listed 'Best First'.
Re^3: Tkx after coderef problem
by huck (Parson) on Jun 04, 2018 at 07:04 UTC
Re^3: Tkx after coderef problem
by huck (Parson) on Jun 14, 2018 at 01:51 UTC

    While that patch above fixes part of the problem, there is more to the real problem that the above simple patch does not address. I have been working on it, have a second tracking number at for a second problem, and hope to have my git-pull request honored. When all that is done i will update this subthread more

      Why no Test module?

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1215803]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (10)
As of 2020-07-10 13:08 GMT
Find Nodes?
    Voting Booth?

    No recent polls found