Change the interpreter path

diff --git a/ssh-agent-manager b/ssh-agent-manager
index 8458522613d05d93337a838fc9848385d20c62b7..30476fce1fd4916c833742e33218cc63e5cfc895 100755 (executable)
--- a/ssh-agent-manager
+++ b/ssh-agent-manager
@@ -1,7 +1,7 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl

 # -----------------------------------------------------------------------------
 # Esta programa envuelve la ssh-agent. Devuelve los mismos pid y socket siemple
 # -----------------------------------------------------------------------------
 # 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>'.
 # -----------------------------------------------------------------------------
 # -----------------------------------------------------------------------------
 # No puede hacer `ssh-agent-manager <mandado>'.
 # -----------------------------------------------------------------------------


@@ -30,7 +30,7 @@ if ((!$csh_mode and !$bsh_mode) or
     exit;
 }
 
     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) {
 # $> 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) {
 
     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;
     }
        &serialize($info);
        exit;
     }