tags 455901 patch thanks see attache
--- mytop 2008-04-21 12:47:11.000000000 +0400 +++ mytop 2008-04-21 12:46:06.000000000 +0400 @@ -1,4 +1,7 @@ #!/usr/bin/perl -w + +eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}' + if 0; # not running under some shell # # $Id: mytop,v 1.53 2003/09/18 17:58:36 jzawodn Exp $ @@ -952,8 +955,11 @@ { $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
signature.asc
Description: Digital signature