From 7024ecc1cdd875190b20cb0e7c86a0f6b314bdc3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 20 Oct 1999 16:51:36 +0000
Subject: *** empty log message ***

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

(limited to 'perl-install/install_steps.pm')

diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 99d3fad49..5cdadcfee 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -352,7 +352,7 @@ sub readBootloaderConfigBeforeInstall {
 	if ($o->{bootloader}{entries}{"/boot/$image"} && $o->{packages}{$ofpkgs{$image}}{selected}) {
 	    $v = readlink "$o->{prefix}/boot/$image";
 	    if ($v) {
-		$v = "/boot/$v" if $v !~ m@/@;
+		$v = "/boot/$v" if $v !~ m|^/|;
 		if (-e "$o->{prefix}$v") {
 		    $o->{bootloader}{entries}{$v} = $o->{bootloader}{entries}{"/boot/$image"};
 		    delete $o->{bootloader}{entries}{"/boot/$image"};
-- 
cgit v1.2.1