Fix convertSession error reporting (#2487)

This commit is contained in:
Maxime Besson 2021-03-15 21:17:55 +01:00
parent c0f8e8f46b
commit f98710bd34

View File

@ -91,8 +91,7 @@ for my $section (qw/sessions_from sessions_to/) {
if ( $r->{$_} =~ /^[{\[].*[}\]]$/ || $r->{$_} =~ /^sub\s*{.*}$/ ) {
eval "\$r->{$_} = $r->{$_}";
if ($@) {
print $@;
return $r;
die "Error evaluating $section/$_: $@";
}
}
}