christoph/failnix
1
Fork 0
Code Releases Activity

Fix perl import errors

Browse Source
This commit is contained in:
Christoph Urlacher
2026-06-13 21:39:50 +02:00
parent b344c55eee
commit 4ba417ebdf
8 changed files with 72 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
scripts/Queries/Results.pm
View File

@ -1,13 +1,12 @@
package Queries::Results;
package Results;
use strict;
use warnings;
use diagnostics;
use FindBin;
use lib "$FindBin::Bin/..";
use lib "$FindBin::Bin/../Modules";
use Modules::Filters;
use Filters;
use feature 'say';
@ -15,8 +14,8 @@ sub query {
my ( $experiment, $experiment_dir, $filter_config_name ) = @_;
$filter_config_name //= '';
my $extra = Modules::Filters::build_filter_clause( $experiment_dir,
$filter_config_name );
my $extra =
Filters::build_filter_clause( $experiment_dir, $filter_config_name );
my $querystring = "SELECT
benchmark, resulttype, sum(t.time2 - t.time1 + 1) AS faults
@ -39,7 +38,7 @@ sub args { return "-t"; }
sub filename {
my ($filter_config_name) = @_;
$filter_config_name //= '';
my $suffix = length($filter_config_name) ? "_filtered_$filter_config_name" : "";
my $suffix = length($filter_config_name) ? "_$filter_config_name" : "";
return "results${suffix}.txt";
}