1 files changed, 2 insertions, 1 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 5c9bfeafc4..f8ba4e9e3d 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4013,7 +4013,8 @@ PP(pp_system)
 	    SP = ORIGMARK;
 	    if (did_pipes) {
 		int errkid;
-		int n = 0, n1;
+		unsigned n = 0;
+		SSize_t n1;
 
 		while (n < sizeof(int)) {
 		    n1 = PerlLIO_read(pp[0],