From 8658cf3deb673be544fae0be80f88dcddb49061c Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@mandriva.org>
Date: Wed, 2 Jun 2010 11:21:42 +0000
Subject: copy all devices to target

---
 perl-install/Makefile.config |  2 +-
 perl-install/NEWS            |  3 +++
 perl-install/fs/any.pm       | 17 ++---------------
 perl-install/install/NEWS    |  4 ++++
 4 files changed, 10 insertions(+), 16 deletions(-)

diff --git a/perl-install/Makefile.config b/perl-install/Makefile.config
index 0d5de87b8..41b780123 100644
--- a/perl-install/Makefile.config
+++ b/perl-install/Makefile.config
@@ -1,5 +1,5 @@
 # -*- Makefile -*-
-VERSION:=13.31
+VERSION:=13.32
 
 SUDO        = sudo
 TMPDIR      = /tmp
diff --git a/perl-install/NEWS b/perl-install/NEWS
index 49415ffc2..3122cbc48 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,4 +1,7 @@
+Version 13.32 - 2 June 2010
+
 - don't lose mountpoint if suggested partition was swap (#59510)
+- copy all devices to target
 
 Version 13.31 - 26 May 2010
 
diff --git a/perl-install/fs/any.pm b/perl-install/fs/any.pm
index 25784ea98..50d03b656 100644
--- a/perl-install/fs/any.pm
+++ b/perl-install/fs/any.pm
@@ -97,21 +97,8 @@ sub prepare_minimal_root {
     eval { fs::mount::mount('none', "$::prefix/sys", 'sysfs') };
     eval { fs::mount::usbfs($::prefix) };
 
-    #- needed by lilo and mkinitrd
-    if (-d '/dev/mapper') {
-	my @vgs = map { $_->{VG_name} } @{$all_hds->{lvms}};
-	foreach my $dev ('mapper', @vgs) {
-	    -e "/dev/$dev" or next;
-	    cp_af("/dev/$dev", "$::prefix/dev");
-	    foreach (all("/dev/$dev")) {
-		-l "/dev/$dev/$_" or next;
-		my $target = readlink "$::prefix/dev/$dev/$_";
-		$target =~ /^\// or $target="/dev/$dev/$target";
-		-e "$::prefix$target" and next;
-		cp_af($target, "$::prefix$target");
-	    }
-	}
-    }
+    # copy all needed devices, for bootloader install and mkinitrd
+    cp_af("/dev", "$::prefix");
 }
 
 sub getAvailableSpace {
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 3b5c666ca..74b652fdb 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,7 @@
+Version 13.32 - 2 June 2010
+
+- copy all devices to target
+
 Version 13.31 - 28 May 2010
 
 - update banner to RC2
-- 
cgit v1.2.1