christoph/failnix
1
Fork 0
Code Releases Activity

fix print to filehandle bug

Browse Source
This commit is contained in:
Christoph Urlacher
2026-04-17 22:33:56 +02:00
parent ca405f953b
commit 038660c969
1 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
scripts/runner.pl
View File

@ -54,15 +54,12 @@ sub update_db_config {
} }
close($readhandle) or die "failed to close db.conf: $!"; close($readhandle) or die "failed to close db.conf: $!";
say "Sanity check:";
say @lines;
die "no database= line found in $remote_db_conf for some reason" die "no database= line found in $remote_db_conf for some reason"
unless $found; unless $found;
open( my $writehandle, '>', $remote_db_conf ) open( my $writehandle, '>', $remote_db_conf )
or die "failed to open db.conf: $!"; or die "failed to open db.conf: $!";
print( $writehandle, @lines ) or die "failed to write db.conf: $!"; print $writehandle @lines or die "failed to write db.conf: $!";
close($writehandle) or die "failed to close db.conf: $!"; close($writehandle) or die "failed to close db.conf: $!";
say "Updated db.conf for database $db_prefix\_$experiment"; say "Updated db.conf for database $db_prefix\_$experiment";
@ -253,7 +250,7 @@ ORDER BY variant, benchmark, resulttype;";
open( my $results_overview_handle, open( my $results_overview_handle,
'>', "$remote_builds_dir/$experiment/results.txt" ) '>', "$remote_builds_dir/$experiment/results.txt" )
or die "failed to open file: $!"; or die "failed to open file: $!";
print( $results_overview_handle, $results_overview ); print $results_overview_handle $results_overview;
close($results_overview_handle) 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
@ -277,7 +274,7 @@ ORDER BY SUM(t.time2 - t.time1 + 1) DESC;";
open( my $fail_markers_handle, open( my $fail_markers_handle,
'>', "$remote_builds_dir/$experiment/markers.csv" ) '>', "$remote_builds_dir/$experiment/markers.csv" )
or die "failed to open file: $!"; or die "failed to open file: $!";
print( $fail_markers_handle, $fail_markers ); print $fail_markers_handle $fail_markers;
close($fail_markers_handle) or die "failed to close file: $!"; close($fail_markers_handle) or die "failed to close file: $!";
} }