diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-02-24 13:58:06 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-02-24 13:58:06 +0000 |
commit | 9416dc082cfe616f8072e5b8cdd0d1f3788d7081 (patch) | |
tree | 6865058419fdbbf854978f58deeef4226e2ab2ea /lib/sbin/parameter_parser.pl | |
parent | 36e4911c1b27c115c75c3a766497bd7838934502 (diff) |
Fixed problem when last line of param.ccl is a "uses" or "extends" line
which doesn't have a newline or space at the end
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2627 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/parameter_parser.pl')
-rw-r--r-- | lib/sbin/parameter_parser.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/sbin/parameter_parser.pl b/lib/sbin/parameter_parser.pl index 70ce34d6..23ebc124 100644 --- a/lib/sbin/parameter_parser.pl +++ b/lib/sbin/parameter_parser.pl @@ -145,7 +145,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*(.*)$:i) { # This is a parameter definition. @@ -154,6 +154,8 @@ sub parse_param_ccl $variable = $3; $description = $4; + $description =~ s:^\s*::; + $options = $5; if($use_or_extend =~ m:USES:i) |