Perl/Tk: Button-Command wird automatisch ausgeführt

[TB09]

Hallo zusammen,

ich verstehe folgenden Zusammenhang nicht! Ich habe ein perl/Tk Skript erstellt. Beim Ausführen des Skripts, wird der Button-Command beim Erstellen des GUIs automatisch ausgeführt und ich weiß nicht wieso. Der entsprechende Perl Code sieht wie folgt aus:

$tool_dep_but[$i] = $frml -> Button(-text => "Get Info/Help!", -command => \&Info(\$frml,\$lab_of_scripts{$ts_be_sel}[$i]));

sub Info {
	my $motherwin_ref=$_[0];
	my $text_ref=$_[1];
	$$motherwin_ref->messageBox (-message => "$$text_ref");
	my $sw = new MainWindow; }

Der folgende Code funktioniert jedoch:

$tool_dep_but[$i] = $frml -> Button(-text => "Get Info/Help!", -command => \&TEST)

sub TEST {
	print "TEST\n";
}

Kann mir irgendjemand sagen, wo der Fehler liegt?

Vielen Dank,

Thomas

[TB09]

Ich habe den Fehler gefunden, es lag an der Übergabe der Parameter für die sub-function:

Lösung:

$tool_dep_but[$i] = $frml -> Button(-text => "Get Info/Help!", -command => [\&Info, \$frml,\$lab_of_scripts{$ts_be_sel}[$i]]);

Besten Dank an alle, die sich Zeit genommen haben über mein Problem nachzudenken!

Gruß,

Thomas