Gentoo Websites Logo
Go to: Gentoo Home Documentation Forums Lists Bugs Planet Store Wiki Get Gentoo!
View | Details | Raw Unified | Return to bug 606768
Collapse All | Expand All

(-)file_not_specified_in_diff (-10 / +16 lines)
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 ){

Return to bug 606768