2010/1/29 Dmitry Karasik <[email protected]> > > > > perl -E 'sub foo { eval "sleep 10" } { local $SIG{ALRM} = sub { goto > EXIT; }; > > alarm 1; foo(); EXIT: alarm 0; say "exited" }' > > оно не работает если "sub foo { sleep 10 }" >
Нет:
perl -E 'sub foo { eval "sleep 10" } { local $SIG{ALRM} = sub { goto EXIT;
}; alarm 1; foo(); say "after foo"; EXIT: alarm 0; say "exited" }'
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
