improve platform options handling and clean up OS formatting

This commit is contained in:
Nicolas Saillant 2024-12-12 11:10:26 +01:00
parent ab02480ff0
commit 81932f1083
2 changed files with 3 additions and 4 deletions

View File

@ -320,8 +320,6 @@ sub sort_pf {
$platform_b = $platform;
my $os_a = $platforms_info{$platform_a}->{operating_system} // '';
my $os_b = $platforms_info{$platform_b}->{operating_system} // '';
$os_a =~ s/"//g;
$os_b =~ s/"//g;
return $os_a cmp $os_b;
}
@ -740,7 +738,7 @@ sub get_warnings_and_errors {
}
sub create_summary_page {
my $platform_options = join("\n", map { "<option value=\"$_\">$_</option>" } @platforms_to_do);
my $platform_options = join("\n", map { "<option value=\"$_\">$platforms_info{$_}->{platform_name}</option>" } @platforms_to_do);
my $test_directory;
my @letters = ('r', 'n', 'w', 'o');
my $letters_options = join("\n", map { "<option value=\"$_\">$_</option>" } @letters);

View File

@ -89,7 +89,8 @@ sub reformat_results($)
$COMPILER = $1;
}
if (/-- Operating system: (.*)/) {
$OS = "$OS $1";
$OS = $1;
$OS =~ s/"//g;
}
if (/^TESTER_NAME\s+(.*)$/) {
$TESTER_NAME = $1;