summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-02-28 23:24:37 +0000
committerdamien <damien@mandriva.com>2001-02-28 23:24:37 +0000
commitea0eea9748160624c3dab2e65afbfe513a278851 (patch)
treecddcaa4d61eb8b0c80fbf228aaa1329cf1dd0ab0 /perl-install
parent227fe9f11506abe90b5f0541a191f29ab9510ea6 (diff)
downloaddrakx-backup-do-not-use-ea0eea9748160624c3dab2e65afbfe513a278851.tar
drakx-backup-do-not-use-ea0eea9748160624c3dab2e65afbfe513a278851.tar.gz
drakx-backup-do-not-use-ea0eea9748160624c3dab2e65afbfe513a278851.tar.bz2
drakx-backup-do-not-use-ea0eea9748160624c3dab2e65afbfe513a278851.tar.xz
drakx-backup-do-not-use-ea0eea9748160624c3dab2e65afbfe513a278851.zip
typo
Diffstat (limited to 'perl-install')
-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);