summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-12-29 23:14:59 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-12-29 23:14:59 +0000
commit716882732b776886ec33f40bd070bc3d523080a7 (patch)
tree156bbb0d09d033387c088f1f606a44f8cd6d8293
parent5a0dfe7fa86b8d86f7a035f79f8072bd6ad0a7d6 (diff)
downloaddrakx-716882732b776886ec33f40bd070bc3d523080a7.tar
drakx-716882732b776886ec33f40bd070bc3d523080a7.tar.gz
drakx-716882732b776886ec33f40bd070bc3d523080a7.tar.bz2
drakx-716882732b776886ec33f40bd070bc3d523080a7.tar.xz
drakx-716882732b776886ec33f40bd070bc3d523080a7.zip
set_permissions() doesn't want the given file to be $::prefix'ed
-rw-r--r--perl-install/printer/gimp.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/printer/gimp.pm b/perl-install/printer/gimp.pm
index 0a5919503..cd88df58f 100644
--- a/perl-install/printer/gimp.pm
+++ b/perl-install/printer/gimp.pm
@@ -230,11 +230,11 @@ sub findconfigfiles {
next if -f $dir && ! -d $dir;
if (! -d "$::prefix$dir") {
eval { mkdir_p("$::prefix$dir") } or next;
- set_permissions("$::prefix$dir", "$uid.$gid") or next;
+ set_permissions($dir, "$uid.$gid") or next;
}
if (! -f "$::prefix$homedir/$file") {
eval { output("$::prefix$homedir/$file", "#PRINTRCv1 written by GIMP-PRINT 4.2.2 - 13 Sep 2002\n") } or next;
- set_permissions("$::prefix$homedir/$file", "$uid.$gid") or next;
+ set_permissions("$homedir/$file", "$uid.$gid") or next;
}
push @filestotreat, "$homedir/$file";
}