Re: File Handle Issues in Mod_Perl 2.0

[Foo JH <suppressed>]

What kind of errors specifically are you getting?

Justin Luster wrote:
> I'm not closing the file on purpose to try and simulate an error
> condition.  My main question is why would it work differently from
> mod_perl 1.0 to 2.0?
>
> Thanks,
>
> Justin
>
> -----Original Message-----
> From: Foo JH [mailto:suppressed 
> Sent: Sunday, May 20, 2007 7:15 PM
> To: Justin Luster
> Cc: suppressed
> Subject: Re: File Handle Issues in Mod_Perl 2.0
>
> Could be some internal optimsation issue.
>
> But I'd say that your best bet is to really close the file after you're 
> done with it, and not let it hang around. This so especially when you 
> are expecting multiple threads/ processes accessing the same file.
>
> Justin Luster wrote:
>   
> > Hi,
> >
> > A while back I posted an issue that I was having with mod_perl 2.0 
> > regarding file handles. Today I found an interesting clue to the
> >     
> problem.
>   
> > In my test script below I'm opening the same file twice in a row on 
> > purpose without closing it. I'm trying to replicate a possible error 
> > condition where the file might not be closed properly. When I run this
> >     
>
>   
> > script on Apache 1.3 outside of Mod_Perl it works fine. When I run 
> > this script on Apache 1.3 with Mod_Perl 1.0 it works fine. When I run 
> > this script under Apache 2.0 Mod_Perl 2.0 it breaks (I'm on Red Hat 
> > Linux). Basically on the 2^nd open the file offset does not start at 
> > the beginning of the file as it does in my other tests. Further more 
> > it is not consistent but starts doing the Mod_Perl weirdness of 
> > sometimes working and sometimes not.
> >
> > The code that is breaking has been working for years but has started 
> > to show errors when run under Mod_Perl 2.0 Apache 2.0.
> >
> > Does anyone know what might have changed in Mod_Perl 2.0 to have 
> > caused this problem?
> >
> > Thanks for your help,
> >
> > Justin
> >
> > Here is my test script:
> >
> > my $strCGIPath = "";
> >
> > if ((exists($ENV{'SCRIPT_FILENAME'}) || (defined 
> > ($ENV{'SCRIPT_FILENAME'}))))
> >
> > {
> >
> > #Get absolute path to cgi-bin
> >
> > $strCGIPath = $ENV{'SCRIPT_FILENAME'};
> >
> > }
> >
> > $strCGIPath =~ s/\/test.pl//;
> >
> > my $strFileName = $strCGIPath . "/" . "test.txt";
> >
> > open (QUESTIONFILE,'<' . $strFileName) or print "Cant find file";
> >
> > binmode QUESTIONFILE;
> >
> > #Get first line
> >
> > $_ = <QUESTIONFILE>;
> >
> > open (QUESTIONFILE,'<' . $strFileName) or print "Cant find file";
> >
> > binmode QUESTIONFILE;
> >
> > seek QUESTIONFILE, 0, 0;
> >
> > #Get first line
> >
> > $_ = <QUESTIONFILE>;
> >
> > print $_;
> >
> >     
>
>
>