diff options
Diffstat (limited to 'perl-install/interactive.pm')
| -rw-r--r-- | perl-install/interactive.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index 45f3cea66..a71f27197 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -38,6 +38,17 @@ sub new($) { bless {}, ref $type || $type; } +sub vnew { + if (c::Xtest($ENV{DISPLAY} ||= ":0")) { + require 'interactive_gtk.pm'; + interactive_gtk->new; + } else { + undef *log::l; + *log::l = sub {}; # otherwise, it will bother us :( + require 'interactive_newt.pm'; + interactive_newt->new; + } +} #-###################################################################################### #- Interactive functions |