sub cleanup_eval_fail {
my ($error,$debug) = @_;
if (not defined $error or not @_) {
- $error = $@ || 'unknown reason';
+ $error = $@ // 'unknown reason';
}
if (@_ <= 1) {
- $debug = $DEBUG || 0;
+ $debug = $DEBUG // 0;
}
$debug = 0 if not defined $debug;