Chris/webperl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Handle 0 defaults properly

Browse Source
This commit is contained in:
Chris 2020-05-24 17:54:08 +01:00
parent 13e7c201f4
commit 40b571c117
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/Webperl/Template.pm
View File

@ -726,7 +726,7 @@ sub build_optionlist {
my $opttem = "<option value=\"***value***\"***sel******title***>***name***</option>\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 = ();