From a2c392a9ab83bb9031fb11f99f0101f1f2d9f140 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 21 Apr 2005 15:17:42 +0000
Subject: create common::release_file() and use it

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

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

diff --git a/perl-install/common.pm b/perl-install/common.pm
index 8c8fa4234..1abba61e4 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -243,8 +243,13 @@ sub set_permissions {
 	or die "Could not start chmod!";
 }
 
+sub release_file {
+    my ($o_dir) = @_;
+    find { -r "$o_dir$_" } map { "/etc/$_" } 'mandrakelinux-release', 'mandrake-release', 'release', 'redhat-release';
+}
+
 sub mandrake_release() {
-    chomp_(cat_("/etc/mandrakelinux-release"));
+    chomp_(cat_(release_file()));
 }
 
 sub require_root_capability() {
-- 
cgit v1.2.1