diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-10-01 09:21:46 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-10-01 09:21:46 +0000 |
| commit | c78eefb7c54a8329e2caf31cc34178357c198f9b (patch) | |
| tree | 74587b013377cf41bf81ef4d85b18563c66f80db /perl-install | |
| parent | 9fea47a368a410d0b06a1e089e30412e296c4488 (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/bootloader.pm | 2 |
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'; |