--- Net-IRC-0.75/Connection.pm.orig	2003-12-04 23:50:16.000000000 +0100
+++ Net-IRC-0.75/Connection.pm	2004-06-03 22:37:15.028600562 +0200
@@ -237,6 +237,10 @@ sub connect {
     }
     $self->server( $ENV{IRCSERVER} );
   }
+
+  my @myhostname= gethostbyname($self->hostname());
+  $self->hostname (undef) if $myhostname[0] eq 'localhost';
+  
   unless ($self->nick) {
     $self->nick($ENV{IRCNICK} || eval { scalar getpwuid($>) }
                 || $ENV{USER} || $ENV{LOGNAME} || "WankerBot");