# If an error message is returned, exit and print the error message.
} else {
- die "Invalid configuration: $error\n";
+ die "Invalid configuration: $error";
}
}
# Check if the configfile exists and is read-able.
unless (-r "$file") {
- die "The given configfile ($file) does not exist, or is not read-able: $!\n";
+ die "The given configfile ($file) does not exist, or is not read-able: $!";
}
# Open the config file and read-in all configuration options and values.
- open(CONF, "$file") or die "Could not open $file: $!\n";
+ open(CONF, "$file") or die "Could not open $file: $!";
# Process line by line.
while (my $line = <CONF>) {