diff options
author | knarf <knarf@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2012-05-01 02:23:10 +0000 |
---|---|---|
committer | knarf <knarf@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2012-05-01 02:23:10 +0000 |
commit | 0b286b2b14b5b26ea35b2038b2bd79a05c7f5fd6 (patch) | |
tree | c07018776a292ce7239a0e8bd549c8c3c57ce71e /lib/sbin | |
parent | f21e922a0625f0299fcad549d701245ca6595b15 (diff) |
Prevent CST from hanging if a {} "" block is missing after a scheduling block and before the end of the file. Closes #825.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@4806 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin')
-rw-r--r-- | lib/sbin/ScheduleParser.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/sbin/ScheduleParser.pl b/lib/sbin/ScheduleParser.pl index 7670b19d..d17d8f67 100644 --- a/lib/sbin/ScheduleParser.pl +++ b/lib/sbin/ScheduleParser.pl @@ -444,7 +444,7 @@ sub ParseScheduleBlock if($data[$line_number] !~ m:\s*\{\s*:) { &CST_error(0,"Error parsing schedule block line '$data[$line_number]'\nMissing { at start of block","",__LINE__,__FILE__); - $line_number++ while($data[$line_number] !~ m:\s*\}\s*:); + $line_number++ while($line_number<scalar(@data) and $data[$line_number] !~ m:\s*\}\s*:); } else { |