Change the interpreter path master
authorPHO <pho@cielonegro.org>
Sat, 7 Dec 2019 03:33:30 +0000 (12:33 +0900)
committerPHO <pho@cielonegro.org>
Sat, 7 Dec 2019 03:33:30 +0000 (12:33 +0900)
ssh-agent-manager

index 8458522613d05d93337a838fc9848385d20c62b7..30476fce1fd4916c833742e33218cc63e5cfc895 100755 (executable)
@@ -1,7 +1,7 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 # -----------------------------------------------------------------------------
 # Esta programa envuelve la ssh-agent. Devuelve los mismos pid y socket siemple
-# durante la ssh-agent está viva.
+# durante la ssh-agent está viva.
 # -----------------------------------------------------------------------------
 # No puede hacer `ssh-agent-manager <mandado>'.
 # -----------------------------------------------------------------------------
@@ -30,7 +30,7 @@ if ((!$csh_mode and !$bsh_mode) or
     exit;
 }
 
-# lee /tmp/ssh-agent-info si ése existe.
+# lee /tmp/ssh-agent-info si ése existe.
 # $> es la uid efectiva.
 my $infofile = IO::File->new("/tmp/ssh-agent-info.$>", 'r');
 if ($infofile) {
@@ -40,7 +40,7 @@ if ($infofile) {
 
     my $pid = $info->{'SSH_AGENT_PID'};
     if ($pid and kill(0, $pid) == 1) {
-       # ssh-agent está aún viva.
+       # ssh-agent está aún viva.
        &serialize($info);
        exit;
     }