summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-11-29 18:12:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-11-29 18:12:59 +0000
commit76f0cda177074d4887e8120d80ca5339d9daec7f (patch)
treec40a66836aee7622522712e7db1a96f9f4b4d0d2 /perl-install
parent38f7f8427f6300ccacb464a9d3b95e89d6f83ffc (diff)
downloaddrakx-76f0cda177074d4887e8120d80ca5339d9daec7f.tar
drakx-76f0cda177074d4887e8120d80ca5339d9daec7f.tar.gz
drakx-76f0cda177074d4887e8120d80ca5339d9daec7f.tar.bz2
drakx-76f0cda177074d4887e8120d80ca5339d9daec7f.tar.xz
drakx-76f0cda177074d4887e8120d80ca5339d9daec7f.zip
perl_checker compliance
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 2010c625e..f63d6d480 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -1320,7 +1320,7 @@ sub update_for_renumbered_partitions {
map_each {
$sorted_hds[$1] = fs::get::device2part($::b, $all_hds->{hds}) if $::a =~ /hd(\d+)/;
} %$grub2dev;
- };
+ }
foreach (@$renumbering) {
my ($old, $new) = @$_;