diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-06-24 10:24:41 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-06-24 10:24:41 +0000 |
| commit | 007b9e3d68ced086a6c23ce78b6583eabec229a0 (patch) | |
| tree | 37f73863619ffcafc5500f90ca2dec242908ad76 /perl-install | |
| parent | 86a3c9c4918801ee369942a84e9fde36a53c17f4 (diff) | |
| download | drakx-007b9e3d68ced086a6c23ce78b6583eabec229a0.tar drakx-007b9e3d68ced086a6c23ce78b6583eabec229a0.tar.gz drakx-007b9e3d68ced086a6c23ce78b6583eabec229a0.tar.bz2 drakx-007b9e3d68ced086a6c23ce78b6583eabec229a0.tar.xz drakx-007b9e3d68ced086a6c23ce78b6583eabec229a0.zip | |
(read_grub) increase readibility
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootloader.pm | 3 |
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; } |