···

       
35
       
35
       
 
       
    if ($pid == 0) {

     

       
36
       
36
       
 
       
        dup2(fileno($pty->slave), 0);

     

       
37
       
37
       
 
       
        dup2(fileno($stdoutW), 1);

     

       
38
       
38
       
-
       
        exec "vde_switch -s $socket" or _exit(1);

     

       
38
       
38
       
+
       
        exec "vde_switch -s $socket --dirmode 0700" or _exit(1);

     

       
39
       
39
       
 
       
    }

     

       
40
       
40
       
 
       
    close $stdoutW;

     

       
41
       
41
       
 
       
    print $pty "version\n";

     

···

       
185
       
185
       
 
       
    MONITOR_SOCKET="$(pwd)/monitor"

     

       
186
       
186
       
 
       
    WINVM_PIDFILE="$(pwd)/winvm.pid"

     

       
187
       
187
       
 
       
    CTRLVM_PIDFILE="$(pwd)/ctrlvm.pid"

     

       
188
       
188
       
-
       
    ${vde2}/bin/vde_switch -s "$QEMU_VDE_SOCKET" &

     

       
188
       
188
       
+
       
    ${vde2}/bin/vde_switch -s "$QEMU_VDE_SOCKET" --dirmode 0700 &

     

       
189
       
189
       
 
       
    echo 'alive?' | ${socat}/bin/socat - \

     

       
190
       
190
       
 
       
      UNIX-CONNECT:$QEMU_VDE_SOCKET/ctl,retry=20

     

       
191
       
191
       
 
       
  '';