Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re: Re: Mysterious script crash in win2k and ActivePerl

by jhanna (Scribe)
on Dec 13, 2002 at 16:53 UTC ( #219640=note: print w/replies, xml ) Need Help??


in reply to Re: Mysterious script crash in win2k and ActivePerl
in thread Mysterious script crash in win2k and ActivePerl

I'll check on strict and warnings -- I think they're on. The code is complicated, but I posted the main loop at http://www.perlmonks.org/index.pl?node_id=217848

I did find one bug and corrected it this way:

while($buf=~/(.*\n)/g) { print DEBUG "doing <$1>\n"; ${$Con{$fh}}{getline}($fh,$1); last unless $Con{$fh}; # it's possible that the connection can b +e deleted while there's still something in the buffer } if($Con{$fh}) { ($this->{_})=$buf=~/([^\n\r]*)$/s; if(length($this->{_}) > 10000) { ${$Con{$fh}}{getline}($fh,$this->{_}); ($this->{_})=''; } }
The problem was that the connection was closed while there was still a line in the buffer. The if($Con{$fh}) tests for that condition.

john

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://219640]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (6)
As of 2019-11-14 11:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Strict and warnings: which comes first?



    Results (77 votes). Check out past polls.

    Notices?