diff options
| author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-10-25 09:09:27 +0000 |
|---|---|---|
| committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 1999-10-25 09:09:27 +0000 |
| commit | 61e93bc15fbccaa9e8319384224db3335a4a5358 (patch) | |
| tree | a2a80987eb4160c710e121beadedcd04e91566d6 /lib/sbin/ScheduleParser.pl | |
| parent | 9bf28bf5ac1cb628ed935d4498694a7482b32de0 (diff) | |
Fixed some things noticed by perl -w .
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@1102 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/ScheduleParser.pl')
| -rw-r--r-- | lib/sbin/ScheduleParser.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/sbin/ScheduleParser.pl b/lib/sbin/ScheduleParser.pl index ea10d041..da361ec3 100644 --- a/lib/sbin/ScheduleParser.pl +++ b/lib/sbin/ScheduleParser.pl @@ -77,7 +77,7 @@ sub parse_schedule_ccl my($name, $type, $description, $where, $language, $mem_groups, $comm_groups, $trigger_groups, $before_list, $after_list, $while_list); - my($type, $groups); + my($groups); $buffer = ""; $n_blocks = 0; @@ -158,7 +158,8 @@ sub ParseScheduleBlock my(@trigger_groups) = (); my($keyword) = ""; my(@current_sched_list) = (); - my($where) = ""; + + $where = ""; #Parse the first line of the schedule block |