diff options
Diffstat (limited to 'ext/Time')
| -rw-r--r-- | ext/Time/HiRes/Changes | 14 | ||||
| -rw-r--r-- | ext/Time/HiRes/HiRes.pm | 2 | ||||
| -rw-r--r-- | ext/Time/HiRes/Makefile.PL | 10 | ||||
| -rw-r--r-- | ext/Time/HiRes/fallback/const-c.inc | 13 |
4 files changed, 35 insertions, 4 deletions
diff --git a/ext/Time/HiRes/Changes b/ext/Time/HiRes/Changes index 6769b847c9..e9061a7365 100644 --- a/ext/Time/HiRes/Changes +++ b/ext/Time/HiRes/Changes @@ -1,5 +1,15 @@ Revision history for the Perl extension Time::HiRes. +1.95 [2006-29-11] + - integrate core change #29180: Silence VC++ compiler warnings + from Steve Hay + - do not use PL_ppaddr in stat() because that is not available + in Perl 5.005_04 + - regenerate fallback/*.inc for older Perls without + ExtUtils::Constant because of d_hires_stat, resolves + [rt.cpan.org #23694] Time::HiRes fails tests on Solaris and Perl 5.6.1 + - Make Makefile.PL more defensive against false PERL_CORE + 1.94 [2006-10-16] - file timestamps oddities seen: the atime and mtime can be out of sync (modify first and read second can leave @@ -15,7 +25,7 @@ Revision history for the Perl extension Time::HiRes. - skip the stat() tests in cygwin and win32, because if run on FAT the timestamp granularity is only 2 seconds. Any good way to detect (cygwin or win32) whether we are - being run on NTFS or anyplace with better timestamps? + being run on NTFS or anywhere with better timestamps? Addresses [rt.cpan.org #22089] and [rt.cpan.org #22098]. 1.92 [2006-10-13] @@ -50,7 +60,7 @@ Revision history for the Perl extension Time::HiRes. system and the filesystem support that kind of thing). Contributions for more systems (especially non-UNIX, - e.g. but not limited to, Win32, VMS) gladly accepted. + e.g. but not limited to: Win32, VMS, OS/2) gladly accepted. Thanks to H.Merijn Brand, John Peacock, and Craig Berry for brave beta testing. diff --git a/ext/Time/HiRes/HiRes.pm b/ext/Time/HiRes/HiRes.pm index bd2d8d32e3..39c743d45d 100644 --- a/ext/Time/HiRes/HiRes.pm +++ b/ext/Time/HiRes/HiRes.pm @@ -23,7 +23,7 @@ require DynaLoader; stat ); -$VERSION = '1.94_01'; +$VERSION = '1.95'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; diff --git a/ext/Time/HiRes/Makefile.PL b/ext/Time/HiRes/Makefile.PL index 115cea36f5..bd2b64b728 100644 --- a/ext/Time/HiRes/Makefile.PL +++ b/ext/Time/HiRes/Makefile.PL @@ -102,6 +102,15 @@ sub try_compile_and_link { $COREincdir = File::Spec->catdir($Config{'archlibexp'}, 'CORE'); } + if ($ENV{PERL_CORE}) { + unless (-f File::Spec->catfile($COREincdir, "EXTERN.h")) { + die <<__EOD__; +Your \$ENV{PERL_CORE} is $ENV{PERL_CORE} but there is no EXTERN.h in +$COREincdir. Cannot continue, aborting. +__EOD__ + } + } + my $ccflags = $Config{'ccflags'} . ' ' . "-I$COREincdir"; if ($^O eq 'VMS') { @@ -835,6 +844,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 } } diff --git a/ext/Time/HiRes/fallback/const-c.inc b/ext/Time/HiRes/fallback/const-c.inc index 86028f1779..a8626172af 100644 --- a/ext/Time/HiRes/fallback/const-c.inc +++ b/ext/Time/HiRes/fallback/const-c.inc @@ -19,7 +19,6 @@ typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it. */ #ifndef pTHX_ #define pTHX_ /* 5.6 or later define this for threading support. */ #endif - static int constant_11 (pTHX_ const char *name, IV *iv_return) { /* When generated this function returned values for the list of names given @@ -250,6 +249,7 @@ my @names = (qw(CLOCKS_PER_SEC CLOCK_HIGHRES CLOCK_MONOTONIC {name=>"d_clock_nanosleep", type=>"IV", macro=>"TIME_HIRES_CLOCK_NANOSLEEP", value=>"1", default=>["IV", "0"]}, {name=>"d_getitimer", type=>"IV", macro=>"HAS_GETITIMER", value=>"1", default=>["IV", "0"]}, {name=>"d_gettimeofday", type=>"IV", macro=>"HAS_GETTIMEOFDAY", value=>"1", default=>["IV", "0"]}, + {name=>"d_hires_stat", type=>"IV", macro=>"TIME_HIRES_STAT", value=>"1", default=>["IV", "0"]}, {name=>"d_nanosleep", type=>"IV", macro=>"TIME_HIRES_NANOSLEEP", value=>"1", default=>["IV", "0"]}, {name=>"d_setitimer", type=>"IV", macro=>"HAS_SETITIMER", value=>"1", default=>["IV", "0"]}, {name=>"d_ualarm", type=>"IV", macro=>"HAS_UALARM", value=>"1", default=>["IV", "0"]}, @@ -310,6 +310,17 @@ __END__ case 11: return constant_11 (aTHX_ name, iv_return); break; + case 12: + if (memEQ(name, "d_hires_stat", 12)) { +#ifdef TIME_HIRES_STAT + *iv_return = 1; + return PERL_constant_ISIV; +#else + *iv_return = 0; + return PERL_constant_ISIV; +#endif + } + break; case 13: /* Names all of length 13. */ /* CLOCK_HIGHRES TIMER_ABSTIME */ |