diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-11-22 01:56:47 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-11-22 01:56:47 +0000 |
| commit | 3fbb4389df3ddeecd4fcd645591a3d90a47de373 (patch) | |
| tree | 8f1547576b7dcbb2678e5aac7516d3e22e5169ec /perl-install/interactive.pm | |
| parent | c942786c119d41faaa03357ddeb5bea338867727 (diff) | |
| download | drakx-backup-do-not-use-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar drakx-backup-do-not-use-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar.gz drakx-backup-do-not-use-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar.bz2 drakx-backup-do-not-use-3fbb4389df3ddeecd4fcd645591a3d90a47de373.tar.xz drakx-backup-do-not-use-3fbb4389df3ddeecd4fcd645591a3d90a47de373.zip | |
no_comment
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 |