diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-23 19:50:12 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-23 19:50:12 +0000 |
| commit | 12a8fac9ff3a98c2dde2b6069eba953c218e4f51 (patch) | |
| tree | 5d00fe15554fb1584ee1c87fd997746750a34626 /perl-install/install/any.pm | |
| parent | 0ceeee3a928e459a9097316a092dbd2651937925 (diff) | |
| download | drakx-backup-do-not-use-12a8fac9ff3a98c2dde2b6069eba953c218e4f51.tar drakx-backup-do-not-use-12a8fac9ff3a98c2dde2b6069eba953c218e4f51.tar.gz drakx-backup-do-not-use-12a8fac9ff3a98c2dde2b6069eba953c218e4f51.tar.bz2 drakx-backup-do-not-use-12a8fac9ff3a98c2dde2b6069eba953c218e4f51.tar.xz drakx-backup-do-not-use-12a8fac9ff3a98c2dde2b6069eba953c218e4f51.zip | |
(screenshot_dir__and_move) make it clearer
Diffstat (limited to 'perl-install/install/any.pm')
| -rw-r--r-- | perl-install/install/any.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm index 6ddb69407..d06813f4e 100644 --- a/perl-install/install/any.pm +++ b/perl-install/install/any.pm @@ -1234,9 +1234,10 @@ sub screenshot_dir__and_move() { if (-e $dir0 && ! -e '/root/non-chrooted-marker.DrakX') { ($dir0, 'nowarn'); #- 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"); + my $path = "$dir2/DrakX-screenshots"; + if (-e $path) { + cp_af($path, $dir1); + rm_rf($path); } $dir1; } else { |