Skip to main content.
home | support | download

Back to List Archive

Re: Which PDF file?

From: Richard Morin <rdm(at)not-real.slac.stanford.edu>
Date: Wed Jan 05 2005 - 19:14:31 GMT
> Does that help?

Well, the explanation was interesting and informative
and I was able to find and modify the code (adding a
trace as a sanity check):

   sub run_program {
     my $self = shift;

     die "No arguments passed to run_program()\n"
         unless @_;

     die "Must pass arguments to program '$_[0]'\n"
         unless @_ > 1;

     my $fh = $^O =~ /Win32/i || $^O =~ /VMS/i
          ? $self->windows_fork( @_ )
          : $self->real_fork( @_ );

     local $/      = undef;
     my    $output = <$fh>;

     close $fh || warn "@_ didn't run correctly";

     print STDERR "run_program was here!\n";      # DEBUG

     # When using IPC::Open3, need to reap the processes.

     waitpid $self->{pid}, 0 if delete $self->{pid};

     return $output;
   }

Sadly, I am not yet seeing any of the warning messages:

   ...
   run_program was here!
   Error (0): PDF file is damaged - attempting to
     reconstruct xref table...
   run_program was here!
   Error (0): PDF file is damaged - attempting to
     reconstruct xref table...
    run_program was here!
   ...

Help?  Clues?  Suggestions?

-r
Received on Wed Jan 5 11:14:32 2005