From a419039b11d02b7ef2b7f894b199b245a7876303 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 30 Apr 2003 10:09:27 +0000
Subject: perl_checker compliance

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

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

diff --git a/perl-install/swap.pm b/perl-install/swap.pm
index 659c9da07..512c72c27 100644
--- a/perl-install/swap.pm
+++ b/perl-install/swap.pm
@@ -28,7 +28,7 @@ my $signature_format_v1 = "x1024 I I I I125"; #- bootbits, version, last_page, n
 1;
 
 sub kernel_greater_or_equal($$$) {
-    c::kernel_version() =~ /(\d*)\.(\d*)\.(\d*)/;
+    c::kernel_version() =~ /(\d*)\.(\d*)\.(\d*)/ or return;
     ($1 <=> $_[0] || $2 <=> $_[1] || $3 <=> $_[2]) >= 0;
 }
 
-- 
cgit v1.2.1