diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-24 19:00:12 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-24 19:00:12 +0000 |
| commit | 73c851144720e28b21a491b6250385170db9d752 (patch) | |
| tree | dcc9fae4302b3d083ad7cc7a808e5d17f970bb8c /perl-install/crypto.pm | |
| parent | 0dc3338257439d2265c1eb13c3a66c9431c88cb5 (diff) | |
| download | drakx-73c851144720e28b21a491b6250385170db9d752.tar drakx-73c851144720e28b21a491b6250385170db9d752.tar.gz drakx-73c851144720e28b21a491b6250385170db9d752.tar.bz2 drakx-73c851144720e28b21a491b6250385170db9d752.tar.xz drakx-73c851144720e28b21a491b6250385170db9d752.zip | |
perl_checker adaptations + fixes
Diffstat (limited to 'perl-install/crypto.pm')
| -rw-r--r-- | perl-install/crypto.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/crypto.pm b/perl-install/crypto.pm index 76821f38c..8fa979678 100644 --- a/perl-install/crypto.pm +++ b/perl-install/crypto.pm @@ -45,7 +45,7 @@ use ftp; %mirrors = (); sub mirror2text { $mirrors{$_[0]} && $mirrors{$_[0]}[0] . '|' . $_[0] } -sub mirrors { +sub mirrors() { unless (keys %mirrors) { #- contact the following URL to retrieve list of mirror. #- http://www.linux-mandrake.com/mirrorsfull.list @@ -98,7 +98,7 @@ sub bestMirror { } #- hack to retrieve Mandrake Linux version... -sub version { +sub version() { require pkgs; my $pkg = pkgs::packageByName($::o->{packages}, 'mandrake-release'); $pkg && $pkg->version || '9.1'; #- safe but dangerous ;-) |