Fix for checking for empty patterns in regexps:

use 'eq' rather than '==' for string comparisons.


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

1 files changed, 1 insertions, 1 deletions

diff --git a/lib/sbin/parameter_parser.pl b/lib/sbin/parameter_parser.pl
index b01a6af9..8c938e8f 100644
--- a/lib/sbin/parameter_parser.pl
+++ b/lib/sbin/parameter_parser.pl
@@ -623,7 +623,7 @@ sub CheckParameterDefault
       # 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)
+      if ($range eq '' || $default =~ m:$range:i)
       {
         $foundit = 1;
       }