christoph/failnix
1
Fork 0
Code Releases Activity

use qualified names for module functions

Browse Source
This commit is contained in:
Christoph Urlacher
2026-04-19 12:45:46 +02:00
parent f729cfbcd2
commit d345745962
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
scripts/runner.pl
View File

@ -7,7 +7,7 @@ use diagnostics;
use FindBin; use FindBin;
use lib $FindBin::Bin; use lib $FindBin::Bin;
use Util qw(notify notify_file execute_query find_subdirs); use Util;
use feature 'say'; use feature 'say';
@ -74,12 +74,12 @@ sub cpu_count {
# readdir($dhandle); # readdir($dhandle);
# closedir($dhandle); # closedir($dhandle);
my @experiments = find_subdirs($remote_builds_dir); my @experiments = Util::find_subdirs($remote_builds_dir);
sub trace { sub trace {
my ($experiment) = @_; my ($experiment) = @_;
notify("Tracing $experiment..."); Util::notify("Tracing $experiment...");
system( system(
join " ", join " ",
@ -107,7 +107,7 @@ sub trace {
sub import_trace { sub import_trace {
my ($experiment) = @_; my ($experiment) = @_;
notify("Importing $experiment trace..."); Util::notify("Importing $experiment trace...");
system( system(
join " ", join " ",
@ -208,7 +208,7 @@ sub inject {
# my $count = 1; # my $count = 1;
my $count = cpu_count(); my $count = cpu_count();
notify("Injecting $experiment using $count cores..."); Util::notify("Injecting $experiment using $count cores...");
say "Forking..."; say "Forking...";
my $pid = fork(); my $pid = fork();
@ -295,11 +295,11 @@ sub inject {
sub results { sub results {
my ($experiment) = @_; my ($experiment) = @_;
notify("Querying $experiment..."); Util::notify("Querying $experiment...");
execute_query( $experiment, "Results", $remote_db_conf, Util::execute_query( $experiment, "Results", $remote_db_conf,
$remote_builds_dir ); $remote_builds_dir );
execute_query( $experiment, "FaultsFailed", $remote_db_conf, Util::execute_query( $experiment, "FaultsFailed", $remote_db_conf,
$remote_builds_dir ); $remote_builds_dir );
# my $results_overview_query = "SELECT # my $results_overview_query = "SELECT