sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed some typos.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-01-17 00:25:52 -07:00
1 parent 7a096c59b6
commit b19c7ba028
1 file changed
+3 -3
Download Patch File Download Diff File Expand all files Collapse all files
bin/auto
+3 -3
View File
@@ -46,15 +46,15 @@ if (defined $ARGV[0]) {
# Parse configuration file. # Parse configuration file.
println "* Parsing configuration file auto.conf..."; println "* Parsing configuration file auto.conf...";
our $CONF = Parser::Config->new("auto.conf") or errc(2, "Failed to parse configuration file!", 1); our $CONF = Parser::Config->new("auto.conf") or err(2, "Failed to parse configuration file!", 1);
our %SETTINGS = $CONF->parse or errc(2, "Failed to parse configuration file!", 1); our %SETTINGS = $CONF->parse or err(2, "Failed to parse configuration file!", 1);
println "Success"; println "Success";
# Check for required configuration values. # Check for required configuration values.
my @REQCVALS = qw(locale); my @REQCVALS = qw(locale);
foreach my $REQCVAL (@REQCVALS) { foreach my $REQCVAL (@REQCVALS) {
if (!conf_get($REQCVAL)) { if (!conf_get($REQCVAL)) {
errc(2, "Missing required configuration value: $REQCVAL", 1); err(2, "Missing required configuration value: $REQCVAL", 1);
} }
} }
undef @REQCVALS; undef @REQCVALS;