diff options
author | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-10-14 18:18:08 +0000 |
---|---|---|
committer | goodale <goodale@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2001-10-14 18:18:08 +0000 |
commit | 0a8dd8ea21004031bf3e1c93e4655b9bfd09504c (patch) | |
tree | 2a764e76bbf29e46a67ba6a7b4da88db29b4f126 /lib/sbin/ConfigurationParser.pl | |
parent | d49d5e0c23b826ec2079463c9d5efc13416fb4a2 (diff) |
Untabified.
Tom
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2408 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/ConfigurationParser.pl')
-rw-r--r-- | lib/sbin/ConfigurationParser.pl | 50 |
1 files changed, 25 insertions, 25 deletions
diff --git a/lib/sbin/ConfigurationParser.pl b/lib/sbin/ConfigurationParser.pl index 0aefc1cf..5bb2a68b 100644 --- a/lib/sbin/ConfigurationParser.pl +++ b/lib/sbin/ConfigurationParser.pl @@ -169,24 +169,24 @@ sub ParseProvidesBlock $line_number++; if($ra_data->[$line_number] =~ m/^\s*SCRIPT\s*(.*)$/i) { - $script = $1; - next; + $script = $1; + next; } elsif($ra_data->[$line_number] =~ m/^\s*LANG[^\s]*\s*(.*)$/i) { - $lang = $1; - next; + $lang = $1; + next; } elsif($ra_data->[$line_number] =~ m:\s*\}\s*:) { - # do nothing. + # do nothing. } else { - print STDERR "Error parsing provides block line '$ra_data->[$line_number]'\n"; - print STDERR "Unrecognised statement\n"; - $CST_errors++; - } + print STDERR "Error parsing provides block line '$ra_data->[$line_number]'\n"; + print STDERR "Unrecognised statement\n"; + $CST_errors++; + } } } @@ -235,28 +235,28 @@ sub ParseOptionalBlock $line_number++; if($ra_data->[$line_number] =~ m/^\s*DEFINE\s*(.*)$/i) { - if($define eq "") - { - $define = $1; - next; - } - else - { - print STDERR "Error parsing optional block line '$ra_data->[$line_number]'\n"; - print STDERR "Only one define allowed\n"; - $CST_errors++; - } + if($define eq "") + { + $define = $1; + next; + } + else + { + print STDERR "Error parsing optional block line '$ra_data->[$line_number]'\n"; + print STDERR "Only one define allowed\n"; + $CST_errors++; + } } elsif($ra_data->[$line_number] =~ m:\s*\}\s*:) { - # do nothing. + # do nothing. } else { - print STDERR "Error parsing provides block line '$ra_data->[$line_number]'\n"; - print STDERR "Unrecognised statement\n"; - $CST_errors++; - } + print STDERR "Error parsing provides block line '$ra_data->[$line_number]'\n"; + print STDERR "Unrecognised statement\n"; + $CST_errors++; + } } } |