christoph/failnix
1
Fork 0
Code Releases Activity

add success check to file writing

Browse Source
This commit is contained in:
Christoph Urlacher
2026-04-17 22:27:36 +02:00
parent c3ada55395
commit ca405f953b
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
scripts/runner.pl
View File

@ -46,7 +46,7 @@ sub update_db_config {
my @lines;
my $found = 0;
while ( my $line = <$readhandle> ) {
if ( $line =~ /^database=/ ) {
if ( rindex( $line, "database=", 0 ) == 0 ) {
$line = "database=${db_prefix}_$experiment\n";
$found = 1;
}
@ -54,12 +54,15 @@ sub update_db_config {
}
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"
unless $found;
open( my $writehandle, '>', $remote_db_conf )
or die "failed to open db.conf: $!";
print( $writehandle, @lines );
print( $writehandle, @lines ) or die "failed to write db.conf: $!";
close($writehandle) or die "failed to close db.conf: $!";
say "Updated db.conf for database $db_prefix\_$experiment";