summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-01-22 10:06:53 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-01-22 10:06:53 +0000
commit894356b32151f778d4d2915c6db38e5d049b115a (patch)
tree80e9c55bdd3e19adc9d1ef8cc20c50b2f7756b9d /pp_hot.c
parentf30a114324770080b9e0b2bcfb9c2278f5e0a290 (diff)
downloadperl-894356b32151f778d4d2915c6db38e5d049b115a.tar.gz
add patch for printf-style format typechecks (from Robin Barker
<rmb1@cise.npl.co.uk>); fixes for problems so identified p4raw-id: //depot/perl@4836
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_hot.c b/pp_hot.c
index cd7b6e0eb1..18d717b356 100644
--- 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" : "");
}
}