summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-04-27 14:08:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-04-27 14:08:01 +0000
commite7f39a48a82649e77f8437d390da107914e67fe4 (patch)
tree766609c7ea2ffc0c6100db1289ee98167798ca68 /perl-install/common.pm
parent7b8b7526aeba12b8a13405634b71fb20d7cca9cd (diff)
downloaddrakx-backup-do-not-use-e7f39a48a82649e77f8437d390da107914e67fe4.tar
drakx-backup-do-not-use-e7f39a48a82649e77f8437d390da107914e67fe4.tar.gz
drakx-backup-do-not-use-e7f39a48a82649e77f8437d390da107914e67fe4.tar.bz2
drakx-backup-do-not-use-e7f39a48a82649e77f8437d390da107914e67fe4.tar.xz
drakx-backup-do-not-use-e7f39a48a82649e77f8437d390da107914e67fe4.zip
allow using mandrake_release() with a prefix
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r--perl-install/common.pm5
1 files changed, 3 insertions, 2 deletions
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() {