Handling the array ref:
if (ref $millis eq 'ARRAY') { $callback = Tk::Callback->new($millis->[1]); $millis = $millis->[0]; }
Handling the remaining variable references:
foreach my $vref (@_) {
In reply to Re^4: Tk::waitVariableX - AUTOLOAD failed
by choroba
in thread Tk::waitVariableX - AUTOLOAD failed
by jowe
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |