[svn:dbi] r2461 - dbi/trunk

[timbo]

Author: timbo
Date: Mon Jan 30 15:35:59 2006
New Revision: 2461

Modified:
   dbi/trunk/DBI.xs
Log:
Under PERL_IMPLICIT_SYS the gettimeofday() function is provided by the host
environment via Perl_IProc. Thanks to Jan Dubois.


Modified: dbi/trunk/DBI.xs
==============================================================================
--- dbi/trunk/DBI.xs    (original)
+++ dbi/trunk/DBI.xs    Mon Jan 30 15:35:59 2006
@@ -2164,6 +2164,9 @@ clear_cached_kids(SV *h, imp_xxh_t *imp_
 static double
 dbi_time() {
 # ifdef HAS_GETTIMEOFDAY
+#   ifdef PERL_IMPLICIT_SYS
+    dTHX;
+#   endif
     struct timeval when;
     gettimeofday(&when, (struct timezone *) 0);
     return when.tv_sec + (when.tv_usec / 1000000.0);