From 8bc507613f0b82e9172a2601018d1f488986cc11 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 14 Feb 2005 18:15:08 +0000
Subject: use real IP address

---
 perl-install/standalone/net_applet | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/standalone/net_applet')

diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet
index 68e02fc92..23f3c4a04 100644
--- a/perl-install/standalone/net_applet
+++ b/perl-install/standalone/net_applet
@@ -231,7 +231,7 @@ sub initDBus {
 sub handleAttack {
     my ($seq, $timestamp, $indev, $prefix, $sensor, $protocol, $addr, $port, $icmp_type) = @_;
 
-    my $ip_addr = join(".", unpack('C4', $addr));
+    my $ip_addr = inet_ntoa(pack('N', $addr));
     #- try to resolve address, timeout after 2 seconds
     my $hostname;
     eval {
-- 
cgit v1.2.1