diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-18 16:48:57 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-18 16:48:57 +0000 |
commit | 4fa55b5793ef632fdf745e0d78c4f930743fa5e1 (patch) | |
tree | 7511ea512b90efa4a86ef3368ab8a9db71bf2199 /perl-install/common.pm | |
parent | 8d3e07a6988c9d46122ee6548a1b153048ffeb20 (diff) | |
download | drakx-4fa55b5793ef632fdf745e0d78c4f930743fa5e1.tar drakx-4fa55b5793ef632fdf745e0d78c4f930743fa5e1.tar.gz drakx-4fa55b5793ef632fdf745e0d78c4f930743fa5e1.tar.bz2 drakx-4fa55b5793ef632fdf745e0d78c4f930743fa5e1.tar.xz drakx-4fa55b5793ef632fdf745e0d78c4f930743fa5e1.zip |
use $::prefix instead of $::o->{prefix}
Diffstat (limited to 'perl-install/common.pm')
-rw-r--r-- | perl-install/common.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm index d982226e6..c2e853694 100644 --- a/perl-install/common.pm +++ b/perl-install/common.pm @@ -139,7 +139,7 @@ sub group_n_lm { } sub screenshot_dir__and_move { - my ($dir1, $dir2) = ("$::o->{prefix}/root", '/tmp/stage2'); + my ($dir1, $dir2) = ("$::prefix/root", '/tmp/stage2'); if (-e $dir1) { if (-e "$dir2/DrakX-screenshots") { cp_af("$dir2/DrakX-screenshots", $dir1); |