<div class="gmail_quote">On Mon, Jan 11, 2010 at 6:19 PM, Christopher Howard <span dir="ltr"><<a href="mailto:choward@indicium.us">choward@indicium.us</a>></span> wrote:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<br><div class="im">
<br>
</div>This sounds like exactly what I need, but it doesn't seem to be working.<br>
It still freezes at the call to Does it make any difference that I am<br>
not making a simple system call, but instead a call to a function in a<br>
module?<br></blockquote><div><br>BlueComm.pm line 91 looks famliar.<br><br> 91 eval<br> 92 {<br> 93 local $SIG{ALRM} = sub { die "alarm\n" };<br> 94 alarm 1;<br> 95 $nread = sysread $fh, $char, 1;<br>
96 alarm 0;<br> 97 };<br> 98 $rbuff .= $char;<br> 99 }<br><br><br>Listen to Mr. DeRykus. :)<br><br>Skylos<br><br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<br>
while(1)<br>
<div class="im">{<br>
eval {<br>
<br>
local $SIG{ALRM} = sub { die "alarm\n" }; # NB: \n required<br>
<br>
<br>
</div> alarm 5;<br>
# $Scoop_a is my robot object<br>
<br>
$ret =<br>
$Scoop_a->nxt->get_battery_level($LEGO::NXT::Constants::NXT_RET);<br>
<div class="im"> alarm 0;<br>
};<br>
if ($@) {<br>
die unless $@ eq "alarm\n"; # propagate unexpected errors<br>
<br>
<br>
# timed out<br>
<br>
<br>
}<br>
else {<br>
# didn't<br>
<br>
<br>
}<br>
</div> print "We made it through!";<br>
sleep 2;<br>
}<br>
<font color="#888888"><br>
--<br>
</font><div><div></div><div class="h5">Christopher Howard<br>
<a href="http://indicium.us" target="_blank">http://indicium.us</a><br>
<a href="http://theologia.indicium.us" target="_blank">http://theologia.indicium.us</a><br>
<a href="http://robots.arsc.edu" target="_blank">http://robots.arsc.edu</a><br>
<br>
</div></div><br>_____________________________________________________________<br>
Seattle Perl Users Group Mailing List<br>
POST TO: <a href="mailto:spug-list@pm.org">spug-list@pm.org</a><br>
SUBSCRIPTION: <a href="http://mail.pm.org/mailman/listinfo/spug-list" target="_blank">http://mail.pm.org/mailman/listinfo/spug-list</a><br>
MEETINGS: 3rd Tuesdays<br>
WEB PAGE: <a href="http://seattleperl.org/" target="_blank">http://seattleperl.org/</a><br></blockquote></div><br>