From 52e766e1c2ae988e80f272310ef794f5bc17ce4e Mon Sep 17 00:00:00 2001 From: Christoph Urlacher Date: Fri, 17 Apr 2026 22:18:02 +0200 Subject: [PATCH] fix duplicated filehandle bug --- scripts/runner.pl | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/scripts/runner.pl b/scripts/runner.pl index ce93eca..eefe3fd 100644 --- a/scripts/runner.pl +++ b/scripts/runner.pl @@ -222,6 +222,7 @@ sub inject { notify("Injecting $experiment complete."); } +# TODO: Add a function that accepts query + output file args sub results { my ($experiment) = @_; @@ -241,10 +242,11 @@ ORDER BY variant, benchmark, resulttype;"; }; 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: $!"; - print( $fhandle, $results_overview ); - close($fhandle) or die "failed to close file: $!"; + print( $results_overview_handle, $results_overview ); + close($results_overview_handle) or die "failed to close file: $!"; my $fail_markers_query = "SELECT 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; $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: $!"; - print( $fhandle, $fail_markers ); - close($fhandle) or die "failed to close file: $!"; + print( $fail_markers_handle, $fail_markers ); + close($fail_markers_handle) or die "failed to close file: $!"; } # Run experiments