From 5842eb000d9f2e23be3c368f88754e3c4daa36ea Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 27 Apr 2005 15:50:06 +0000
Subject: fix mandrake_release() when called with a prefix

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

(limited to 'perl-install')

diff --git a/perl-install/common.pm b/perl-install/common.pm
index e51b1df93..15da3a2c5 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -250,7 +250,8 @@ sub release_file {
 
 sub mandrake_release {
     my ($o_dir) = @_;
-    chomp_(cat_(release_file($o_dir)));
+    my $f = release_file($o_dir);
+    $f && chomp_(cat_("$o_dir$f"));
 }
 
 sub require_root_capability() {
-- 
cgit v1.2.1