diff options
author | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2008-01-25 14:49:20 +0000 |
---|---|---|
committer | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2008-01-25 14:49:20 +0000 |
commit | d82263df799a28b9649ef4b852af105d5021b2e4 (patch) | |
tree | b6d9876a34292cffceaf2b472ac76ebc10d98ce7 | |
parent | ba709a943911185aeb720d65f0d413d89bab874e (diff) |
When parsing parameters, require that no other text comes before
the EXTENDS or USES keywords.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@4448 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 4b27db4c..d7018a5c 100644 --- a/lib/sbin/parameter_parser.pl +++ b/lib/sbin/parameter_parser.pl @@ -148,7 +148,7 @@ sub parse_param_ccl $parameter_db{"\U$thorn $block\E variables"} = '' if(! $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+\"[^\"]*\")?\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. |