diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-06 20:33:12 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-06 20:33:12 +0000 |
| commit | 57873e7a0a66d618944dcb8eaf19be7c706928e9 (patch) | |
| tree | 539a27332c769c62536ade20f9016fd9c8691a5e /perl-install/install/any.pm | |
| parent | b8bbce1c9ffa929af0f56179527b45a8c0da62a7 (diff) | |
| download | drakx-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/any.pm')
| -rw-r--r-- | perl-install/install/any.pm | 3 |
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; |