# Remove any newlines.
chomp($line);
- # Remove any spaces at the start and end of the line.
- $line =~ s/^\s*//;
- $line =~ s/\s*$//;
-
# Check line lenght, skip it, if it is longer than, the
# allowed maximum.
my $length = length("$line");
next if ($length gt $maxlength);
+ # Remove any whitespaces.
+ $line=~ s/ //g;
+
# Splitt line into two parts.
my ($option, $value) = split (/=/, $line);