- 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

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
 #-######################################################################################