$OpenBSD: patch-mytop,v 1.1 2012/03/08 09:30:59 giovanni Exp $
--- mytop.orig	Sat Feb 17 05:57:46 2007
+++ mytop	Tue Feb 28 13:18:20 2012
@@ -153,7 +153,7 @@ GetOptions(
     "idle|i"              => \$config{idle},
     "resolve|r"           => \$config{resolve},
     "prompt!"             => \$config{prompt},
-    "long|!"              => \$config{long_nums},
+    "long!"               => \$config{long_nums},
     "mode|m=s"            => \$config{mode},
     "sort=s"              => \$config{sort},
 );
@@ -952,8 +952,10 @@ sub GetData()
         {
             $thread->{Host} =~ s/:\d+$//;
             my $host = gethostbyaddr(inet_aton($thread->{Host}), AF_INET);
-            $host =~ s/^([^.]+).*/$1/;
-            $thread->{Host} = $host;
+            if ($host) {	
+               $host =~ s/^([^.]+).*/$1/;
+               $thread->{Host} = $host;
+            }
         }
 
         ## Fix possible undefs
