Do not use empty patterns in regexps in perl when checking the default

value of string parameters.  (Empty patterns have a special meaning in
perl.)


git-svn-id: http://svn.cactuscode.org/flesh/trunk@4046 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 4 insertions, 1 deletions

diff --git a/lib/sbin/parameter_parser.pl b/lib/sbin/parameter_parser.pl
index f1f7151f..b01a6af9 100644
--- a/lib/sbin/parameter_parser.pl
+++ b/lib/sbin/parameter_parser.pl
@@ -620,7 +620,10 @@ sub CheckParameterDefault
       $range =~ s/\s*$//;
       $range =~ s/^"(.*)"$/$1/;
 
-      if ($default =~ m:$range:i)
+      # An empty regular expression should match everything.
+      # Instead, perl returns the result of the last match.
+      # Therefore, prevent using empty patterns.
+      if ($range=='' || $default =~ m:$range:i)
       {
         $foundit = 1;
       }