with-authinfo-kludge: Fix some bogus whitespace.

[with-authinfo-kludge] / with-authinfo-kludge

diff --git a/with-authinfo-kludge b/with-authinfo-kludge
index 47660a4..3cdefe3 100755 (executable)
--- a/with-authinfo-kludge
+++ b/with-authinfo-kludge
@@ -21,7 +21,7 @@
 ### along with this program; if not, write to the Free Software Foundation,
 ### Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
-my $VERSION = "0.1.0~unfinished";
+my $VERSION = "0.1.0";
 
 use strict;
 
@@ -669,8 +669,8 @@ sub server_listen ($) {
 
     ## The `-L' option sets up the tunnel that we actually wanted.  The `-v'
     ## makes SSH spew stuff to stdout, which might be useful if you're
-    ## debugging.  .  The `-S' detaches OpenSSH from any control master
-    ## things which might be going on, because they tend to interfere with
+    ## debugging.  The `-S' detaches OpenSSH from any control master things
+    ## which might be going on, because they tend to interfere with
     ## forwarding (and, besides, the existing master won't be under the same
     ## noip configuration).  The `echo' will let us know that it's started
     ## up, and the `read' will keep the tunnel open until we close our end,
@@ -728,7 +728,7 @@ sub wait_for_ssh () {
     my ($n, $t) = select my $rfd_out = $rfd_in, undef, undef, undef;
     if ($n >= 0) { }
     elsif ($! == EINTR) { next SELECT; }
-    else {  sysfail "select failed: $!"; }
+    else { sysfail "select failed: $!"; }
     FD: for my $fd (keys %fd) {
       next FD unless vec $rfd_out, $fd, 1;
       my ($sk, $s) = @{$fd{$fd}};
@@ -799,7 +799,7 @@ sub accept_loop () {
     my ($n, $t) = select my $rfd_out = $rfd_in, undef, undef, undef;
     if ($n >= 0) { }
     elsif ($! == EINTR) { next SELECT; }
-    else {  sysfail "select failed: $!"; }
+    else { sysfail "select failed: $!"; }
     FD: for my $fd (keys %SERVMAP) {
       next FD unless vec $rfd_out, $fd, 1;
       my ($s, $a, $sk) = @{$SERVMAP{$fd}};