From b7e6e8c5d507fa9fd29fa8369aef4a1ffd2dc840 Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Sun, 24 May 2020 17:51:25 +0100
Subject: [PATCH] Improve handling of undef default

---
 lib/Webperl/Template.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 = "<option value=\"***value***\"***sel******title***>***name***</option>\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 = ();