diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-07-07 13:19:01 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2003-07-07 13:19:01 +0000 |
commit | d073115c19c060605bbf0b6b2273a9280ab3f43d (patch) | |
tree | 9dffc45dd7d402fb8596f9506fccb2d212523cca /lib/sbin/GridFuncStuff.pl | |
parent | f00a23f066c9082e42f7ca38164209a3dc403275 (diff) |
Improved pattern matching in last commit for array SIZE values so that it
doesn't error for DIM 1
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3260 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/GridFuncStuff.pl')
-rw-r--r-- | lib/sbin/GridFuncStuff.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/sbin/GridFuncStuff.pl b/lib/sbin/GridFuncStuff.pl index baac7a93..1a14ab89 100644 --- a/lib/sbin/GridFuncStuff.pl +++ b/lib/sbin/GridFuncStuff.pl @@ -1015,7 +1015,7 @@ sub CreateThornGroupInitialisers $dim = $rhinterface_db->{"\U$thorn GROUP $group\E DIM"}; $string = $rhinterface_db->{"\U$thorn GROUP $group\E SIZE"}; &CheckArraySizes($string,$thorn,$rhparameter_db,$rhinterface_db); - if ($string !~ /,/) + if ($string =~ /^\s*$/) { $numsize = 0; } @@ -1027,7 +1027,7 @@ sub CreateThornGroupInitialisers { if ($numsize == 0) { - $message = "Array sizes not provided for $group in $thorn"; + $message = "Array sizes not provided for group $group in $thorn"; } else { |