diff options
| -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; |