diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2000-04-24 21:32:23 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2000-04-24 21:32:23 +0000 |
commit | d539dc5a34d23d8af636426b7c73ae51cd5a0a27 (patch) | |
tree | dd31a44e938280360fdcb01c23130c67270a39d7 /perl-install/install_any.pm | |
parent | e3d2039bb6725f1cd488a21d100ff4de9b474c33 (diff) | |
download | drakx-backup-do-not-use-d539dc5a34d23d8af636426b7c73ae51cd5a0a27.tar drakx-backup-do-not-use-d539dc5a34d23d8af636426b7c73ae51cd5a0a27.tar.gz drakx-backup-do-not-use-d539dc5a34d23d8af636426b7c73ae51cd5a0a27.tar.bz2 drakx-backup-do-not-use-d539dc5a34d23d8af636426b7c73ae51cd5a0a27.tar.xz drakx-backup-do-not-use-d539dc5a34d23d8af636426b7c73ae51cd5a0a27.zip |
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r-- | perl-install/install_any.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 4e90cf6f5..cfeadf928 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -670,8 +670,10 @@ sub update_userkderc($$$) { } <INFILE>; print OUTFILE "[$cat]\n", values %tosubst if values %tosubst; #- if categorie has not been found above. + my @l = (stat $inputfile)[4, 5]; unlink $inputfile; rename $outputfile, $inputfile; + chown @l, $inputfile; } } |