diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-05-23 19:50:52 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-05-23 19:50:52 +0000 |
commit | 4786106eae970847962eeabf6d42eb718a277a45 (patch) | |
tree | 5e5f9f11f53887349c613cb2c0e5c99e0a6ec554 /lib | |
parent | 6660642eb87f830d132083257161bc74ead2fa6b (diff) |
Strip trailing spaces from parameter defaults
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2854 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib')
-rw-r--r-- | lib/sbin/parameter_parser.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/sbin/parameter_parser.pl b/lib/sbin/parameter_parser.pl index d164a544..2e3d698b 100644 --- a/lib/sbin/parameter_parser.pl +++ b/lib/sbin/parameter_parser.pl @@ -412,9 +412,12 @@ sub parse_param_ccl } if($block !~ m:SHARES:) { - if($data[$line_number] =~ m:\s*\}\s*([^\s].*):) + if($data[$line_number] =~ m:\s*\}\s*([^\s].*)\s*:) { $default = $1; + $default =~ m:^(.*[^\s])\s*:; + $default = $1; + if ($type =~ m:INT|REAL: && $default =~ m:":) { $message = "String default given for $type $variable in $thorn"; |