<div class="gmail_quote">2010/1/29 Dmitry Karasik <span dir="ltr">&lt;<a href="mailto:dmitry@karasik.eu.org">dmitry@karasik.eu.org</a>&gt;</span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

<div class="im">&gt;<br>
&gt; perl -E &#39;sub foo { eval &quot;sleep 10&quot; } { local $SIG{ALRM} = sub { goto EXIT; };<br>
&gt; alarm 1; foo(); EXIT: alarm 0; say &quot;exited&quot; }&#39;<br>
<br>
</div>оно не работает если &quot;sub foo { sleep 10 }&quot;<br></blockquote><div><br></div><div>Нет:</div><div><br></div><div>perl -E &#39;sub foo { eval &quot;sleep 10&quot; } { local $SIG{ALRM} = sub { goto EXIT; }; alarm 1; foo(); say &quot;after foo&quot;; EXIT: alarm 0; say &quot;exited&quot; }&#39;</div>

<div><br></div></div>