summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm7
1 files changed, 5 insertions, 2 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index f272926db..4d886cc12 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -373,16 +373,17 @@ sub psUpdateHdlistsDeps {
install_any::getAndSaveFile("media/media_info/$_->{hdlist}", $hdlistf) or die "no $_->{hdlist} found";
symlinkf $hdlistf, "/tmp/$_->{hdlist}";
++$need_copy;
+ chown 0, 0, $hdlistf;
}
if (-s $synthesisf != $_->{synthesis_hdlist_size}) {
install_any::getAndSaveFile("media/media_info/synthesis.$_->{hdlist}", $synthesisf);
- -s $synthesisf > 0 or unlink $synthesisf;
+ if (-s $synthesisf > 0) { chown 0, 0, $synthesisf } else { unlink $synthesisf }
}
}
if ($need_copy) {
#- this is necessary for urpmi.
- install_any::getAndSaveFile("media/media_info/$_", "$urpmidir/$_") foreach qw(rpmsrate);
+ install_any::getAndSaveFile("media/media_info/$_", "$urpmidir/$_") && chown 0, 0, "$urpmidir/$_" foreach qw(rpmsrate);
}
}
@@ -476,6 +477,8 @@ sub psUsingHdlist {
-s $newsf > 0 or unlink $newsf;
}
+ chown 0, 0, $newf, $newsf;
+
#- get all keys corresponding in the right pubkey file,
#- they will be added in rpmdb later if not found.
if (!$o_fhdlist || $o_pubkey) {