So ich hab mal die Zeilen aus dem Tk.pm extrahiert:

243: sub Methods
244: {
245: my ($package) = caller;
246: no strict 'refs';
247: foreach my $meth (@_)
248: {
249: my $name = $meth;
250: *{$package."::$meth"} = sub { shift->WidgetMethod($name,@_) };
251: }
252: }
253:
254: my %dialog = ( tk_chooseColor => 'ColorDialog',
255: tk_messageBox => 'MessageBox',
256: tk_getOpenFile => 'FDialog',
257: tk_getSaveFile => 'FDialog',
258: tk_chooseDirectory => 'FDialog'
259: # Slaven claims NI-S's version above does not work
260: # and provides this
261: # tk_chooseDirectory => 'DirDialog'
262: );


Vielleicht sieht hier ja jemand etwas verdächtiges.

Zusatz: Ich habe ja in meiner Code-Historie an dem zweiten fehlerhaften Rechner eine Version gefunden, welche wieder funktioniert. Diese läuft leider nicht auf dem ersten Rechner. Hier kommt wieder diese Fehlermeldung.

Langsam wird der Fehler echt ärgerlich.