avoid negative return value from Win32::GetTickCount()

	Message-ID: <37084742.22824479@smtp1.ibm.net>
	Subject: Re: Win32::GetTickCount

p4raw-id: //depot/perl@3316

diff --git a/win32/win32.c b/win32/win32.c
index df28419..1848e9b 100644 (file)
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -2764,7 +2764,10 @@ XS(w32_GetTickCount)
 {
     dXSARGS;
     EXTEND(SP,1);
-    XSRETURN_IV(GetTickCount());
+    DWORD msec = GetTickCount();
+    if ((IV)msec > 0)
+       XSRETURN_IV(msec);
+    XSRETURN_NV(msec);
 }
 
 static