mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-27 01:44:43 +00:00
Code Issues Packages Projects Releases Wiki Activity

add a couple missing LEAVEs in perlio_async_run()

Browse Source
This commit is contained in:
Chip 2011-09-19 23:51:49 -07:00 committed by Chip Salzenberg
parent 73c02f1564
commit be48bbe8d6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
perlio.c
View File

@ -2563,8 +2563,10 @@ S_perlio_async_run(pTHX_ PerlIO* f) {
SAVEDESTRUCTOR_X(S_lockcnt_dec, (void*)f);
PerlIO_lockcnt(f)++;
PERL_ASYNC_CHECK();
if ( !(PerlIOBase(f)->flags & PERLIO_F_CLEARED) )
if ( !(PerlIOBase(f)->flags & PERLIO_F_CLEARED) ) {
LEAVE;
return 0;
}
/* we've just run some perl-level code that could have done
* anything, including closing the file or clearing this layer.
* If so, free any lower layers that have already been
@ -2576,6 +2578,7 @@ S_perlio_async_run(pTHX_ PerlIO* f) {
*f = l->next;
Safefree(l);
}
LEAVE;
return 1;
}