summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-05-20 21:10:57 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-05-20 21:10:57 +0000
commit57ba8a64b3f7ec8a5dc0a4861941f175b749839c (patch)
treea197504b1169e7ac168ef26d916542b560ba1aa7 /perl-install
parent207f15207aa0b43d089952f9abed7d677c83b223 (diff)
downloaddrakx-57ba8a64b3f7ec8a5dc0a4861941f175b749839c.tar
drakx-57ba8a64b3f7ec8a5dc0a4861941f175b749839c.tar.gz
drakx-57ba8a64b3f7ec8a5dc0a4861941f175b749839c.tar.bz2
drakx-57ba8a64b3f7ec8a5dc0a4861941f175b749839c.tar.xz
drakx-57ba8a64b3f7ec8a5dc0a4861941f175b749839c.zip
(set_permissions): owner and group are optional parameters
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/common.pm14
1 files changed, 7 insertions, 7 deletions
diff --git a/perl-install/common.pm b/perl-install/common.pm
index 87a491bcd..cce250899 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -222,19 +222,19 @@ sub secured_file {
}
sub set_permissions {
- my ($file, $perms, $owner, $group) = @_;
+ my ($file, $perms, $o_owner, $o_group) = @_;
# We only need to set the permissions during installation to be able to
# print test pages. After installation the devfsd daemon does the business
# automatically.
return 1 unless $::isInstall;
- if ($owner && $group) {
- run_program::rooted($::prefix, "/bin/chown", "$owner.$group", $file)
+ if ($o_owner && $o_group) {
+ run_program::rooted($::prefix, "/bin/chown", "$o_owner.$o_group", $file)
or die "Could not start chown!";
- } elsif ($owner) {
- run_program::rooted($::prefix, "/bin/chown", $owner, $file)
+ } elsif ($o_owner) {
+ run_program::rooted($::prefix, "/bin/chown", $o_owner, $file)
or die "Could not start chown!";
- } elsif ($group) {
- run_program::rooted($::prefix, "/bin/chgrp", $group, $file)
+ } elsif ($o_group) {
+ run_program::rooted($::prefix, "/bin/chgrp", $o_group, $file)
or die "Could not start chgrp!";
}
run_program::rooted($::prefix, "/bin/chmod", $perms, $file)