From: Steve Peters Date: Sat, 9 Dec 2006 22:44:27 +0000 (+0000) Subject: Upgrade to Time-HiRes-1.9703 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f33706023c3eb682ef01f7bcf16f1afdf33fb00d;p=p5sagit%2Fp5-mst-13.2.git Upgrade to Time-HiRes-1.9703 p4raw-id: //depot/perl@29495 --- diff --git a/ext/Time/HiRes/Changes b/ext/Time/HiRes/Changes index 8d4c783..43e5300 100644 --- a/ext/Time/HiRes/Changes +++ b/ext/Time/HiRes/Changes @@ -1,7 +1,14 @@ Revision history for the Perl extension Time::HiRes. +1.9703 [2006-12-08] + - use int main(int argc, char **argv) consistently in Makefile.PL, + should help with + [rt.cpan.org #23868] nanosleep not detected under Mac OS 10.3.9 starting with Time::HiRes 1.96 + - if someone still has the locale-broken Perl 5.8.0, + suggest that they upgrade their Perl + 1.9702 [2006-12-06] - - restore the -DATLEASTFIVEOHOHFIVE + - restore the -DATLEASTFIVEOHOHFIVE, Win32 needed it still 1.9701 [2006-12-04] - upgrade to ppport.h 3.10_02 @@ -87,14 +94,16 @@ Revision history for the Perl extension Time::HiRes. Contributions for more systems (especially non-UNIX, e.g. but not limited to: Win32, VMS, OS/2) gladly accepted. + (also more UNIX variants welcome: HP-UX? IRIX?) Thanks to H.Merijn Brand, John Peacock, and Craig Berry for brave beta testing. 1.91 [2006-09-29] - ualarm() in SuSE 10.1 was overflowing after ~4.2 seconds, - possibly due to a glibc bug/feature, workaround by using the - setitimer() implementation of ualarm() if either useconds or + possibly due to a glibc bug/feature (suspected overflow at + 2**32 microseconds?), workaround by using the setitimer() + implementation of ualarm() if either useconds or interval > 999_999 (this case seems to vary between systems: are useconds more than 999_999 for ualarm() defined or not) Added more ualarm() tests to catch various overflow points, diff --git a/ext/Time/HiRes/HiRes.pm b/ext/Time/HiRes/HiRes.pm index e75eddd..d1e4333 100644 --- a/ext/Time/HiRes/HiRes.pm +++ b/ext/Time/HiRes/HiRes.pm @@ -23,7 +23,7 @@ require DynaLoader; stat ); -$VERSION = '1.9702'; +$VERSION = '1.9703'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; diff --git a/ext/Time/HiRes/Makefile.PL b/ext/Time/HiRes/Makefile.PL index 2f5081c..b9888ea 100644 --- a/ext/Time/HiRes/Makefile.PL +++ b/ext/Time/HiRes/Makefile.PL @@ -204,7 +204,7 @@ static int foo() struct timeval tv; gettimeofday(&tv, 0); } -int main _((int argc, char** argv, char** env)) +int main(int argc, char** argv) { foo(); } @@ -233,7 +233,7 @@ sub has_x { # include #endif -int main _((int argc, char** argv, char** env)) +int main(int argc, char** argv) { $x; } @@ -253,7 +253,7 @@ sub has_nanosleep { /* int nanosleep(const struct timespec *rqtp, struct timespec *rmtp); */ -int main _((int argc, char** argv, char** env)) { +int main(int argc, char** argv) { struct timespec ts1, ts2; int ret; ts1.tv_sec = 0; @@ -276,7 +276,7 @@ sub has_include { #include "XSUB.h" #include <$inc> -int main _((int argc, char** argv, char** env)) +int main(int argc, char** argv) { return 0; } @@ -293,7 +293,7 @@ sub has_clock_xxx_syscall { #include "perl.h" #include "XSUB.h" #include <$SYSCALL_H> -int main _((int argc, char** argv, char** env)) +int main(int argc, char** argv) { struct timespec ts; /* Many Linuxes get ENOSYS even though the syscall exists. */ @@ -311,7 +311,7 @@ sub has_clock_xxx { #include "EXTERN.h" #include "perl.h" #include "XSUB.h" -int main _((int argc, char** argv, char** env)) +int main(int argc, char** argv) { struct timespec ts; int ret = clock_$xxx(CLOCK_REALTIME, &ts); /* Many Linuxes get ENOSYS. */ @@ -327,7 +327,7 @@ sub has_clock { #include "EXTERN.h" #include "perl.h" #include "XSUB.h" -int main _((int argc, char** argv, char** env)) +int main(int argc, char** argv) { clock_t tictoc; clock_t ret = clock(); @@ -342,7 +342,7 @@ sub has_clock_nanosleep { #include "EXTERN.h" #include "perl.h" #include "XSUB.h" -int main _((int argc, char** argv, char** env)) +int main(int argc, char** argv) { int ret; struct timerspec ts1; @@ -601,12 +601,14 @@ EOD print "NOT found.\n"; } + print "Looking for stat() subsecond timestamps...\n"; + print "Trying struct stat st_atimespec.tv_nsec..."; my $has_stat_st_xtimespec; if (try_compile_and_link(< -int main _((int argc, char** argv, char** env)) { +int main(int argc, char** argv) { struct stat st; st.st_atimespec.tv_nsec = 0; } @@ -626,7 +628,7 @@ EOM if (try_compile_and_link(< -int main _((int argc, char** argv, char** env)) { +int main(int argc, char** argv) { struct stat st; st.st_atimensec = 0; } @@ -646,7 +648,7 @@ EOM if (try_compile_and_link(< -int main _((int argc, char** argv, char** env)) { +int main(int argc, char** argv) { struct stat st; st.st_atime_n = 0; } @@ -666,7 +668,7 @@ EOM if (try_compile_and_link(< -int main _((int argc, char** argv, char** env)) { +int main(int argc, char** argv) { struct stat st; st.st_atim.tv_nsec = 0; } @@ -686,7 +688,7 @@ EOM if (try_compile_and_link(< -int main _((int argc, char** argv, char** env)) { +int main(int argc, char** argv) { struct stat st; st.st_uatime = 0; } @@ -702,7 +704,7 @@ EOM } if ($DEFINE =~ /-DTIME_HIRES_STAT=\d+/) { - print "You seem to have stat subsecond timestamps.\n"; + print "You seem to have stat() subsecond timestamps.\n"; print "(Your struct stat has them, but the filesystems must help.)\n"; } else { print "You do not seem to have stat subsecond timestamps.\n"; @@ -845,6 +847,7 @@ NOTE: if you get an error like this (the Makefile line number may vary): Makefile:91: *** missing separator then set the environment variable LC_ALL to "C" and retry from scratch (re-run perl "Makefile.PL"). +(And consider upgrading your Perl.) EOM } }