next;
};
/^#/ and next;
- /^(.+)$/ and print "WARNING: can't parse line: $1\n";
+ /^(.+)$/ and warn "WARNING: can't parse line: $1\n";
}
return \%config;
}
my %config;
foreach my $config (keys %$cfg2) {
- if (!$cfg1->{$config} or $cfg1->{$config} ne $cfg2->{$config}) {
+ if (!defined($cfg1->{$config}) or $cfg1->{$config} ne $cfg2->{$config}) {
$config{$config} = $cfg2->{$config};
}
}