Fix cvs short if there is patch or modify in perform html.

bluhm · Jun 21, 2024 · c10dc9d · c10dc9d
1 parent 2a4b09c
commit c10dc9d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/perform-html.pl b/perform-html.pl
@@ -262,9 +262,9 @@ sub parse_result_files {
 	$cvsdate =~ s,^/,,;
 	my ($short, $cvsshort, $repshort) = ($date, $cvsdate, $repeat);
 	$short =~ s/T.+Z$//;
-	$cvsshort =~ s/T.+Z$//;
-	$cvsshort =~ s/patch-(.*)\.\d+$/$1/;
-	$cvsshort =~ s/modify-(.*)\.\d+$/$1/;
+	$cvsshort =~ s,T[^/]+Z,,;
+	$cvsshort =~ s,patch-([^/]*)\.\d+,$1,;
+	$cvsshort =~ s,modify-([^/]*)\.\d+,$1,;
 	$cvsshort =~ s,/, ,g;
 	$repshort =~ s/^btrace-(.*)\.\d+$/$1/ if $repeat;
 	my $reldate = "$date";