From e7f39a48a82649e77f8437d390da107914e67fe4 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 27 Apr 2005 14:08:01 +0000
Subject: allow using mandrake_release() with a prefix

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

(limited to 'perl-install')

diff --git a/perl-install/common.pm b/perl-install/common.pm
index 1abba61e4..e51b1df93 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -248,8 +248,9 @@ sub release_file {
     find { -r "$o_dir$_" } map { "/etc/$_" } 'mandrakelinux-release', 'mandrake-release', 'release', 'redhat-release';
 }
 
-sub mandrake_release() {
-    chomp_(cat_(release_file()));
+sub mandrake_release {
+    my ($o_dir) = @_;
+    chomp_(cat_(release_file($o_dir)));
 }
 
 sub require_root_capability() {
-- 
cgit v1.2.1