diff options
| -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() { |