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 | c6faf0f25be19638f1be1ec88598a702eb45e006 (patch) | |
| tree | 539a27332c769c62536ade20f9016fd9c8691a5e /perl-install/install/any.pm | |
| parent | 253c17cb87e4b2e163a7ec148446705fbed0e6b0 (diff) | |
| download | drakx-backup-do-not-use-c6faf0f25be19638f1be1ec88598a702eb45e006.tar drakx-backup-do-not-use-c6faf0f25be19638f1be1ec88598a702eb45e006.tar.gz drakx-backup-do-not-use-c6faf0f25be19638f1be1ec88598a702eb45e006.tar.bz2 drakx-backup-do-not-use-c6faf0f25be19638f1be1ec88598a702eb45e006.tar.xz drakx-backup-do-not-use-c6faf0f25be19638f1be1ec88598a702eb45e006.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; |