diff --git a/lib/Webperl/Template.pm b/lib/Webperl/Template.pm index 13de9c3..7edef1d 100644 --- a/lib/Webperl/Template.pm +++ b/lib/Webperl/Template.pm @@ -726,7 +726,7 @@ sub build_optionlist { my $opttem = "\n"; # Force arrayref for default - $default = [ $default ] unless($default && ref($default) eq "ARRAY"); + $default = [ $default ] if($default && ref($default) ne "ARRAY"); # Convert default to a hash for faster lookup my %selected = ();