diff --git a/lib/Webperl/Template.pm b/lib/Webperl/Template.pm index 5358690..17156cf 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 ] if($default && ref($default) ne "ARRAY"); + $default = [ $default ] if(defined($default) && ref($default) ne "ARRAY"); # Convert default to a hash for faster lookup my %selected = ();