<div class="gmail_quote">On Mon, Jan 11, 2010 at 6:19 PM, Christopher Howard <span dir="ltr">&lt;<a href="mailto:choward@indicium.us">choward@indicium.us</a>&gt;</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&#39;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 &quot;alarm\n&quot; };<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 &quot;alarm\n&quot; }; # NB: \n required<br>
<br>
<br>
</div>        alarm 5;<br>
        # $Scoop_a is my robot object<br>
<br>
        $ret =<br>
$Scoop_a-&gt;nxt-&gt;get_battery_level($LEGO::NXT::Constants::NXT_RET);<br>
<div class="im">        alarm 0;<br>
    };<br>
    if ($@) {<br>
        die unless $@ eq &quot;alarm\n&quot;;   # propagate unexpected errors<br>
<br>
<br>
        # timed out<br>
<br>
<br>
    }<br>
    else {<br>
        # didn&#39;t<br>
<br>
<br>
    }<br>
</div>    print &quot;We made it through!&quot;;<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>