From 2b945c8178c4ae57d592c199a24f09ff7e0812ec Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 9 Aug 1999 08:23:57 +0000
Subject: *** empty log message ***

---
 perl-install/install_steps_interactive.pm | 19 +++----------------
 1 file changed, 3 insertions(+), 16 deletions(-)

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

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index f3fabc985..2ea2d84b8 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -33,13 +33,13 @@ use lang;
 use log;
 
 1;
+=cut
 
 sub errorInStep($$) {
     my ($o, $err) = @_;
     $o->ask_warn(_("Error"), [ _("An error occured"), $err ]);
 }
 
-=cut
 sub chooseLanguage($) {
     my ($o) = @_;
     lang::text2lang($o->ask_from_list("Language",
@@ -79,20 +79,6 @@ sub choosePartitionsToFormat($$) {
     }
 }
 
-sub installPackages {
-    my $o = shift;
-
-    my $old = \&log::ld;
-    local *log::ld = sub { 
-	my $m = shift;
-	if ($m =~ /^starting installing/) {
-	    my $name = first($_[0] =~ m|([^/]*)-.+?-|);
-	    print("installing package $name");
-	} else { goto $old }
-    };    
-    $o->SUPER::installPackages(@_);
-}
-
 sub createBootdisk($) {
     my ($o) = @_;
     
@@ -114,7 +100,7 @@ sub setupBootloader($) {
     
     $o->SUPER::setupBootloader;
 }
-=cut
+
 sub exitInstall { 
     my ($o) = @_;
     $o->ask_warn('',
@@ -126,3 +112,4 @@ Information on configuring your system is available in the post
 install chapter of the Official Linux Mandrake User's Guide.");
 }
 
+=cut
-- 
cgit v1.2.1