From 675325294d4b19c819c708751dc6d6a1b71564a3 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 23 Mar 2012 19:50:48 +0000
Subject: help perl_checker

---
 perl-install/standalone/scannerdrake | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake
index da7376813..112953b27 100755
--- a/perl-install/standalone/scannerdrake
+++ b/perl-install/standalone/scannerdrake
@@ -322,6 +322,7 @@ sub tryConfScanner {
 		modules::append_to_modules_loaded_at_startup_for_all_kernels($m);
 	    }
 	}
+        undef $wait;
     }
     if ($scanner::scannerDB->{$model}{ask} =~ /DEVICE/ || !$port) {
 	$port ||= N("Auto-detect available ports");
@@ -505,7 +506,7 @@ sub mainwindow {
 		    $in->wait_message(N("Please wait"),
 				      N("Searching for new scanners..."));
 		my @f = scanner::detect(@configured);
-		$wait = undef;
+		undef $wait;
 		if (@f) { 
 		    $changed = auto();
 		}
-- 
cgit v1.2.1