|
Line
Link Here
|
| 0 |
-- latex2html-2002-2-1/config/install.pl.bak 2005-09-22 15:23:23.000000000 -0400 |
0 |
++ latex2html-2002-2-1/config/install.pl 2005-09-22 15:23:52.000000000 -0400 |
|
Lines 293-305
Link Here
|
| 293 |
split(/\s+/,$cfg{'IMAGE_TYPES'}) : qw(gif); |
293 |
split(/\s+/,$cfg{'IMAGE_TYPES'}) : qw(gif); |
| 294 |
my $iconrx = join('|', @icon_types); |
294 |
my $iconrx = join('|', @icon_types); |
|
|
295 |
my $destdir = ''.$ENV{'DESTDIR'}; |
| 295 |
my $dest1 = "$cfg{'SHLIBDIR'}${dd}icons"; |
296 |
my $dest1 = "$cfg{'SHLIBDIR'}${dd}icons"; |
| 296 |
if((-d $dest1 && !-w _) || (-d $cfg{'SHLIBDIR'} && !-w _)) { |
297 |
if((-d $destdir.$dest1 && !-w _) || (-d $destdir.$cfg{'SHLIBDIR'} && !-w _)) { |
| 297 |
print STDERR "Error: Cannot install icons in '$dest1': No write permission.\n"; |
298 |
print STDERR "Error: Cannot install icons in '$dest1': No write permission.\n"; |
| 298 |
$dest1 = ''; |
299 |
$dest1 = ''; |
| 299 |
} |
300 |
} |
| 300 |
my $dest2 = $cfg{'ICONSTORAGE'} || ''; |
301 |
my $dest2 = $cfg{'ICONSTORAGE'} || ''; |
| 301 |
if(-d $dest2 && !-w $dest2) { |
302 |
if(-d $destdir.$dest2 && !-w _) { |
| 302 |
print STDERR "Error: Cannot install icons in '$dest2': No write permission.\n"; |
303 |
print STDERR "Error: Cannot install icons in '$dest2': No write permission.\n"; |
| 303 |
$dest2 = ''; |
304 |
$dest2 = ''; |
| 304 |
} |
305 |
} |
|
Lines 371-378
Link Here
|
| 371 |
#----------------------------------------------------------------------------- |
372 |
#----------------------------------------------------------------------------- |
| 372 |
|
373 |
|
| 373 |
if($cfg{TEXPATH}) { |
374 |
if($cfg{TEXPATH}) { |
| 374 |
print "\nNote: trying to install LaTeX2HTML style files in TeX directory |
375 |
print "\nNote: trying to install LaTeX2HTML style files in TeX directory |
| 375 |
unless(mkpath($cfg{TEXPATH})) { |
376 |
unless(mkpath($destdir.$cfg{TEXPATH})) { |
| 376 |
#my $testpath = $cfg{TEXPATH}; # to strip (latex2)html |
377 |
#my $testpath = $cfg{TEXPATH}; # to strip (latex2)html |
| 377 |
#$testpath =~ s/[$dd$dd][^$dd$dd]*$//; |
378 |
#$testpath =~ s/[$dd$dd][^$dd$dd]*$//; |
| 378 |
#if((-d $cfg{TEXPATH} && !-w _) || (-d $testpath && !-w _)) { |
379 |
#if((-d $cfg{TEXPATH} && !-w _) || (-d $testpath && !-w _)) { |
