From c78eefb7c54a8329e2caf31cc34178357c198f9b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 1 Oct 2003 09:21:46 +0000
Subject: perl_checker compliance

---
 perl-install/bootloader.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

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';
-- 
cgit v1.2.1