summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-06-24 10:24:41 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-06-24 10:24:41 +0000
commit007b9e3d68ced086a6c23ce78b6583eabec229a0 (patch)
tree37f73863619ffcafc5500f90ca2dec242908ad76 /perl-install
parent86a3c9c4918801ee369942a84e9fde36a53c17f4 (diff)
downloaddrakx-backup-do-not-use-007b9e3d68ced086a6c23ce78b6583eabec229a0.tar
drakx-backup-do-not-use-007b9e3d68ced086a6c23ce78b6583eabec229a0.tar.gz
drakx-backup-do-not-use-007b9e3d68ced086a6c23ce78b6583eabec229a0.tar.bz2
drakx-backup-do-not-use-007b9e3d68ced086a6c23ce78b6583eabec229a0.tar.xz
drakx-backup-do-not-use-007b9e3d68ced086a6c23ce78b6583eabec229a0.zip
(read_grub) increase readibility
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootloader.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 4f6fe3284..6f10bf77c 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -88,8 +88,7 @@ sub read_grub {
foreach (cat_("$::prefix$file")) {
next if /^\s*#/ || /^\s*$/;
chomp;
- # ($_, $v) = /^\s*([^=\s]+)\s*(?:=\s*(.*?))?\s*$/ or log::l("unknown line in $file: $_"), next;
- if (! /^\s*([^\s]*)\s*(.*?)\s*$/) {
+ if (! /^\s*(\S*)\s*(.*?)\s*$/) {
print STDERR "unknown line in $file: \"", chomp_($_), "\"\n";
next;
}