From 0ab7ebe78a682d07010cd2242748c57346cca480 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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/do_pkgs.pm | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

(limited to 'perl-install/do_pkgs.pm')

diff --git a/perl-install/do_pkgs.pm b/perl-install/do_pkgs.pm
index baf96b7f0..bbcacb620 100644
--- a/perl-install/do_pkgs.pm
+++ b/perl-install/do_pkgs.pm
@@ -1,4 +1,12 @@
 package do_pkgs; # $Id$
+
+sub do_pkgs {
+    my ($in) = @_;
+    ($::isInstall ? 'do_pkgs_during_install' : 'do_pkgs_standalone')->new($in);
+}
+
+################################################################################
+package do_pkgs_common;
 use common;
 
 sub new {
@@ -6,11 +14,6 @@ sub new {
     bless { in => $in }, $type;
 }
 
-sub vnew {
-    my ($_type, $in) = @_;
-    ($::isInstall ? 'do_pkgs_during_install' : 'do_pkgs_standalone')->new($in);
-}
-
 sub ensure_is_installed {
     my ($do, $pkg, $file, $b_auto) = @_;
 
@@ -36,7 +39,7 @@ package do_pkgs_during_install;
 use run_program;
 use common;
 
-our @ISA = qw(do_pkgs);
+our @ISA = qw(do_pkgs_common);
 
 sub new {
     my ($type, $in) = @_;
@@ -118,7 +121,7 @@ use run_program;
 use common;
 use log;
 
-our @ISA = qw(do_pkgs);
+our @ISA = qw(do_pkgs_common);
 
 sub install {
     my ($do, @l) = @_;
-- 
cgit v1.2.1