Change 29423 by [EMAIL PROTECTED] on 2006/11/30 04:44:54
Upgrade to Time-HiRes-1.95
Affected files ...
... //depot/perl/ext/Time/HiRes/Changes#49 edit
... //depot/perl/ext/Time/HiRes/HiRes.pm#67 edit
... //depot/perl/ext/Time/HiRes/Makefile.PL#40 edit
... //depot/perl/ext/Time/HiRes/fallback/const-c.inc#4 edit
Differences ...
==== //depot/perl/ext/Time/HiRes/Changes#49 (text) ====
Index: perl/ext/Time/HiRes/Changes
--- perl/ext/Time/HiRes/Changes#48~29031~ 2006-10-17 08:43:05.000000000
-0700
+++ perl/ext/Time/HiRes/Changes 2006-11-29 20:44:54.000000000 -0800
@@ -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 @@
- 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 @@
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.
==== //depot/perl/ext/Time/HiRes/HiRes.pm#67 (text) ====
Index: perl/ext/Time/HiRes/HiRes.pm
--- perl/ext/Time/HiRes/HiRes.pm#66~29181~ 2006-11-01 05:22:16.000000000
-0800
+++ perl/ext/Time/HiRes/HiRes.pm 2006-11-29 20:44:54.000000000 -0800
@@ -23,7 +23,7 @@
stat
);
-$VERSION = '1.94_01';
+$VERSION = '1.95';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
==== //depot/perl/ext/Time/HiRes/Makefile.PL#40 (text) ====
Index: perl/ext/Time/HiRes/Makefile.PL
--- perl/ext/Time/HiRes/Makefile.PL#39~29010~ 2006-10-13 07:11:04.000000000
-0700
+++ perl/ext/Time/HiRes/Makefile.PL 2006-11-29 20:44:54.000000000 -0800
@@ -102,6 +102,15 @@
$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 @@
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
}
}
==== //depot/perl/ext/Time/HiRes/fallback/const-c.inc#4 (text) ====
Index: perl/ext/Time/HiRes/fallback/const-c.inc
--- perl/ext/Time/HiRes/fallback/const-c.inc#3~26383~ 2005-12-16
17:46:58.000000000 -0800
+++ perl/ext/Time/HiRes/fallback/const-c.inc 2006-11-29 20:44:54.000000000
-0800
@@ -19,7 +19,6 @@
#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 @@
{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 @@
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 */
End of Patch.
