projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
POD: Use F<> for F<utils/perldoc> and F<utils/perldoc.PL>
[p5sagit/p5-mst-13.2.git]
/
scope.c
diff --git
a/scope.c
b/scope.c
index
994151e
..
6ee1254
100644
(file)
--- a/
scope.c
+++ b/
scope.c
@@
-780,7
+780,7
@@
Perl_leave_scope(pTHX_ I32 base)
break;
case SAVEt_BOOL: /* bool reference */
ptr = SSPOPPTR;
- *(bool*)ptr = (bool)SSPOPBOOL;
+ *(bool*)ptr = cBOOL(SSPOPBOOL);
break;
case SAVEt_I32: /* I32 reference */
ptr = SSPOPPTR;
@@
-1115,6
+1115,8
@@
Perl_leave_scope(pTHX_ I32 base)
}
PL_tainted = was;
+
+ PERL_ASYNC_CHECK();
}
void