If you use
$log = $log || '';
instead of
$log = defined $log ? $log : '';
It might yield a problem because when $log is "0" it is defined but
false in boolean context.
The correct shorter version is:
$log = $log // '';
And in the line 696:
> 696 my ($log, $pass) = $main::global->{login} ?
> ($main::global->{form}->{'userlogin'}, $main::global->{form}->{'userpass'}) :
> ();
When $main::global->{login} is false, $log and $pass will not be defined anyway.
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
