From 0ed5a8bcb0beb088b7b06056d0f12dc44d79fe91 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 21 Mar 2005 11:09:30 +0000
Subject: handle new kernel flavour for i686 but non pae

---
 perl-install/detect_devices.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 0877f109a..1561fc9bb 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -860,8 +860,11 @@ sub BIGMEM() {
 sub is_i586() {
     my $cpuinfo = cat_('/proc/cpuinfo');
     $cpuinfo =~ /^cpu family\s*:\s*(\d+)/m && $1 < 6 ||
-      $cpuinfo !~ /^flags.*\bcmov\b/m ||
-      $cpuinfo !~ /^flags.*\bpae\b/m;
+      !has_cpu_flag('cmov');
+}
+sub has_cpu_flag {
+    my ($flag) = @_;
+    cat_('/proc/cpuinfo') =~ /^flags.*\b$flag\b/m;
 }
 
 sub matching_type {
-- 
cgit v1.2.1