Re: POSIX::WEXITSTATUS broken again

   Message-Id: <Pine.SOL.4.10.10204251656510.2019-100000@maxwell.phys.lafayette.edu>

p4raw-id: //depot/perl@16168

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index 2d1abf3..bc0031e 100644 (file)
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -517,7 +517,7 @@ __END__
       if (memEQ(name, "WEXITSTATUS", 11)) {
       /*                ^                */
 #ifdef WEXITSTATUS
-        *arg_result = WEXITSTATUS(WMUNGE(*arg_result));
+        *arg_result = WEXITSTATUS(WMUNGE((int) *arg_result));
         return PERL_constant_ISIV;
 #else
         return PERL_constant_NOTDEF;