From 0aa7a9e98c3b51085c87aa13d61eef8e3f694626 Mon Sep 17 00:00:00 2001
From: pad <pad@mandriva.com>
Date: Tue, 14 Sep 1999 14:50:50 +0000
Subject: *** empty log message ***

---
 perl-install/install2.pm | 17 +++--------------
 1 file changed, 3 insertions(+), 14 deletions(-)

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

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index e28c8a9a2..e5528c8ab 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -203,19 +203,6 @@ for (my $i = 0; $i < @installSteps; $i += 2) {
     push @orderedInstallSteps, $installSteps[$i];
 }
 
-#-TOSEE bug with
-#-%installSteps = 
-#-      map_tab_hash {
-#-	   my ($i, $h)   = @_; 
-#-	   $h->{help}    = $stepsHelp{$installSteps[$i]} || __("Help");
-#-	   $h->{next}    = $installSteps[$i + 2];
-#-	   $h->{onError} = $installSteps[$i + 2 * $h->{onError}];
-#-#-          $h->{toBeDone} = []; SEMBLE FIXE les PBS
-#-#-          $h->{entered} = 0;
-#-	   push @orderedInstallSteps, $installSteps[$i];
-#-      } \@installStepsFields, @installSteps;
-#-print Dumper(\%installSteps);
-
 $installSteps{first} = $installSteps[0];
 
 #-#####################################################################################
@@ -297,7 +284,7 @@ $o = {
                  PAPERSIZE => "legal",
                  CRLF      => 0,
 
-                 DEVICE    => "/dev/dev1",
+                 DEVICE    => "/dev/lp",
 
                  REMOTEHOST => "",
                  REMOTEQUEUE => "",
@@ -546,7 +533,9 @@ sub main {
     eval { spawnShell() };
 
     $o->{prefix} = $::testing ? "/tmp/test-perl-install" : "/mnt";
+    $o->{root}   = $::testing ? "/tmp/root-perl-install" : "/";
     mkdir $o->{prefix}, 0755;
+    mkdir $o->{root}, 0755;
 
     #-  make sure we don't pick up any gunk from the outside world 
     $ENV{PATH} = "/usr/bin:/bin:/sbin:/usr/sbin:/usr/X11R6/bin:$o->{prefix}/sbin:$o->{prefix}/bin:$o->{prefix}/usr/sbin:$o->{prefix}/usr/bin:$o->{prefix}/usr/X11R6/bin";
-- 
cgit v1.2.1