From 805effe05bbbffdcd5590cc28f1eba565ba1fc8e Mon Sep 17 00:00:00 2001
From: Florent Villard <warly@mandriva.com>
Date: Mon, 18 Oct 2004 16:38:33 +0000
Subject: update version checking code of crypto.pm

---
 perl-install/crypto.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/perl-install/crypto.pm b/perl-install/crypto.pm
index cf8495856..830c908cd 100644
--- a/perl-install/crypto.pm
+++ b/perl-install/crypto.pm
@@ -112,11 +112,12 @@ sub bestMirror {
 
 #- hack to retrieve Mandrakelinux version...
 sub version() {
-    require pkgs;
-    my $pkg = pkgs::packageByName($::o->{packages}, 'mandrake-release');
-    $pkg && $pkg->version || '9.1'; #- safe but dangerous ;-)
+    my $release = cat_("$::prefix/etc/mandrake-release");
+    my ($version) = $release =~ /Mandrake\s*linux.*\srelease\s+([\d.]+)/i;
+    $version || '10.0'; #- safe but dangerous ;-)
 }
 
+
 sub dir { $mirrors{$_[0]}[1] }
 sub ftp($) { ftp::new($_[0], dir($_[0])) }
 
-- 
cgit v1.2.1