···

       
22
       
 
       
use IPC::Cmd;

     

       
23
       
 
       
use Sys::Syslog qw(:standard :macros);

     

       
24
       
 
       
use Cwd qw(abs_path);

     

       
0
       
 
       

     

       
25
       
 
       


     

       
26
       
 
       
## no critic(ControlStructures::ProhibitDeepNests)

     

       
27
       
 
       
## no critic(ErrorHandling::RequireCarping)

     
···

       
91
       
 
       
}

     

       
92
       
 
       


     

       
93
       
 
       
make_path("/run/nixos", { mode => oct(755) });

     

       
0
       
 
       

     

       
0
       
 
       

     

       
94
       
 
       
openlog("nixos", "", LOG_USER);

     

       
95
       
 
       


     

       
96
       
 
       
# Install or update the bootloader.

     
···

       
985
       
 
       
    syslog(LOG_ERR, "switching to system configuration $toplevel failed (status $res)");

     

       
986
       
 
       
}

     

       
987
       
 
       


     

       
0
       
 
       

     

       
988
       
 
       
exit($res);

     

···

       
22
       
 
       
use IPC::Cmd;

     

       
23
       
 
       
use Sys::Syslog qw(:standard :macros);

     

       
24
       
 
       
use Cwd qw(abs_path);

     

       
25
       
+
       
use Fcntl ':flock';

     

       
26
       
 
       


     

       
27
       
 
       
## no critic(ControlStructures::ProhibitDeepNests)

     

       
28
       
 
       
## no critic(ErrorHandling::RequireCarping)

     
···

       
92
       
 
       
}

     

       
93
       
 
       


     

       
94
       
 
       
make_path("/run/nixos", { mode => oct(755) });

     

       
95
       
+
       
open(my $stc_lock, '>>', '/run/nixos/switch-to-configuration.lock') or die "Could not open lock - $!";

     

       
96
       
+
       
flock($stc_lock, LOCK_EX) or die "Could not acquire lock - $!";

     

       
97
       
 
       
openlog("nixos", "", LOG_USER);

     

       
98
       
 
       


     

       
99
       
 
       
# Install or update the bootloader.

     
···

       
988
       
 
       
    syslog(LOG_ERR, "switching to system configuration $toplevel failed (status $res)");

     

       
989
       
 
       
}

     

       
990
       
 
       


     

       
991
       
+
       
close($stc_lock) or die "Could not close lock - $!";

     

       
992
       
 
       
exit($res);