diff options
Diffstat (limited to 'perl-install/interactive.pm')
| -rw-r--r-- | perl-install/interactive.pm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index cb6f3c74a..b1d3c8034 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -8,6 +8,7 @@ use strict; #-###################################################################################### use MDK::Common::Func; use common; +use do_pkgs; #- minimal example using interactive: # @@ -77,6 +78,8 @@ use common; #-###################################################################################### #- OO Stuff #-###################################################################################### +our @ISA = qw(do_pkgs); + sub new($) { my ($type) = @_; @@ -119,12 +122,6 @@ sub resume {} sub end {} sub exit { exit($_[0]) } -sub do_pkgs { - my ($in) = @_; - require do_pkgs; - do_pkgs->vnew($in); -} - #-###################################################################################### #- Interactive functions #-###################################################################################### |