From 716882732b776886ec33f40bd070bc3d523080a7 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 29 Dec 2002 23:14:59 +0000
Subject: set_permissions() doesn't want the given file to be $::prefix'ed

---
 perl-install/printer/gimp.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/printer')

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";
 		}
-- 
cgit v1.2.1