diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-08-07 00:40:19 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-08-07 00:40:19 +0000 |
| commit | 972b04c0625714c1e42ddda1fa7731517d687332 (patch) | |
| tree | 539889faddd362e21f0cdd59389d3fdc41e04473 /perl-install/interactive.pm | |
| parent | 3e63b2073fdb46e79ea379d656f9fa7ec2395e39 (diff) | |
| download | drakx-972b04c0625714c1e42ddda1fa7731517d687332.tar drakx-972b04c0625714c1e42ddda1fa7731517d687332.tar.gz drakx-972b04c0625714c1e42ddda1fa7731517d687332.tar.bz2 drakx-972b04c0625714c1e42ddda1fa7731517d687332.tar.xz drakx-972b04c0625714c1e42ddda1fa7731517d687332.zip | |
adding http feature, mainly for standalone tools
Diffstat (limited to 'perl-install/interactive.pm')
| -rw-r--r-- | perl-install/interactive.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index 1815ab21e..16bf2ede6 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -58,6 +58,10 @@ sub new($) { sub vnew { my ($type, $su, $icon) = @_; $su = $su eq "su"; + if ($ENV{INTERACTIVE_HTTP}) { + require interactive_http; + return interactive_http->new; + } require c; if ($ENV{DISPLAY} && system('/usr/X11R6/bin/xtest') == 0) { if ($su) { |