summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-06 20:33:12 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-06 20:33:12 +0000
commit57873e7a0a66d618944dcb8eaf19be7c706928e9 (patch)
tree539a27332c769c62536ade20f9016fd9c8691a5e /perl-install/install
parentb8bbce1c9ffa929af0f56179527b45a8c0da62a7 (diff)
downloaddrakx-57873e7a0a66d618944dcb8eaf19be7c706928e9.tar
drakx-57873e7a0a66d618944dcb8eaf19be7c706928e9.tar.gz
drakx-57873e7a0a66d618944dcb8eaf19be7c706928e9.tar.bz2
drakx-57873e7a0a66d618944dcb8eaf19be7c706928e9.tar.xz
drakx-57873e7a0a66d618944dcb8eaf19be7c706928e9.zip
(spawnShell) do not set DISPLAY if not in Gtk installer
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/any.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index dbfa75183..a791cbbd4 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -54,7 +54,8 @@ sub spawnShell() {
return;
}
- $ENV{DISPLAY} ||= ":0"; #- why not :pp
+ #- why not :pp
+ $ENV{DISPLAY} ||= ":0" if $::o->{interactive} eq "gtk";
local *F;
sysopen F, "/dev/tty2", 2 or log::l("cannot open /dev/tty2 -- no shell will be provided: $!"), goto cant_spawn;