enable --full-trace and --check-bounds
This commit is contained in:
@ -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];
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user