From 48504a7d6f3f72889ecb93e6b5fce407e60f6cef Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 14 Feb 2005 17:48:18 +0000
Subject: remove some debug code

---
 perl-install/standalone/net_applet | 15 ++-------------
 1 file changed, 2 insertions(+), 13 deletions(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet
index 0dca7d17f..68e02fc92 100644
--- a/perl-install/standalone/net_applet
+++ b/perl-install/standalone/net_applet
@@ -186,23 +186,15 @@ sub setDBusWatch {
     $con->set_watch_callbacks(sub {
         my ($con, $watch) = @_;
         my $flags = $watch->get_flags;
-        #print "watch callback (enable)\n";
         if ($flags & &Net::DBus::Binding::Watch::READABLE) {
             Gtk2::Helper->add_watch($watch->get_fileno, 'in', sub {
-                #print "READABLE event\n";
                 $watch->handle(&Net::DBus::Binding::Watch::READABLE);
                 $con->dispatch;
                 1;
             });
         }
-        # do nothing for WRITABLE watch, we dispatch when needed
-    }, sub {
-        my ($con, $watch) = @_;
-        #print "watch callback (disable)\n";
-    }, sub {
-        my ($con, $watch) = @_;
-        #print "watch callback (toggle)\n";
-    });
+        #- do nothing for WRITABLE watch, we dispatch when needed
+    }, undef, undef); #- do nothing when watch is disabled or toggled yet
 }
 
 sub initDBus {
@@ -239,9 +231,6 @@ sub initDBus {
 sub handleAttack {
     my ($seq, $timestamp, $indev, $prefix, $sensor, $protocol, $addr, $port, $icmp_type) = @_;
 
-    use Data::Dumper;
-    print Dumper(\@_);
-
     my $ip_addr = join(".", unpack('C4', $addr));
     #- try to resolve address, timeout after 2 seconds
     my $hostname;
-- 
cgit v1.2.1