From 40b571c1175c9458e5e004b2861847990b2bc379 Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Sun, 24 May 2020 17:54:08 +0100
Subject: [PATCH] Handle 0 defaults properly

---
 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 5358690..17156cf 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 ] 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 = ();