From ca7973e38483804fbb5390fd2e55b33ca464ca41 Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Mon, 24 Nov 2014 13:29:52 +0000
Subject: [PATCH] Skip checks if not required and no default set.

---
 Webperl/Block.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Webperl/Block.pm b/Webperl/Block.pm
index 5f7faa6..cdfcdad 100644
--- a/Webperl/Block.pm
+++ b/Webperl/Block.pm
@@ -165,8 +165,10 @@ sub validate_string {
         if($settings -> {"required"}) {
             return ("", $self -> {"template"} -> replace_langvar("BLOCK_VALIDATE_NOTSET", {"***field***" => $settings -> {"nicename"}}));
         # Otherwise fall back on the default.
+        } elsif(!$settings -> {"default"}) {
+            return ("", undef);
         } else {
-            $text = $settings -> {"default"} || "";
+            $text = $settings -> {"default"};
         }
     }