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

DEtect undef values in defaults list

Browse Source
This commit is contained in:
Chris 2020-05-24 17:48:19 +01:00
parent 251e217a0c
commit 2bcc883280
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lib/Webperl/Template.pm
View File

@ -729,7 +729,14 @@ sub build_optionlist {
$default = [ $default ] unless($default && ref($default) eq "ARRAY"); $default = [ $default ] unless($default && ref($default) eq "ARRAY");
# Convert default to a hash for faster lookup # Convert default to a hash for faster lookup
my %selected = map { $_ => 1 } @{$default}; my %selected = ();
foreach my $val (@{$default}) {
if(!defined($val)) {
carp "Undefined value in default list.";
next;
}
$selected{$val} = 1;
}
# Now build up the option string # Now build up the option string
my $optstr = ""; my $optstr = "";