···

       
557
       
557
       
 
       
        system("@systemd@/bin/systemctl", "restart", "--", @unitsWithErrorHandling) == 0 or $res = 4;

     

       
558
       
558
       
 
       
    }

     

       
559
       
559
       
 
       
    if (scalar(@unitsWithoutErrorHandling) > 0) {

     

       
560
       
560
       
-
       
        system("@systemd@/bin/systemctl", "restart", "--", @unitsWithoutErrorHandling);

     

       
560
       
560
       
+
       
        # Don't print warnings from systemctl

     

       
561
       
561
       
+
       
        no warnings 'once';

     

       
562
       
562
       
+
       
        open(OLDERR, ">&", \*STDERR);

     

       
563
       
563
       
+
       
        close(STDERR);

     

       
564
       
564
       
+
       


     

       
565
       
565
       
+
       
        my $ret = system("@systemd@/bin/systemctl", "restart", "--", @unitsWithoutErrorHandling);

     

       
566
       
566
       
+
       


     

       
567
       
567
       
+
       
        # Print stderr again

     

       
568
       
568
       
+
       
        open(STDERR, ">&OLDERR");

     

       
569
       
569
       
+
       


     

       
570
       
570
       
+
       
        if ($ret ne 0) {

     

       
571
       
571
       
+
       
            print STDERR "warning: some sockets failed to restart. Please check your journal (journalctl -eb) and act accordingly.\n";

     

       
572
       
572
       
+
       
        }

     

       
561
       
573
       
 
       
    }

     

       
562
       
574
       
 
       
    unlink($restartListFile);

     

       
563
       
575
       
 
       
    unlink($restartByActivationFile);