christoph/failnix
1
Fork 0
Code Releases Activity

fix duplicated filehandle bug

Browse Source
This commit is contained in:
Christoph Urlacher
2026-04-17 22:18:02 +02:00
parent a10f04c83e
commit 52e766e1c2
1 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
scripts/runner.pl
View File

@ -222,6 +222,7 @@ sub inject {
notify("Injecting $experiment complete."); notify("Injecting $experiment complete.");
} }
# TODO: Add a function that accepts query + output file args
sub results { sub results {
my ($experiment) = @_; my ($experiment) = @_;
@ -241,10 +242,11 @@ ORDER BY variant, benchmark, resulttype;";
}; };
die "Query failed: $?" if $? != 0; die "Query failed: $?" if $? != 0;
open( my $fhandle, '>', "$remote_builds_dir/$experiment/results.txt" ) open( my $results_overview_handle,
'>', "$remote_builds_dir/$experiment/results.txt" )
or die "failed to open file: $!"; or die "failed to open file: $!";
print( $fhandle, $results_overview ); print( $results_overview_handle, $results_overview );
close($fhandle) or die "failed to close file: $!"; close($results_overview_handle) or die "failed to close file: $!";
my $fail_markers_query = "SELECT my $fail_markers_query = "SELECT
CONCAT('0x', HEX(p.injection_instr_absolute)) AS fault_address, CONCAT('0x', HEX(p.injection_instr_absolute)) AS fault_address,
@ -264,10 +266,11 @@ ORDER BY SUM(t.time2 - t.time1 + 1) DESC;";
die "Query failed: $?" if $? != 0; die "Query failed: $?" if $? != 0;
$fail_markers =~ s/\t/,/g; $fail_markers =~ s/\t/,/g;
open( my $fhandle, '>', "$remote_builds_dir/$experiment/markers.csv" ) open( my $fail_markers_handle,
'>', "$remote_builds_dir/$experiment/markers.csv" )
or die "failed to open file: $!"; or die "failed to open file: $!";
print( $fhandle, $fail_markers ); print( $fail_markers_handle, $fail_markers );
close($fhandle) or die "failed to close file: $!"; close($fail_markers_handle) or die "failed to close file: $!";
} }
# Run experiments # Run experiments