fix perms I hope

This commit is contained in:
joey
2003-11-03 21:13:24 +00:00
parent 902aefad11
commit 531201ff80

View File

@@ -734,8 +734,8 @@ sub postinst {
foreach my $file (sort keys %$owninfo) { foreach my $file (sort keys %$owninfo) {
my $quotedfile=$file; my $quotedfile=$file;
$quotedfile=~s/'/'"'"'/g; # no single quotes in single quotes.. $quotedfile=~s/'/'"'"'/g; # no single quotes in single quotes..
$permscript.="chown '$owninfo->{$file}' '$quotedfile'\n"; $permscript.="chown '".$owninfo->{$file}."' '$quotedfile'\n";
$permscript.="chmod '$modeinfo->${file}' '$quotedfile'\n" $permscript.="chmod '".$modeinfo->${file}."' '$quotedfile'\n"
if (defined $modeinfo->{$file}); if (defined $modeinfo->{$file});
} }
return "$firstline\n$permscript\n$rest"; return "$firstline\n$permscript\n$rest";