stas 01/10/19 20:35:54 Modified: src/modules/perl modperl_time.h Log: - handle platforms which don't have HZ constant defined Revision Changes Path 1.2 +8 -2 modperl-2.0/src/modules/perl/modperl_time.h Index: modperl_time.h =================================================================== RCS file: /home/cvs/modperl-2.0/src/modules/perl/modperl_time.h,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- modperl_time.h 2001/01/21 23:19:03 1.1 +++ modperl_time.h 2001/10/20 03:35:54 1.2 @@ -1,6 +1,12 @@ #ifndef MODPERL_TIME_H #define MODPERL_TIME_H +#ifdef HZ +# define MP_HZ HZ +#else +# define MP_HZ 100 +#endif + #ifdef MP_TRACE #define dMP_TIMES \ struct tms start_time; \ @@ -18,9 +24,9 @@ #define MP_PRINT_TIMES(label) \ MP_TRACE_t_do({ \ double utime = \ - (double)(end_time.tms_utime - start_time.tms_utime)/HZ; \ + (double)(end_time.tms_utime - start_time.tms_utime)/MP_HZ; \ double stime = \ - (double)(end_time.tms_stime - start_time.tms_stime)/HZ; \ + (double)(end_time.tms_stime - start_time.tms_stime)/MP_HZ; \ if (utime || stime) { \ MP_TRACE_t(MP_FUNC, "%s %5.2f user %5.2f sys\n", \ label, utime, stime); \