summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-10-01 09:21:46 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-10-01 09:21:46 +0000
commitc78eefb7c54a8329e2caf31cc34178357c198f9b (patch)
tree74587b013377cf41bf81ef4d85b18563c66f80db /perl-install/bootloader.pm
parent9fea47a368a410d0b06a1e089e30412e296c4488 (diff)
downloaddrakx-c78eefb7c54a8329e2caf31cc34178357c198f9b.tar
drakx-c78eefb7c54a8329e2caf31cc34178357c198f9b.tar.gz
drakx-c78eefb7c54a8329e2caf31cc34178357c198f9b.tar.bz2
drakx-c78eefb7c54a8329e2caf31cc34178357c198f9b.tar.xz
drakx-c78eefb7c54a8329e2caf31cc34178357c198f9b.zip
perl_checker compliance
Diffstat (limited to 'perl-install/bootloader.pm')
-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 d790bf480..b7480dda0 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -101,7 +101,7 @@ sub read_grub() {
} elsif ($global) {
$b{$keyword} = $v eq '' ? 1 : ungrubify($v);
} else {
- $e->{root} = $1 if $v =~ s/root=([^\s]*)\s*//;
+ $e->{root} = $1 if $v =~ s/root=(\S*)\s*//;
if ($keyword eq 'kernel') {
($e->{kernel_or_dev}, $e->{append}) = split /\s+/, ungrubify($v), 2;
$e->{type} = 'image';