Ok, gelöst!!!!
Das get() hat zwar immer korrekt die Zahl mit Nachkommastellen zurückgegeben, aber das hat mich auf die richtige Fährte gebracht. Ich hab dann erstmal my $tmp = $c->{samplerate} gemacht und dann multipliziert -- damit war der Fehler weg. Ich weiß, dass Tk-magic die "-textvariable" sehr low-level ans Widget bindet, so dass es Interaktionen gibt, die auch dem Perl-Debugger entgehen. Und da der Fehler bei der angebundenen Variable auftritt, nicht jedoch bei einer "freien" Variable, könnte es gut ein Tk Fehler sein. Und in der Tk-Bugqueue findet sich dann auch:
"Tk::Entry dropping decimals sometimes"
https://rt.cpan.org/Public/Bug/Display.html?id=116...
Und nach Successfully installed Tk-804.034 (upgraded from 804.033) ist dann auch alles gut.
Dank an alle für die Unterstützung!
(Warum das genau jetzt auftritt und nicht früher bleibt wahrscheinlich ein Mysterium... :-))
Last edited: 2017-10-11 10:01:26 +0200 (CEST)