diff options
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index 0be989f98..83083afa1 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -68,10 +68,9 @@ sub crypt { my ($password, $md5) = @_; crypt($password, $md5 ? '$1$' . salt(8) : salt(2)); } -sub enableShadow { - my ($prefix) = @_; - run_program::rooted($prefix, "pwconv") or log::l("pwconv failed"); - run_program::rooted($prefix, "grpconv") or log::l("grpconv failed"); +sub enableShadow() { + run_program::rooted($::prefix, "pwconv") or log::l("pwconv failed"); + run_program::rooted($::prefix, "grpconv") or log::l("grpconv failed"); } sub hdInstallPath() { |