From 7fc3efcf1cc09fe28ab4f728a9b12dd52d9010a4 Mon Sep 17 00:00:00 2001 From: Tiago Salem Herrmann Date: Tue, 11 Mar 2008 20:12:51 +0000 Subject: - fixing crash when installing parallel scanner (#36387, #37039) --- perl-install/standalone/scannerdrake | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake index e120d2f78..9b2b1f800 100755 --- a/perl-install/standalone/scannerdrake +++ b/perl-install/standalone/scannerdrake @@ -65,7 +65,7 @@ Do you want to install the SANE packages?"))) { if ($::Manual) { manual(); quit() } my $wait = $in->wait_message(N("Please wait"), N("Searching for configured scanners...")); -my @c = scanner::configured(); +my @c = scanner::configured($in); $wait = undef; $wait = $in->wait_message(N("Please wait"), N("Searching for new scanners...")); @@ -77,7 +77,7 @@ if ($changed) { my $_wait = $in->wait_message(N("Please wait"), N("Re-generating list of configured scanners...")); - @c = scanner::configured(); + @c = scanner::configured($in); } mainwindow(@c); quit(); @@ -504,7 +504,7 @@ sub mainwindow { my $wait = $in->wait_message(N("Please wait"), N("Searching for configured scanners...")); - @configured = scanner::configured(); + @configured = scanner::configured($in); $wait = $in->wait_message(N("Please wait"), N("Searching for new scanners...")); @@ -530,7 +530,7 @@ sub mainwindow { my $_wait = $in->wait_message(N("Please wait"), N("Re-generating list of configured scanners...")); - @configured = scanner::configured(); + @configured = scanner::configured($in); } } else { # Cancel clicked -- cgit v1.2.1