diff options
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/printerdrake | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake index a6f0abff8..53f49034a 100755 --- a/perl-install/standalone/printerdrake +++ b/perl-install/standalone/printerdrake @@ -49,9 +49,8 @@ my $printer; my $in = 'interactive'->vnew('su', if_(!$::isEmbedded, 'printer-mdk')); -my $commandline = $_; -exit 0 unless printer::printerdrake::first_time_dialog($printer, $in); +my $commandline = $_; # Data structure for GTK2 main window my $us = {}; @@ -88,6 +87,10 @@ my $w = $in->wait_message(N("Printerdrake"), # Get what was installed before eval { $printer = printer::main::getinfo('') }; +undef $w; + +exit 0 unless printer::printerdrake::first_time_dialog($printer, $in); + # Were we in expert mode last time? $printer->{expert} = printer::main::get_usermode(); @@ -106,8 +109,6 @@ $commandline =~ /-lprng/ and $commandline =~ /-pdq/ and $printer->{SPOOLER} = 'pdq' and printer::main::read_configured_queues($printer); -undef $w; - if ($::isInstall) { # Interactive main window for installation printer::printerdrake::main($printer, $in, 1); |