Change 29495 by [EMAIL PROTECTED] on 2006/12/09 22:44:27
Upgrade to Time-HiRes-1.9703
Affected files ...
... //depot/perl/ext/Time/HiRes/Changes#52 edit
... //depot/perl/ext/Time/HiRes/HiRes.pm#71 edit
... //depot/perl/ext/Time/HiRes/Makefile.PL#43 edit
Differences ...
==== //depot/perl/ext/Time/HiRes/Changes#52 (text) ====
Index: perl/ext/Time/HiRes/Changes
--- perl/ext/Time/HiRes/Changes#51~29478~ 2006-12-06 06:19:55.000000000
-0800
+++ perl/ext/Time/HiRes/Changes 2006-12-09 14:44:27.000000000 -0800
@@ -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 @@
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,
==== //depot/perl/ext/Time/HiRes/HiRes.pm#71 (text) ====
Index: perl/ext/Time/HiRes/HiRes.pm
--- perl/ext/Time/HiRes/HiRes.pm#70~29478~ 2006-12-06 06:19:55.000000000
-0800
+++ perl/ext/Time/HiRes/HiRes.pm 2006-12-09 14:44:27.000000000 -0800
@@ -23,7 +23,7 @@
stat
);
-$VERSION = '1.9702';
+$VERSION = '1.9703';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
==== //depot/perl/ext/Time/HiRes/Makefile.PL#43 (text) ====
Index: perl/ext/Time/HiRes/Makefile.PL
--- perl/ext/Time/HiRes/Makefile.PL#42~29478~ 2006-12-06 06:19:55.000000000
-0800
+++ perl/ext/Time/HiRes/Makefile.PL 2006-12-09 14:44:27.000000000 -0800
@@ -204,7 +204,7 @@
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 @@
# include <sys/time.h>
#endif
-int main _((int argc, char** argv, char** env))
+int main(int argc, char** argv)
{
$x;
}
@@ -253,7 +253,7 @@
/* 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 @@
#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 @@
#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 @@
#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 @@
#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 @@
#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 @@
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(<<EOM)) {
$TIME_HEADERS
#include <sys/stat.h>
-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 @@
if (try_compile_and_link(<<EOM)) {
$TIME_HEADERS
#include <sys/stat.h>
-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 @@
if (try_compile_and_link(<<EOM)) {
$TIME_HEADERS
#include <sys/stat.h>
-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 @@
if (try_compile_and_link(<<EOM)) {
$TIME_HEADERS
#include <sys/stat.h>
-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 @@
if (try_compile_and_link(<<EOM)) {
$TIME_HEADERS
#include <sys/stat.h>
-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 @@
}
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 @@
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
}
}
End of Patch.
