From 2bcc8832803eb4708a26fc1803a00a085fad1d13 Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Sun, 24 May 2020 17:48:19 +0100
Subject: [PATCH] DEtect undef values in defaults list

---
 lib/Webperl/Template.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lib/Webperl/Template.pm b/lib/Webperl/Template.pm
index 1b2a969..13de9c3 100644
--- a/lib/Webperl/Template.pm
+++ b/lib/Webperl/Template.pm
@@ -729,7 +729,14 @@ sub build_optionlist {
     $default = [ $default ] unless($default && ref($default) eq "ARRAY");
 
     # 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
     my $optstr = "";