diff options
| author | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2008-01-25 15:06:35 +0000 |
|---|---|---|
| committer | schnetter <schnetter@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2008-01-25 15:06:35 +0000 |
| commit | 2a216ad4020c2470e7dbee1d0e3609e2b8ce6163 (patch) | |
| tree | b0de9e20fe8633c7a891afdb52ec7ffeb4f8525b /lib/sbin | |
| parent | df2987356140fbf2534a59d34328324cab13df45 (diff) | |
Correct the handling of spaces when parsing EXTENDS and USES statements.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@4453 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin')
| -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 d7018a5c..cb2f2ab8 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/^\s*(EXTENDS\s+|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. |