From 4957f65d1a03e6b99af03f241024a794b8c237ae Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 27 Feb 2003 10:16:01 +0000
Subject: change default version to 9.1

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

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

diff --git a/perl-install/crypto.pm b/perl-install/crypto.pm
index 4e4160b80..927a7de15 100644
--- a/perl-install/crypto.pm
+++ b/perl-install/crypto.pm
@@ -101,10 +101,10 @@ sub bestMirror {
 sub version {
     require pkgs;
     my $pkg = pkgs::packageByName($::o->{packages}, 'mandrake-release');
-    $pkg && $pkg->version || '9.0'; #- safe but dangerous ;-)
+    $pkg && $pkg->version || '9.1'; #- safe but dangerous ;-)
 }
 
-sub dir { $mirrors{$_[0]}[1] . '/' . version() }
+sub dir { $mirrors{$_[0]}[1] . ($::corporate && '/corporate' || '') . '/' . version() }
 sub ftp($) { ftp::new($_[0], dir($_[0])) }
 
 sub getFile {
-- 
cgit v1.2.1