summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2005-03-16 18:33:05 +0000
committerDaouda Lo <daouda@mandriva.com>2005-03-16 18:33:05 +0000
commit5f7a3859f4c500e17364960337a1461f3c8a18c6 (patch)
treeb9a15f833c6f0ab47bceba481f8be34b9507bc4a /perl-install
parente2814753600512c98f2ba0859ed95f4a2cb26bfc (diff)
downloaddrakx-5f7a3859f4c500e17364960337a1461f3c8a18c6.tar
drakx-5f7a3859f4c500e17364960337a1461f3c8a18c6.tar.gz
drakx-5f7a3859f4c500e17364960337a1461f3c8a18c6.tar.bz2
drakx-5f7a3859f4c500e17364960337a1461f3c8a18c6.tar.xz
drakx-5f7a3859f4c500e17364960337a1461f3c8a18c6.zip
- cluster without capturing
Diffstat (limited to 'perl-install')
-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 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;