diff options
author | rideout <rideout@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-05-23 11:47:03 +0000 |
---|---|---|
committer | rideout <rideout@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-05-23 11:47:03 +0000 |
commit | 26a29a069161c3341d98aa1325bce620bf5dd22c (patch) | |
tree | 5b853ce729cceb52ccd0a53b8e7b840d60c3085a /lib/sbin/GridFuncStuff.pl | |
parent | 3fb54b6a3a7baa78d36b9e7d58fddb976dbae257 (diff) |
Eliminate white space in parameter expressions, so that they are
parsed properly.
Fixes Cactus/1520.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3222 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/GridFuncStuff.pl')
-rw-r--r-- | lib/sbin/GridFuncStuff.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index c11056c0..163f9e36 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -1220,6 +1220,9 @@ sub VerifyParameterExpression my($expression,$thornname,$rhparameter_db,$rh_interface_db) = @_; my($i,$count,@fields); + # Eliminate white space in expression + $expression =~ s/\s+//g; + # First do some global checks if($expression !~ m%^[-+*/a-zA-Z0-9_():\[\]]+$%) { |