my $parse_error = sub {
my ($err) = @_;
- die "parse error in '$filename': $line - $err";
+ warn "parse error in '$filename': $line - $err\n";
};
if ($line =~ m/^(\S+)\s+(.+)\s*$/) {
my $parse_error = sub {
my ($err) = @_;
- die "parse error in '$filename': $line - $err";
+ warn "parse error in '$filename': $line - $err\n";
};
if ($line =~ m/^(\S+) reject_plaintext_session$/) {