diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-04-27 14:08:01 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-04-27 14:08:01 +0000 |
| commit | e7f39a48a82649e77f8437d390da107914e67fe4 (patch) | |
| tree | 766609c7ea2ffc0c6100db1289ee98167798ca68 | |
| parent | 7b8b7526aeba12b8a13405634b71fb20d7cca9cd (diff) | |
| download | drakx-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
| -rw-r--r-- | perl-install/common.pm | 5 |
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() { |