From 5e4db48bf41d8df2759bf4d9869263d65f75ce72 Mon Sep 17 00:00:00 2001
From: tv <tv@99302b65-d5f7-0310-b3dd-f8cd6f4e3d94>
Date: Wed, 10 Dec 2008 15:48:03 +0000
Subject: perl_checker cleanups

git-svn-id: http://svn.mandriva.com/svn/soft/draksnapshot/trunk@250361 99302b65-d5f7-0310-b3dd-f8cd6f4e3d94
---
 draksnapshot-applet | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/draksnapshot-applet b/draksnapshot-applet
index 2af1bc4..d76a1a3 100755
--- a/draksnapshot-applet
+++ b/draksnapshot-applet
@@ -48,8 +48,6 @@ my $menu;
 
 my $localfile = "$ENV{HOME}/.draksnapshot";
 
-my $insensitive_while_running_a_child;
-
 my $timeout = ($::testing ? 1 : 30) * 1000;
 
 my %state = (
@@ -102,7 +100,7 @@ if ($dbus && $do) {
                          my ($_bus, $msg) = @_; # perl_checker: Net::DBus::Binding::Message::Signal
 
                          # hide if needed (evals really are needed):
-                         if (eval { 'DeviceRemoved' eq $msg->get_member() }) {
+                         if (eval { 'DeviceRemoved' eq $msg->get_member }) {
                              firstCheck();
                              return 0;
                          }
@@ -199,7 +197,6 @@ sub refresh_gui {
     my ($sens) = @_;
     #!$conf_launched and silentCheck(); $conf_launched = 0;
     my $w = $::main_window ? $::main_window->window : undef;
-    $insensitive_while_running_a_child = !$sens;
     $sens ? gtkset_mousecursor_normal($w) : gtkset_mousecursor_wait($w);
     gtkflush();
 }
-- 
cgit v1.2.1