2013-11-25 15:11:25 +00:00
|
|
|
Index: config/install.pl
|
|
|
|
===================================================================
|
2021-07-09 09:26:13 +00:00
|
|
|
--- config/install.pl.orig
|
|
|
|
+++ config/install.pl
|
|
|
|
@@ -295,8 +295,10 @@ my @icon_types = $cfg{'IMAGE_TYPES'} ?
|
2013-11-25 15:11:25 +00:00
|
|
|
split(/\s+/,$cfg{'IMAGE_TYPES'}) : qw(gif);
|
|
|
|
my $iconrx = join('|', @icon_types);
|
|
|
|
|
|
|
|
+my $destdir=$ENV{"DESTDIR"};
|
|
|
|
my $dest1 = "$cfg{'SHLIBDIR'}${dd}icons";
|
|
|
|
-if((-d $dest1 && !-w _) || (-d $cfg{'SHLIBDIR'} && !-w _)) {
|
|
|
|
+print STDERR "((( $destdir, $dest1 )))\n";
|
|
|
|
+if((-d "$destdir$dest1" && !-w _) || (-d "$destdir$cfg{'SHLIBDIR'}" && !-w _)) {
|
|
|
|
print STDERR "Error: Cannot install icons in '$dest1': No write permission.\n";
|
|
|
|
$dest1 = '';
|
|
|
|
}
|