From 5f7a3859f4c500e17364960337a1461f3c8a18c6 Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Wed, 16 Mar 2005 18:33:05 +0000
Subject: - cluster without capturing

---
 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 1dc311adc..96142670a 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -279,7 +279,7 @@ sub read_lilo() {
 	next if /^\s*#/ || /^\s*$/;
 	($_, $v) = /^\s*([^=\s]+)\s*(?:=\s*(.*?))?\s*$/ or log::l("unknown line in $file: $_"), next;
 
-	if (/^(image|other|macos|macosx|bsd|darwin)$/) {
+	if (/^(?:image|other|macos|macosx|bsd|darwin)$/) {
 	    $v = yaboot2file($v) if arch() =~ /ppc/;
 	    push @{$b{entries}}, $e = { type => $_, kernel_or_dev => $v };
 	    $global = 0;
-- 
cgit v1.2.1