summaryrefslogtreecommitdiffstats
path: root/perl-install/bootlook.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/bootlook.pm')
-rw-r--r--perl-install/bootlook.pm4
1 files changed, 2 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){