[Orca-checkins] rev 266 - in trunk/orca: . packages/Time-HiRes-1.51 packages/Time-HiRes-1.52 packages/Time-HiRes-1.52/t
Blair Zajac
blair at orcaware.com
Tue Oct 28 09:32:56 PST 2003
Author: blair
Date: Tue Oct 28 09:32:18 2003
New Revision: 266
Added:
trunk/orca/packages/Time-HiRes-1.52/
- copied from rev 265, trunk/orca/packages/Time-HiRes-1.51/
trunk/orca/packages/Time-HiRes-1.52/META.yml
Removed:
trunk/orca/packages/Time-HiRes-1.51/
Modified:
trunk/orca/INSTALL
trunk/orca/configure.in
trunk/orca/packages/Time-HiRes-1.52/Changes
trunk/orca/packages/Time-HiRes-1.52/HiRes.pm
trunk/orca/packages/Time-HiRes-1.52/MANIFEST
trunk/orca/packages/Time-HiRes-1.52/t/HiRes.t
Log:
Upgrade Time::HiRes from 1.51 to 1.52.
* INSTALL (Determine which Perl modules need compiling and installing):
Update all references to Time::HiRes's version number from 1.51 to
1.52.
* configure.in:
Bump Time::HiRes's version number to 1.52.
* packages/Time-HiRes-1.52:
Renamed from packages/Time-HiRes-1.51. Directory contents updated
from Time-HiRes-1.52.tar.gz.
Modified: trunk/orca/INSTALL
==============================================================================
--- trunk/orca/INSTALL (original)
+++ trunk/orca/INSTALL Tue Oct 28 09:32:18 2003
@@ -177,7 +177,7 @@
Math::IntervalSearch >= 1.05 >= 1.05 1.05
RRDs >= 1.000451 >= 1.0.45 1.0.45
Storable >= 2.07 >= 2.07 2.07
- Time::HiRes Not required by Orca 1.51
+ Time::HiRes Not required by Orca 1.52
All seven of these modules are included with the Orca distribution
in the packages directory. When you configure Orca in step 3),
@@ -278,10 +278,10 @@
Time::HiRes
- http://www.perl.com/CPAN/authors/id/J/JH/JHI/Time-HiRes-1.51.tar.gz
+ http://www.perl.com/CPAN/authors/id/J/JH/JHI/Time-HiRes-1.52.tar.gz
- % gunzip -c Time-HiRes-1.51.tar.gz | tar xvf -
- % cd Time-HiRes-1.51
+ % gunzip -c Time-HiRes-1.52.tar.gz | tar xvf -
+ % cd Time-HiRes-1.52
% perl Makefile.PL
% make
% make test
Modified: trunk/orca/configure.in
==============================================================================
--- trunk/orca/configure.in (original)
+++ trunk/orca/configure.in Tue Oct 28 09:32:18 2003
@@ -41,8 +41,8 @@
RRDTOOL_VER=1.000451
STORABLE_DIR=Storable-2.07
STORABLE_VER=2.07
-TIME_HIRES_DIR=Time-HiRes-1.51
-TIME_HIRES_VER=1.51
+TIME_HIRES_DIR=Time-HiRes-1.52
+TIME_HIRES_VER=1.52
AC_SUBST(COMPRESS_ZLIB_DIR)
AC_SUBST(DATA_DUMPER_DIR)
Modified: trunk/orca/packages/Time-HiRes-1.52/Changes
==============================================================================
--- trunk/orca/packages/Time-HiRes-1.51/Changes (original)
+++ trunk/orca/packages/Time-HiRes-1.52/Changes Tue Oct 28 09:32:18 2003
@@ -1,5 +1,10 @@
Revision history for Perl extension Time::HiRes.
+1.52
+ - In AIX (v?) with perl 5.6.1 the HiRes.t can hang after
+ the subtest 18. No known analysis nor fix, but added
+ an alarm (that requires fork() and alarm()) to the test.
+
1.51
- doc tweaks from mjd (perl change #20456)
- NCR MP-RAS hints file added (svr4.pl) (perl change #21249)
Modified: trunk/orca/packages/Time-HiRes-1.52/HiRes.pm
==============================================================================
--- trunk/orca/packages/Time-HiRes-1.51/HiRes.pm (original)
+++ trunk/orca/packages/Time-HiRes-1.52/HiRes.pm Tue Oct 28 09:32:18 2003
@@ -15,7 +15,7 @@
d_usleep d_ualarm d_gettimeofday d_getitimer d_setitimer
d_nanosleep);
-$VERSION = '1.51';
+$VERSION = '1.52';
$XS_VERSION = $VERSION;
$VERSION = eval $VERSION;
Modified: trunk/orca/packages/Time-HiRes-1.52/MANIFEST
==============================================================================
--- trunk/orca/packages/Time-HiRes-1.51/MANIFEST (original)
+++ trunk/orca/packages/Time-HiRes-1.52/MANIFEST Tue Oct 28 09:32:18 2003
@@ -14,3 +14,4 @@
README Time::HiRes extension
TODO Time::HiRes extension
typemap Time::HiRes extension
+META.yml Module meta-data (added by MakeMaker)
Added: trunk/orca/packages/Time-HiRes-1.52/META.yml
==============================================================================
--- (empty file)
+++ trunk/orca/packages/Time-HiRes-1.52/META.yml Tue Oct 28 09:32:18 2003
@@ -0,0 +1,10 @@
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
+name: Time-HiRes
+version: 1.52
+version_from: HiRes.pm
+installdirs: perl
+requires:
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.17
Modified: trunk/orca/packages/Time-HiRes-1.52/t/HiRes.t
==============================================================================
--- trunk/orca/packages/Time-HiRes-1.51/t/HiRes.t (original)
+++ trunk/orca/packages/Time-HiRes-1.52/t/HiRes.t Tue Oct 28 09:32:18 2003
@@ -30,6 +30,31 @@
use Config;
+my $have_alarm = $Config{d_alarm};
+my $have_fork = $Config{d_fork};
+my $waitfor = 60; # 10 seconds is normal.
+my $pid;
+
+if ($have_fork) {
+ print "# Testing process $$\n";
+ print "# Starting the timer process\n";
+ if (defined ($pid = fork())) {
+ if ($pid == 0) { # We are the kid, set up the timer.
+ print "# Timer process $$\n";
+ sleep($waitfor);
+ warn "$0: Time's up!\n";
+ print "# Terminating the testing process\n";
+ kill('TERM', getppid());
+ print "# Timer process exiting\n";
+ exit(0);
+ }
+ } else {
+ warn "$0: fork failed: $!\n";
+ }
+} else {
+ print "# No timer process\n";
+}
+
my $xdefine = '';
if (open(XDEFINE, "xdefine")) {
@@ -131,7 +156,7 @@
ok 11, $f > 0.4 && $f < 0.9, "slept $f instead of 0.5 secs.";
}
-if (!$have_ualarm || !$Config{d_alarm}) {
+if (!$have_ualarm || !$have_alarm) {
skip 12..13;
}
else {
@@ -337,3 +362,9 @@
skip 24;
skip 25;
}
+
+if (defined $pid) {
+ print "# Terminating the timer process $pid\n";
+ kill('TERM', $pid); # We are done, the timer can go.
+}
+
More information about the Orca-checkins
mailing list