From 0fc52b8290d73f58a4115329902a205a3c517a43 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 13 Sep 2005 15:46:59 +0000 Subject: when taking screenshot during pkgs install, we can be chrooted --- perl-install/install_any.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 1a210adbd..c1c351405 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -1850,8 +1850,10 @@ sub X_options_from_o { } sub screenshot_dir__and_move() { - my ($dir1, $dir2) = ("$::prefix/root", '/tmp'); - if (-e $dir1) { + my ($dir0, $dir1, $dir2) = ('/root', "$::prefix/root", '/tmp'); + if (-e $dir0) { + $dir0; #- it occurs during pkgs install when we are chrooted + } elsif (-e $dir1) { if (-e "$dir2/DrakX-screenshots") { cp_af("$dir2/DrakX-screenshots", $dir1); rm_rf("$dir2/DrakX-screenshots"); -- cgit v1.2.1