From 0ab7ebe78a682d07010cd2242748c57346cca480 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 12 Jan 2004 13:51:42 +0000 Subject: - install_steps_auto_install is not a interactive but still needs do_pkgs - so making do_pkgs a class, and interactive and install_steps will inheritate from it - do_pkgs renamed into do_pkgs_common, containing the things common to do_pkgs_during_install and do_pkgs_standalone --- perl-install/interactive.pm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'perl-install/interactive.pm') 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 #-###################################################################################### -- cgit v1.2.1