From 6b9e889257fb9205372aba8da5004a6e912b9eb5 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 13 Sep 2007 14:29:40 +0000 Subject: get the arch from release_file --- perl-install/install/any.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/install') diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm index 7af16307b..d99940a93 100644 --- a/perl-install/install/any.pm +++ b/perl-install/install/any.pm @@ -960,9 +960,9 @@ sub find_root_parts { my $extract = sub { my ($prefix, $f, $part) = @_; chomp(my $s = cat_("$prefix$f")); - $s =~ s/\s+for\s+\S+//; - log::l("find_root_parts found $part->{device}: $s" . ($f !~ m!/etc/! ? " in special release file $f" : '')); - { release => $s, release_file => $f, part => $part }; + my $arch = $s =~ s/\s+for\s+(\S+)// && $1; + log::l("find_root_parts found $part->{device}: $s for $arch" . ($f !~ m!/etc/! ? " in special release file $f" : '')); + { release => $s, release_file => $f, part => $part, arch => $arch }; }; if ($::local_install) { -- cgit v1.2.1