# remove any trailing whitespace
s/^\s*(.*?)\s*$/$1/;
- ($key, $value) = split /=/, $_, 2;
+ ($key, $value) = split(/=/, $_, 2);
if (($key eq "stylesheet") && ($value eq "sql-ledger.css")) {
$value = "lx-office-erp.css";
while (<FH>) {
if (/^dbname=/) {
- my ($null, $item) = split /=/;
+ my ($null, $item) = split(/=/);
push @dbexcl, $item;
}
}