It may be hard to tell what command triggered an error,
otherwise.
my $err = $@;
if ($err && !$self->{closed}) {
chomp($l = Dumper(\$l));
my $err = $@;
if ($err && !$self->{closed}) {
chomp($l = Dumper(\$l));
- err($self, "error from: $l $err");
+ err($self, "error from: $l ($err)");
$res = '503 program fault - command not performed';
}
return 0 unless defined $res;
$res = '503 program fault - command not performed';
}
return 0 unless defined $res;