diff --git a/netlink-html.pl b/netlink-html.pl index 6d5a834..751cef9 100755 --- a/netlink-html.pl +++ b/netlink-html.pl @@ -167,6 +167,8 @@ sub html_hier_test_head { } elsif ($hier eq "patch" && $hv->{diff}) { my $link = uri_escape($hv->{diff}, "^A-Za-z0-9\-\._~/"); $name = "$name"; + } else { + $name =~ s/.*-none$//; } print $html " $name\n"; } @@ -194,6 +196,8 @@ sub html_hier_test_head_utilization { } elsif ($hier eq "patch" && $hv->{diff}) { my $link = uri_escape($hv->{diff}, "^A-Za-z0-9\-\._~/"); $name = "$name"; + } else { + $name =~ s/.*-none$//; } print $html " <$te class=\"hier $hier\"$title>$name\n"; } @@ -554,9 +558,6 @@ sub glob_result_files { warn "Invalid subdir '$_' in result '$File::Find::name'"; return; } - foreach (values %f) { - delete $f{$1} if /(.*)-none$/; - } $f{dir} = $File::Find::dir; $f{name} = $File::Find::name; push @files, \%f;