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
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
truncate(FH) flushes FH before truncating it
[perl5.git]
/
pp_hot.c
diff --git
a/pp_hot.c
b/pp_hot.c
index
cd7b6e0
..
18d717b
100644
(file)
--- a/
pp_hot.c
+++ b/
pp_hot.c
@@
-1305,7
+1305,7
@@
Perl_do_readline(pTHX)
if (!do_close(PL_last_in_gv, FALSE) && ckWARN(WARN_CLOSED)) {
Perl_warner(aTHX_ WARN_CLOSED,
"glob failed (child exited with status %d%s)",
-
STATUS_CURRENT >> 8
,
+
(int)(STATUS_CURRENT >> 8)
,
(STATUS_CURRENT & 0x80) ? ", core dumped" : "");
}
}