Line
Link Here
|
0 |
-- a/perl5lib/LinuxDocTools.pm |
0 |
++ b/perl5lib/LinuxDocTools.pm |
Lines 499-504
Link Here
|
499 |
|
499 |
|
500 |
# Set common base name for temp files and temp file names |
500 |
# Set common base name for temp files and temp file names |
501 |
my $tmpbase = $global->{tmpbase} = $tmpdir . '/sgmltmp.' . $filename; |
501 |
my $tmpbase = $global->{tmpbase} = $tmpdir . '/sgmltmp.' . $filename; |
|
|
502 |
my $precmdout = "$tmpbase.0.precmdout"; |
502 |
my $nsgmlsout = "$tmpbase.1"; # Was $tmpbase.1 |
503 |
my $nsgmlsout = "$tmpbase.1"; # Was $tmpbase.1 |
503 |
my $preaspout = "$tmpbase.2"; # Was $tmpbase.2 |
504 |
my $preaspout = "$tmpbase.2"; # Was $tmpbase.2 |
504 |
my $aspout = "$tmpbase.3"; # Was $tmpbase.3 |
505 |
my $aspout = "$tmpbase.3"; # Was $tmpbase.3 |
Lines 537-558
Link Here
|
537 |
|| die "$error_header: Could not open $global->{file} for reading. Aborting ...\n"; |
538 |
|| die "$error_header: Could not open $global->{file} for reading. Aborting ...\n"; |
538 |
} |
539 |
} |
539 |
|
540 |
|
540 |
# Pipe to nsgmls. Write exit status to $nsgmls_error_flag if not 0. |
541 |
# Create a temp file with $precmd output |
541 |
my $nsgmls_error_flag = "$tmpdir/nsgmls.error-flag"; |
542 |
my $precmd_command = "$precmd > $precmdout"; |
542 |
my $nsgmls_command = "$precmd | ( $main::progs->{NSGMLS} $global->{NsgmlsOpts} $ENV{SGMLDECL} || echo \$? > $nsgmls_error_flag ) > $nsgmlsout"; |
|
|
543 |
|
543 |
|
544 |
unlink $nsgmls_error_flag; |
544 |
open (my $PRECMDOUT, "$precmd_command") |
545 |
open (my $WRITENSGMLS, "$nsgmls_command") |
545 |
or die "$error_header: Could not open pipe to $precmdout. Aborting ...\n"; |
546 |
or die "$error_header: Could not open pipe to $nsgmlsout. Aborting ...\n"; |
|
|
547 |
|
546 |
|
548 |
if ($global->{charset} eq "latin") { |
547 |
if ($global->{charset} eq "latin") { |
549 |
print $WRITENSGMLS ldt_latin1tosgml($IFILE); |
548 |
print $PRECMDOUT ldt_latin1tosgml($IFILE); |
550 |
} else { |
549 |
} else { |
551 |
copy($IFILE,$WRITENSGMLS); |
550 |
copy($IFILE,$PRECMDOUT); |
552 |
} |
551 |
} |
553 |
|
552 |
|
554 |
close $IFILE; |
553 |
close $IFILE; |
555 |
close $WRITENSGMLS; |
554 |
close $PRECMDOUT; |
|
|
555 |
|
556 |
# Process with nsgmls. Write exit status to $nsgmls_error_flag if not 0. |
557 |
my $nsgmls_error_flag = "$tmpdir/nsgmls.error-flag"; |
558 |
my $nsgmls_command = "( $main::progs->{NSGMLS} $global->{NsgmlsOpts} $ENV{SGMLDECL} $precmdout || echo \$? > $nsgmls_error_flag ) > $nsgmlsout"; |
559 |
|
560 |
unlink $nsgmls_error_flag; |
561 |
system($nsgmls_command); |
556 |
|
562 |
|
557 |
# If $nsgmls_error_flag exists an error happened. Return status and die. |
563 |
# If $nsgmls_error_flag exists an error happened. Return status and die. |
558 |
if ( -e $nsgmls_error_flag ){ |
564 |
if ( -e $nsgmls_error_flag ){ |