enable --full-trace and --check-bounds

This commit is contained in:
2026-04-24 15:27:11 +02:00
parent 5aab319424
commit 1257534a64
3 changed files with 5 additions and 7 deletions

View File

@ -252,7 +252,7 @@ sub select_experiment {
push @exp_with_notes,
( defined $info && length($info) > 0 )
? sprintf( "%-50s (Note: %s)", $exp, $info )
? sprintf( "%-50s (%s)", $exp, $info )
: $exp;
}
@ -260,7 +260,7 @@ sub select_experiment {
TUI::select_from_list( "Select Experiment", $multi, @exp_with_notes );
die "No experiment selected" unless @selected_experiments;
map { s/(.*?)\s+\(Note:.+\)$/$1/ } @selected_experiments;
map { s/(.*?)\s+\(.+\)$/$1/ } @selected_experiments;
return $multi == 1 ? @selected_experiments : $selected_experiments[0];
}