In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/adb86be5ee633b2258ce1113f26fcdeb89cb1889?hp=228c57794c695d2315262e4d5de68a312ebff220>
- Log ----------------------------------------------------------------- commit adb86be5ee633b2258ce1113f26fcdeb89cb1889 Author: Steve Hay <[email protected]> Date: Tue Sep 18 20:47:09 2012 +0100 Squash two win32.c warnings which have crept in recently Ensure a non-void function always returns something, and a signed/unsigned mismatch. ----------------------------------------------------------------------- Summary of changes: win32/win32.c | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/win32/win32.c b/win32/win32.c index 0a13ecd..a16410f 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -170,11 +170,11 @@ static BOOL silent_invalid_parameter_handler = FALSE; static BOOL set_silent_invalid_parameter_handler(BOOL newvalue) { -# ifdef _DEBUG BOOL oldvalue = silent_invalid_parameter_handler; +# ifdef _DEBUG silent_invalid_parameter_handler = newvalue; - return oldvalue; # endif + return oldvalue; } static void @@ -1342,7 +1342,7 @@ get_hwnd_delay(pTHX, long child, DWORD tries) if (hwnd != INVALID_HANDLE_VALUE) return hwnd; { - int count = 0; + unsigned int count = 0; /* No Sleep(1) if tries==0, just fail instead if we get this far. */ while (count++ < tries) { Sleep(1); -- Perl5 Master Repository
