From d9dd97db9c7a918b4f75b9eca20a5396b811c28c Mon Sep 17 00:00:00 2001
From: PHO <pho@cielonegro.org>
Date: Sat, 7 Dec 2019 12:33:30 +0900
Subject: [PATCH] Change the interpreter path

---
 ssh-agent-manager | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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