diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-12-31 20:10:11 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-12-31 20:10:11 +0000 |
commit | f866a7c53a4bc0d4e7848898310f9555c50d549d (patch) | |
tree | 827c79c9dd024c1aa56c9fa2f960635911a53ed3 | |
parent | 2ac5016c3f72001dd25bb4d63b67b3707d07d667 (diff) |
Allow white space between a parameter name and the parameter array size if
one is provided.
Asked for in Cactus/1338
git-svn-id: http://svn.cactuscode.org/flesh/trunk@3069 17b73243-c579-4c4c-a9d2-2d5706c11dac
-rw-r--r-- | lib/sbin/parameter_parser.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/sbin/parameter_parser.pl b/lib/sbin/parameter_parser.pl index 7505d752..b8cf1b51 100644 --- a/lib/sbin/parameter_parser.pl +++ b/lib/sbin/parameter_parser.pl @@ -154,7 +154,7 @@ sub parse_param_ccl $parameter_db{"\U$thorn $block\E variables"} = ""; } } - elsif($line =~ m:(EXTENDS |USES )?\s*(?\:CCTK_)?(INT|REAL|BOOLEAN|KEYWORD|STRING)\s+([a-zA-Z]+[a-zA-Z0-9_]*)(\[([^]]+)\])?(\s+\"[^\"]*\")?\s*(.*)$:i) + elsif($line =~ m:(EXTENDS |USES )?\s*(?\:CCTK_)?(INT|REAL|BOOLEAN|KEYWORD|STRING)\s+([a-zA-Z]+[a-zA-Z0-9_]*)(\s*\[([^]]+)\])?(\s+\"[^\"]*\")?\s*(.*)$:i) { # This is a parameter definition. |