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
