===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/ssh/Attic/auth-krb4.c,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- src/usr.bin/ssh/Attic/auth-krb4.c	1999/11/14 22:58:44	1.7
+++ src/usr.bin/ssh/Attic/auth-krb4.c	1999/11/15 00:42:00	1.8
@@ -6,7 +6,7 @@
 
    Kerberos v4 authentication and ticket-passing routines.
 
-   $Id: auth-krb4.c,v 1.7 1999/11/14 22:58:44 markus Exp $
+   $Id: auth-krb4.c,v 1.8 1999/11/15 00:42:00 markus Exp $
 */
 
 #include "includes.h"
@@ -89,8 +89,10 @@
     debug("getsockname failed: %.100s", strerror(errno));
   r = sizeof(foreign);
   memset(&foreign, 0, sizeof(foreign));
-  if (getpeername(s, (struct sockaddr *)&foreign, &r) < 0)
+  if (getpeername(s, (struct sockaddr *)&foreign, &r) < 0) {
     debug("getpeername failed: %.100s", strerror(errno));
+    fatal_cleanup();
+  }
   
   instance[0] = '*'; instance[1] = 0;