diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-08-01 20:52:48 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-08-01 20:52:48 +0000 |
| commit | a6f8275a74dd684e2b35010b0ba28a1d3b9cca23 (patch) | |
| tree | 55ab5df6dbea1c71337bcfd43cc89c7721c0200b /perl-install/any.pm | |
| parent | 0b3d57562f0ef60c905e16559f46fe64174a6839 (diff) | |
| download | drakx-backup-do-not-use-a6f8275a74dd684e2b35010b0ba28a1d3b9cca23.tar drakx-backup-do-not-use-a6f8275a74dd684e2b35010b0ba28a1d3b9cca23.tar.gz drakx-backup-do-not-use-a6f8275a74dd684e2b35010b0ba28a1d3b9cca23.tar.bz2 drakx-backup-do-not-use-a6f8275a74dd684e2b35010b0ba28a1d3b9cca23.tar.xz drakx-backup-do-not-use-a6f8275a74dd684e2b35010b0ba28a1d3b9cca23.zip | |
use $::prefix
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() { |