summaryrefslogtreecommitdiffstats
path: root/perl-install/common.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-18 16:48:57 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-18 16:48:57 +0000
commit4fa55b5793ef632fdf745e0d78c4f930743fa5e1 (patch)
tree7511ea512b90efa4a86ef3368ab8a9db71bf2199 /perl-install/common.pm
parent8d3e07a6988c9d46122ee6548a1b153048ffeb20 (diff)
downloaddrakx-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.pm2
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);