From 9186647ea5fd7505f6920c2debfd4f9e2000458f 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/finish-install | 1 +
 perl-install/standalone/scannerdrake   | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install
index 9264436ad..a57c42a63 100755
--- a/perl-install/standalone/finish-install
+++ b/perl-install/standalone/finish-install
@@ -245,6 +245,7 @@ sub encrypt_home {
 
     run_program::rooted($::prefix, 'umount', $home);
     run_program::rooted($::prefix, 'cryptsetup', 'luksClose', $user->{name});
+    undef $wait;
 }
 
 sub call {
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