(refresh_gui) perl_checker cleanup

1 files changed, 1 insertions, 1 deletions

diff --git a/mdkapplet b/mdkapplet
index 40d2e91f..d7c8f428 100755
--- a/mdkapplet
+++ b/mdkapplet
@@ -194,7 +194,7 @@ sub fork_exec {
 sub refresh_gui {
     my ($sens) = @_;
     !$conf_launched and silentCheck(); $conf_launched = 0;
-    my $w = $::main_window->window if $::main_window;
+    my $w = $::main_window ? $::main_window->window : undef;
     $insensitive_while_running_a_child = !$sens;
     $sens ? gtkset_mousecursor_normal($w) : gtkset_mousecursor_wait($w);
     $MW_vbox and $MW_vbox->set_sensitive($sens);