Geoffrey Young wrote:
>
>>-----Original Message-----
>>From: Joshua Chamas [mailto:[EMAIL PROTECTED]]
>>Sent: Friday, September 14, 2001 3:21 PM
>>To: Mod Perl
>>Subject: Updating $r->connection->aborted before $r->print() ?
>>
>>
>>Hey,
>>
>>In my own experience it seems that I can only get
>>$r->connection->aborted updated if I first do a $r->print().
>>Is there any way to get aborted to update without
>>$r->print?
>>
>
> my $fileno = $r->connection->fileno;
>
> $s = IO::Select->new($fileno);
>
> die "aborted" if grep { m/$fileno/ } $s->can_read(1);
Hmm, does this actually work Geoff? What happens if mod_perl is running
as a back-end? In this case $r->connection->aborted doesn't work even if
you print.
Joshua, what about print "\0", I'm not sure whether this messes up the
headers. given that you end these tests with a new line.
_____________________________________________________________________
Stas Bekman JAm_pH -- Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide http://perl.apache.org/guide
mailto:[EMAIL PROTECTED] http://apachetoday.com http://eXtropia.com/
http://singlesheaven.com http://perl.apache.org http://perlmonth.com/