From f6131777949414385eddec3b956ea80c5a41db20 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 5 Apr 2001 15:08:53 +0000
Subject: (kernelVersion): fix enormous stupid typo

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

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index e87116a3e..04faa525d 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -200,7 +200,7 @@ sub kernelVersion {
     if (my $link = (arch() !~ /ppc/) ?
 	readlink("$o->{prefix}/boot/vmlinuz") :
 	readlink("$o->{prefix}/boot/vmlinux")) {
-	$link =~ first(/-(.*mdk)/);
+	first($link =~ /-(.*mdk)/);
     } else {
 	require pkgs;
 	my $p = pkgs::packageByName($o->{packages}, "kernel");
-- 
cgit v1.2.1