diff options
| author | jthorn <jthorn@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2005-09-06 15:21:20 +0000 |
|---|---|---|
| committer | jthorn <jthorn@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2005-09-06 15:21:20 +0000 |
| commit | 07fce5265c98518e59ec4bd539a9a31b94b42b9c (patch) | |
| tree | 7e9012a1f6bb6a776c56e783144ae68feed8c48f /lib | |
| parent | 32fd49d0522e10765ba8349de7bdd019a7e70a59 (diff) | |
fix a regexp bug in the parsing of the upper bound for an open-interval
integer parameter ranges in parse_param_ccl():
The perl regexp was checking for somthing like ( number : ( number
whereas we really want (and this fix changes the code to test for)
something like ( number : number )
git-svn-id: http://svn.cactuscode.org/flesh/trunk@4121 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib')
| -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 ed50d278..4b27db4c 100644 --- a/lib/sbin/parameter_parser.pl +++ b/lib/sbin/parameter_parser.pl @@ -386,7 +386,7 @@ sub parse_param_ccl if ($type eq 'INT' && ! ( $new_ranges eq '*' || $new_ranges =~ /^[+-]?\d+$/ || - $new_ranges =~ /^(\*|[(]?[+-]?\d+)?:(\*|[(]?[+-]?\d+)?(:\d+)?$/)) { + $new_ranges =~ /^(\*|\(?[+-]?\d+)?:(\*|[+-]?\d+\)?)?(:\d+)?$/)) { &CST_error(0, "Invalid range '$new_ranges' for integer " . "parameter '$variable' of thorn '$thorn'", '', __LINE__, __FILE__); |