[Orca-users] Re: defunct processes even in Orca 0.27b2

[prasadjlv at yahoo.com]

Blair,

Thanks for the update.

My COMPRESSOR is gunzip and orca is using it since I am getting all 
the plots (DAILY, WEEKLY, etc.).

I have looked at OpenFileHash.pm and nothing jumped out and I did not 
look at SourceFIle.pm. Time permitting, I will hack thru them again. 

I will keep the group posted if I fix it.

--prasad

--- In orca-users at y..., Blair Zajac <blair at o...> wrote:
> Well, it was supposed to be fixed.
> 
> I can't reproduce the problem myself with my current setup, so 
somebody with
> the problem will have to figure out why its not working and come up 
with a
> patch.
> 
> The relevant code to look at is in lib/Orca/OpenFileHash.pm and
> lib/Orca/SourceFile.pm.
> 
> One question though, when Orca runs, can it find the proper 
uncompression
> program, in this case 'gunzip'?  The message may be about gunzip, 
not the
> compressed file.
> 
> Also, the attached patch will help the warning messages a bit.
> 
> Blair
> 
> prasadjlv at y... wrote:
> > 
> > Folks,
> > 
> > I have been using Orca 0.27b2 for a week and I am still finding a 
lot
> > of defunct processes. I thought this was fixed in this version?
> > 
> > In Orca's log I am noticing a lot of "cannot open ..../perlcol*.gz
> > file for reading: No such file or directory" but the file does 
exist
> > on my system. Is there something wrong with my setup?
> > 
> > Thanks in advance,
> > --prasad
> --- ../orca-0.27b2/lib/Orca/OpenFileHash.pm	Fri Aug 24 09:53:03 
2001
> +++ lib/Orca/OpenFileHash.pm	Mon Oct 15 15:27:27 2001
> @@ -71,13 +71,14 @@
>      $is_pipe = 0;
>    }
>  
> -  # Try to open the file or pipe.  If the pipe fails and if there 
are
> +  # Try to open the file or pipe.  If the open fails and if there 
are
>    # other opened files, then reduce the maximum number of open 
files.
>    # If this is the first open file and the pipe fails, then do not
>    # attempt to open it again.
> +  my $open_error = 0;
>    while (!open(FD, $filename)) {
>      warn "$0: warning: cannot open `$filename' for reading: $!\n";
> -    my $num_current_open_files = (keys %{$self->[I_HASH]});
> +    my $num_current_open_files = keys %{$self->[I_HASH]};
>      return unless $num_current_open_files;
>      $num_current_open_files -= 2;
>      return if $num_current_open_files <= 4;
> @@ -85,6 +86,11 @@
>           "$num_current_open_files.\n";
>      $self->[I_MAX_ELEMENTS] = $num_current_open_files;
>      $self->_close_extra($num_current_open_files-1);
> +    $open_error = 1;
> +  }
> +
> +  if ($open_error) {
> +    warn "$0: warning: finally able to open `$filename' for 
reading.\n";
>    }
>  
>    $self->add($fid, $weight, *FD, $is_pipe);