[ViewVC] Diff of: cvs/Coro-Multicore/Multicore.xs

Comparing Coro-Multicore/Multicore.xs (file contents):
Revision 1.19 by root, Mon Aug 13 10:39:45 2018 UTC vs.
Revision 1.20 by root, Tue Aug 14 16:53:05 2018 UTC

 /* most win32 perls are beyond fixing, requiring dTHX */
 /* even for ISO-C functions such as malloc. avoid! avoid! avoid! */
-/* and fial to define numerous symbols, but still overrwide them */
+/* and fail to define numerous symbols, but still overrwide them */
 /* with non-working versions (e.g. setjmp). */
 #ifdef _WIN32
-# define PERL_CORE 1
+/*# define PERL_CORE 1 fixes some, breaks others */
 #else
 # define PERL_NO_GET_CONTEXT
 #endif
 #include "EXTERN.h"
 void
 sleep (NV seconds)
 	CODE:
         perlinterp_release ();
-        usleep (seconds * 1e6);
+	{
+          int nsec = seconds;
+          if (nsec) sleep (nsec);
+          nsec = (seconds - nsec) * 1e9;
+          if (nsec) usleep (nsec);
+        }
         perlinterp_acquire ();

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines