The first field of a platform name (tester login) may contain other characters than [a-z].

This commit is contained in:
Laurent Rineau 2010-12-10 12:01:58 +00:00
parent fc581ab7a8
commit da56cdfb37
1 changed files with 1 additions and 1 deletions

View File

@ -443,7 +443,7 @@ EOF
print OUTPUT "<tr>\n<td><a name=\"platform$pf_num_plus_one\">$pf_no</a>\n"; print OUTPUT "<tr>\n<td><a name=\"platform$pf_num_plus_one\">$pf_no</a>\n";
$pf_no++; $pf_no++;
# my $pf_short = join('_',parse_platform_2($pf)); # my $pf_short = join('_',parse_platform_2($pf));
(my $pf_short) = ($pf =~ m/[a-z]+_(.*)/); (my $pf_short) = ($pf =~ m/_(.*)/);
print OUTPUT "<td><a href=\"$release_name/Installation/TestReport_$pf.gz\">$pf_short</a>"; print OUTPUT "<td><a href=\"$release_name/Installation/TestReport_$pf.gz\">$pf_short</a>";
($platform_is_64bits{$pf}) = ($pf =~ m/(x86[-_]64)/); ($platform_is_64bits{$pf}) = ($pf =~ m/(x86[-_]64)/);