Re: patch for PoCo::IKC::ClientLite.pm
flw <[email protected]>
| Newsgroups | gmane.comp.lang.perl.poe |
|---|---|
| Message-ID | <[email protected]> |
repost to whole mail list. 2009/10/22 flw <[email protected]> > Sorry for my english. I am happy to use code instead of English to > illustrate the problem. > > Please note that my patch contains 2 lines of change: > delete the line 139 of ClientLite.pm.orig, (maybe you have overlooked this > line) > and add line 143 of ClientLite.pm > > Following is test code: > > D:\MoChou>cat bug.pl > sub foo { > # ...... > my $DONE = 0; > eval { > local $SIG{__DIE__}='DEFAULT'; > local $SIG{__WARN__}; > local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required > > # ........... > alarm 3; > # ........ > $DONE = 1; > }; > > if($@) > { > alarm 0; > # ........ > return; > } > } > > foo(); > print +time, "\n"; > sleep(10); > print +time, "\n"; > > D:\MoChou>bug > 1256143484 > Terminating on signal SIGALRM(14) > > D:\MoChou> > > 2009/10/20 Philip Gwyn <[email protected]> > > >> On 15-Oct-2009 flw wrote: >> > Even if there is no defined $@, it also need to alarm(0). >> >> >> Maybe I'm being dense, but I don't see how the eval {} could exit with an >> alarm >> still set but $@ not set. Or is there some magic to alarm() and SIG{ALRM} >> that >> I'm unaware of. >> >> Also, could you write a test case for this? >> >> -Philip >> >> >