This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 4755081) | patch
Dispatch signals in infinite loops such as 1 while 1;
authorNicholas Clark <nick@ccl4.org>
Sat, 17 Apr 2010 20:24:21 +0000 (21:24 +0100)
committerNicholas Clark <nick@ccl4.org>
Sat, 17 Apr 2010 20:24:21 +0000 (21:24 +0100)
commit8f3964af7ae5331db258ef371ed6879d127851aa
treeb621aa690692f98d6418e29a3ac9dfeb431c675etree | snapshot
parent47550813adf9ff4023595a3d439a9080e8fa9040commit | diff
Dispatch signals in infinite loops such as 1 while 1;

With the move of PERL_ASYNC_CHECK() out from the runloop to control ops,
infinite loops became truely infinite, as their optree has no control ops.
Hence add a PERL_ASYNC_CHECK() to pp_unstack to ensure signals will be
dispatched.

Bug noticed by Jerry Hedden.
MANIFEST diff | blob | blame | history
pp_hot.c diff | blob | blame | history
t/op/sigdispatch.t [new file with mode: 0755] blob
Unnamed repository; edit this file 'description' to name the repository.