summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/scannerdrake
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-02-19 15:50:14 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-02-19 15:50:14 +0000
commita7e99c1896767cf8dde512cbabc65b0655edc9b2 (patch)
tree89599b3735bf1060238e42cda2f69d35fe6011b7 /perl-install/standalone/scannerdrake
parente6e54b56dfdcac3838cbde9699c5a2321afd2917 (diff)
downloaddrakx-backup-do-not-use-a7e99c1896767cf8dde512cbabc65b0655edc9b2.tar
drakx-backup-do-not-use-a7e99c1896767cf8dde512cbabc65b0655edc9b2.tar.gz
drakx-backup-do-not-use-a7e99c1896767cf8dde512cbabc65b0655edc9b2.tar.bz2
drakx-backup-do-not-use-a7e99c1896767cf8dde512cbabc65b0655edc9b2.tar.xz
drakx-backup-do-not-use-a7e99c1896767cf8dde512cbabc65b0655edc9b2.zip
fix embedding
Diffstat (limited to 'perl-install/standalone/scannerdrake')
-rwxr-xr-xperl-install/standalone/scannerdrake7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/standalone/scannerdrake b/perl-install/standalone/scannerdrake
index bc14b8b74..5156b1a2c 100755
--- a/perl-install/standalone/scannerdrake
+++ b/perl-install/standalone/scannerdrake
@@ -19,11 +19,11 @@
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
use lib qw(/usr/lib/libDrakX);
-
+use strict;
use standalone; #- warning, standalone must be loaded very first, for 'explanations'
+use common;
use interactive;
-use common;
use scanner;
use handle_configs;
use services;
@@ -45,6 +45,7 @@ if (!files_exist('/usr/bin/scanimage',
'xsane-gimp'));
}
if ($::Manual) { manual(); quit() }
+$::CCPID and $0 !~ /logdrake/ and kill 'USR2', $::CCPID;
my $wait = $in->wait_message(N("Scannerdrake"),
N("Searching for configured scanners ..."));
my @c = scanner::configured();
@@ -233,7 +234,7 @@ sub tryConfScanner {
}
sub quit {
- $::isEmbedded ? kill('USR1', $::CCPID) : $in->exit(0);
+ $in->exit(0);
}
sub mainwindow {