X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=ssh-agent-manager.git;a=blobdiff_plain;f=ssh-agent-manager;fp=ssh-agent-manager;h=30476fce1fd4916c833742e33218cc63e5cfc895;hp=8458522613d05d93337a838fc9848385d20c62b7;hb=d9dd97db9c7a918b4f75b9eca20a5396b811c28c;hpb=695ef3f0f34641191fae3c7ef8f4e01dd6d3210d

diff --git a/ssh-agent-manager b/ssh-agent-manager
index 8458522..30476fc 100755
--- 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
-# 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;
     }