From: PHO <pho@cielonegro.org>
Date: Sat, 7 Dec 2019 03:33:30 +0000 (+0900)
Subject: Change the interpreter path
X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=commitdiff_plain;ds=inline;p=ssh-agent-manager.git

Change the interpreter path
---

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;
     }