From c3c5d7374b1c6b725e245ca2d53dedba480fdc06 Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Sun, 20 Oct 2019 17:46:29 +0100
Subject: [PATCH] Treat empty value correctly

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

diff --git a/Webperl/Block.pm b/Webperl/Block.pm
index 71394e1..d081772 100644
--- a/Webperl/Block.pm
+++ b/Webperl/Block.pm
@@ -249,7 +249,7 @@ sub validate_numeric {
     # Grab the parameter value, fall back on the default if it hasn't been set.
     my $value = $self -> {"cgi"} -> param($param) // $self -> {"cgi"} -> url_param($param);
     $value = Encode::decode("utf8", $value) if(!Encode::is_utf8($value));
-    if(!defined($value)) {
+    if(!defined($value) || $value eq "") {
         if($settings -> {"required"}) {
             return ($settings -> {"default"}, $self -> {"template"} -> replace_langvar("BLOCK_VALIDATE_NOTSET", {"***field***" => $settings -> {"nicename"}}));
         } else {