summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/bootlook.pm4
-rwxr-xr-xperl-install/standalone/draknet2
2 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index a471f1a68..436d9ac82 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -217,7 +217,7 @@ if ($a_mode) {
}
Gtk->main_iteration while Gtk->events_pending;
-kill USR2, $::CCPID;
+$::isEmbedded and kill USR2, $::CCPID;
Gtk->main;
#-------------------------------------------------------------
# get user names to put in combo
@@ -227,7 +227,7 @@ sub parse_etc_passwd
{
setpwent();
do {
- @user_info = getpwent();
+ @user_info = getpwent();
my ($uname, $uid) = @user_info[0,2];
print "$user_info[0]";
if ($uid == 0 || $uid >500){
diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet
index 0454f087e..c93f67cd9 100755
--- a/perl-install/standalone/draknet
+++ b/perl-install/standalone/draknet
@@ -331,6 +331,8 @@ $combo1->entry->signal_connect( 'changed', sub {
});
$window1->show_all();
+Gtk->main_iteration while Gtk->events_pending;
+$::isEmbedded and kill USR2, $::CCPID;
Gtk->main;
Gtk->exit(0);