r33515 - in /trunk/libforks-perl: ./ debian/ lib/ lib/forks/ lib/forks/Devel/ lib/forks/shared/ lib/threads/shared/ t/
ra28145-guest at users.alioth.debian.org
ra28145-guest at users.alioth.debian.org
Sat Apr 18 14:53:08 UTC 2009
Author: ra28145-guest
Date: Sat Apr 18 14:53:02 2009
New Revision: 33515
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=33515
Log:
New upstream release forks 0.33
Added:
trunk/libforks-perl/lib/forks/Devel/
- copied from r33514, branches/upstream/libforks-perl/current/lib/forks/Devel/
Modified:
trunk/libforks-perl/CHANGELOG
trunk/libforks-perl/MANIFEST
trunk/libforks-perl/META.yml
trunk/libforks-perl/Makefile.PL
trunk/libforks-perl/README
trunk/libforks-perl/SIGNATURE
trunk/libforks-perl/debian/changelog
trunk/libforks-perl/debian/control
trunk/libforks-perl/debian/copyright
trunk/libforks-perl/lib/forks.pm
trunk/libforks-perl/lib/forks/shared.pm
trunk/libforks-perl/lib/forks/shared/attributes.pm
trunk/libforks-perl/lib/forks/shared/global_filter.pm
trunk/libforks-perl/lib/forks/signals.pm
trunk/libforks-perl/lib/threads/shared/array.pm
trunk/libforks-perl/lib/threads/shared/handle.pm
trunk/libforks-perl/lib/threads/shared/hash.pm
trunk/libforks-perl/lib/threads/shared/scalar.pm
trunk/libforks-perl/t/forks08.t
Modified: trunk/libforks-perl/CHANGELOG
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/CHANGELOG?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/CHANGELOG (original)
+++ trunk/libforks-perl/CHANGELOG Sat Apr 18 14:53:02 2009
@@ -1,3 +1,22 @@
+0.33 April 8 2009
+ ***** Bug fixes *****
+
+ exit() in child process after fork() in user code no longer causes process hang.
+
+ Address issue with Devel::Symdump and internal typeglob reference changes in Perl 5.10.
+
+ ***** Miscellaneous changes *****
+
+ Removed Devel::Required (used only for forks development) from Makefile.PL required
+ modules.
+
+0.32 March 18 2009
+ ***** Miscellaneous changes *****
+
+ Minor change to forks08.t nanosleep usage when not available, to avoid srror.
+
+ Made time tolerances consistent throughout forks08.t.
+
0.31 March 14 2009
***** Threads API consistency changes *****
Modified: trunk/libforks-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/MANIFEST?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/MANIFEST (original)
+++ trunk/libforks-perl/MANIFEST Sat Apr 18 14:53:02 2009
@@ -2,6 +2,7 @@
CREDITS
forks.xs
lib/forks.pm
+lib/forks/Devel/Symdump.pm
lib/forks/shared.pm
lib/forks/shared/attributes.pm
lib/forks/shared/global_filter.pm
Modified: trunk/libforks-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/META.yml?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/META.yml (original)
+++ trunk/libforks-perl/META.yml Sat Apr 18 14:53:02 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: forks
-version: 0.31
+version: 0.33
abstract: forks - emulate threads with fork
author:
- Eric Rybski (rybskej at yahoo.com)
@@ -11,7 +11,6 @@
requires:
Acme::Damn: 0
Attribute::Handlers: 0
- Devel::Required: 0.07
Devel::Symdump: 0
File::Spec: 0
if: 0
Modified: trunk/libforks-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/Makefile.PL?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/Makefile.PL (original)
+++ trunk/libforks-perl/Makefile.PL Sat Apr 18 14:53:02 2009
@@ -138,7 +138,6 @@
PREREQ_PM => {@extra_prereq,qw(
Acme::Damn 0
Attribute::Handlers 0
- Devel::Required 0.07
Devel::Symdump 0
List::MoreUtils 0.15
File::Spec 0
Modified: trunk/libforks-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/README?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/README (original)
+++ trunk/libforks-perl/README Sat Apr 18 14:53:02 2009
@@ -1,7 +1,7 @@
README for forks
Version:
- 0.31
+ 0.33
The forks.pm module is a drop-in replacement for threads.pm. It has the
same syntax as the threads.pm module (it even takes over its namespace) but
@@ -26,7 +26,6 @@
Required Modules:
Acme::Damn (any)
Attribute::Handlers (any)
- Devel::Required (0.07)
Devel::Symdump (any)
File::Spec (any)
if (any)
Modified: trunk/libforks-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/SIGNATURE?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/SIGNATURE (original)
+++ trunk/libforks-perl/SIGNATURE Sat Apr 18 14:53:02 2009
@@ -14,25 +14,26 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 980b4d7cabacbd64fa34808db7060e63f0ac56ae CHANGELOG
+SHA1 d6fdbd833e0407ed07fe57dd6d697b57f8b84664 CHANGELOG
SHA1 455b7ebe2265a00e97f133c8cd7ebf56148a573d CREDITS
-SHA1 a28ed85caa44cd411af27ec3617a04e09ce84cfe MANIFEST
+SHA1 c918d4ed8f1acf452740801a33f6885e2c47d28e MANIFEST
SHA1 0a40de91b5f4169eef3ff3ef456a40b79d056e78 MANIFEST.skip
-SHA1 ef4f5db148a93b02beefbdacfa31a5d37b1dd780 META.yml
-SHA1 aa50a0d9500f47423bf1b5c6cfb7156c68f69f0c Makefile.PL
-SHA1 d5b16aa6c132a17e5fe50a893e382d639cdad085 README
+SHA1 696fbeb7ffb81e169e77edc28072e005cf54b288 META.yml
+SHA1 24f37b818f36c8c93acf447c05dbb3804a9368ae Makefile.PL
+SHA1 f7d6225860423f7dd7a81c18828dd2cdf2bfb5f3 README
SHA1 10357d353c270dcdad97a24923845201778e97f7 TODO
SHA1 b8554457d862188bf4bce3639881d99617bc4529 VERSION
SHA1 8b16e73ade400e5915771b8548b5a0649911f840 forks.xs
-SHA1 3f3d7f9ebdade248707202b9d02929dfb772b72b lib/forks.pm
-SHA1 d062fe44b924c88e4540d17ff7983def13361259 lib/forks/shared.pm
-SHA1 8a96b3316f429087c57fa532ef8ef565aa989242 lib/forks/shared/attributes.pm
-SHA1 eb84fb6f728c2e36ddfe33e04c05a30f1cada5c7 lib/forks/shared/global_filter.pm
-SHA1 33e1af2dd95ab16f058451e8945805cb82eea7bf lib/forks/signals.pm
-SHA1 31faa19cccb8e28f2f397591a67a9638469896aa lib/threads/shared/array.pm
-SHA1 fd2feea9bba2217a8db4ed1300d81e93d3c33ae5 lib/threads/shared/handle.pm
-SHA1 77ebc9e094e30dcfa80fd75c22ca46f1c359ab63 lib/threads/shared/hash.pm
-SHA1 b9bd0fd11f3d58ac1e7d64e03c6be27566bb955e lib/threads/shared/scalar.pm
+SHA1 99c811e52702ed51e88a5fa8b8a63c1736a502c2 lib/forks.pm
+SHA1 5652c39f2420041f153dfab66fc4a3fc133a025f lib/forks/Devel/Symdump.pm
+SHA1 74e5732b2bc87cbd2e43f9271f8656a987fced7b lib/forks/shared.pm
+SHA1 e3843abed8c10042e611358c6fd814364ccacbac lib/forks/shared/attributes.pm
+SHA1 c3d1005210cd2e4d7bfa84049265502575e66919 lib/forks/shared/global_filter.pm
+SHA1 7854d750f050dfc7647a51c2089fe531dc9a403c lib/forks/signals.pm
+SHA1 a2086fe848ccd84429b6ea56e16a4089ae537e97 lib/threads/shared/array.pm
+SHA1 d551aa10adbc34a19feb657d98ff06c2151dae0c lib/threads/shared/handle.pm
+SHA1 90e06dddf521d4cd1d9f800b820f93d162e9db9e lib/threads/shared/hash.pm
+SHA1 9af7d904161a969ead1ee6ef165820e8b10c2e82 lib/threads/shared/scalar.pm
SHA1 5663394514567cec7cb9537e7ce6682ffdd8e032 ppport.h
SHA1 e0b161c71a2dba88fa7827c54ab597bf29ba2cdb t/forks00-sigtrap.t
SHA1 aa7a677571cc9789653d489bc7cab8fbc091773d t/forks01.t
@@ -42,7 +43,7 @@
SHA1 5c172556a690f58812039b10a243376ec2b9d6e3 t/forks05.t
SHA1 50af07b5275498fd708b4fb2d0de5e28062b33fd t/forks06.t
SHA1 f8dd4f7c16f7ce96cde23f1953737468fa6bad7f t/forks07.t
-SHA1 32673565fbfdf553dcffe8771b48ae1bfa59c41a t/forks08.t
+SHA1 d8f2a6f3c54cb33e454026e0f4c4576e0ff65dfb t/forks08.t
SHA1 b073b28bc806f47dabe93d69dd7e47dc7fe5ee6d t/forks09.t
SHA1 84f14953836fd57500007907d3a30e9813fdfca3 t/forks10.t
SHA1 d45ee162070db10b691958fa140d8fc297bd3d90 t/forks20.t
@@ -50,7 +51,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.8 (Darwin)
-iEYEARECAAYFAkm8HcQACgkQQwn7DcpJEO4kmQCbB8L39PxHHHt6pAC48VYCcxR+
-B6oAnisF5WFKuQ37KjTt5kueVh1uaVBB
-=g81x
+iEYEARECAAYFAkncWl4ACgkQQwn7DcpJEO6znwCfc/hINJZS0wuIngd/oHJ1+l8u
+QpUAoIuKk6VMsLtupu0iKKMO8Q99aWtY
+=kjV9
-----END PGP SIGNATURE-----
Modified: trunk/libforks-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/debian/changelog?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/debian/changelog (original)
+++ trunk/libforks-perl/debian/changelog Sat Apr 18 14:53:02 2009
@@ -1,7 +1,12 @@
+libforks-perl (0.33-1) unstable; urgency=low
+
+ * New upstream release
+ * Removed dependency on libdevel-symdump-perl as now inlined
+
+ -- Jeffrey Ratcliffe <Jeffrey.Ratcliffe at gmail.com> Sat, 18 Apr 2009 15:17:30 +0200
+
libforks-perl (0.31-1) UNRELEASED; urgency=low
- NEEDS: Acme::Damn
-
* New upstream release.
* Add new (build) dependencies on libdevel-symdump-perl and
libacme-damn-perl.
Modified: trunk/libforks-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/debian/control?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/debian/control (original)
+++ trunk/libforks-perl/debian/control Sat Apr 18 14:53:02 2009
@@ -2,8 +2,7 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7), perl, libsys-sigaction-perl (>= 0.11),
- liblist-moreutils-perl (>= 0.15), libdevel-symdump-perl,
- libacme-damn-perl
+ liblist-moreutils-perl (>= 0.15), libacme-damn-perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Jeffrey Ratcliffe <Jeffrey.Ratcliffe at gmail.com>,
gregor herrmann <gregoa at debian.org>
@@ -14,7 +13,7 @@
Architecture: any
Depends: ${perl:Depends}, ${shlibs:Depends}, ${misc:Depends},
libsys-sigaction-perl (>= 0.11), liblist-moreutils-perl (>= 0.15),
- libdevel-symdump-perl, libacme-damn-perl
+ libacme-damn-perl
Description: forks - emulate threads with fork
The forks.pm module is a drop-in replacement for threads.pm. It has the
same syntax as the threads.pm module (it even takes over its namespace) but
Modified: trunk/libforks-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/debian/copyright?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/debian/copyright (original)
+++ trunk/libforks-perl/debian/copyright Sat Apr 18 14:53:02 2009
@@ -21,6 +21,10 @@
Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
License: GPL-1+|Artistic
+Files: lib/forks/Devel/Symdump.pm
+Copyright: 1995, 1997, 2000, 2002, 2005, 2006 Andreas Koenig <andk at cpan.org>
+License: GPL-1+|Artistic
+
Files: debian/*
Copyright: 2009 Jeffrey Ratcliffe <Jeffrey.Ratcliffe at gmail.com>
License: GPL-1+|Artistic
Modified: trunk/libforks-perl/lib/forks.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/lib/forks.pm?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/lib/forks.pm (original)
+++ trunk/libforks-perl/lib/forks.pm Sat Apr 18 14:53:02 2009
@@ -1,5 +1,5 @@
package forks; # make sure CPAN picks up on forks.pm
-$VERSION = '0.31';
+$VERSION = '0.33';
# Allow external modules to defer shared variable init at require
@@ -89,7 +89,7 @@
use Scalar::Util qw(reftype blessed refaddr);
use File::Spec;
-use Devel::Symdump;
+use forks::Devel::Symdump; # Perl 5.10.x patch for Devel::Symdump 2.08
use Acme::Damn ();
# Set constant for IPC temp dir
@@ -485,6 +485,12 @@
'fallback' => 1,
;
+# Keep reference to pre-existing exit function
+my $old_core_global_exit;
+BEGIN {
+ $old_core_global_exit = sub { CORE::exit(@_) };
+}
+
# Create new() -> create() equivalence
# Initialize thread server at runtime, in case import was skipped
@@ -529,11 +535,16 @@
# Restore signals blocked during fork
# Reset some important state variables
+# Reset CORE::GLOBAL::exit(); will be redefined in _init_thread
POSIX::sigprocmask(SIG_UNBLOCK, $_fork_block_sigset);
delete $ISATHREAD{$$};
undef( $TID );
undef( $PID );
+ {
+ no warnings 'redefine';
+ *CORE::GLOBAL::exit = $old_core_global_exit;
+ }
} #_fork_post_child
# Overload global fork for best protection against external fork.
@@ -1296,11 +1307,6 @@
$HANDLED_INIT = 1;
} #_init
-my $old_core_global_exit;
-BEGIN {
- $old_core_global_exit = \&CORE::GLOBAL::exit;
-}
-
#---------------------------------------------------------------------------
# Default main thread initialization handler
@@ -1331,16 +1337,8 @@
};
# Make this thread 0
-# Overload global exit to conform to ithreads API.
_init_thread(_run_CLONE_SKIP());
- {
- no warnings 'redefine';
- *CORE::GLOBAL::exit = sub {
- threads::_command( '_toexit',$_[0] );
- defined $_[0] ? CORE::exit($_[0]) : CORE::exit();
- };
- }
} #_init_main
#---------------------------------------------------------------------------
@@ -1503,7 +1501,7 @@
$SHUTTING_DOWN_END = 1;
{
no warnings 'redefine';
- *CORE::GLOBAL::exit = $old_core_global_exit if defined $old_core_global_exit;
+ *CORE::GLOBAL::exit = $old_core_global_exit;
}
_command( '_shutdown',$TID )
if CORE::kill(0, $SHARED) && ($TID > 0 || !$MAIN_ABRT_HANDLED);
@@ -2167,8 +2165,16 @@
}
# Reinitialize random number generator (as we're simulating new interpreter creation)
+# Overload global exit to conform to ithreads API (exits all threads).
srand;
+ {
+ no warnings 'redefine';
+ *CORE::GLOBAL::exit = sub {
+ threads::_command( '_toexit',$_[0] );
+ defined $_[0] ? CORE::exit($_[0]) : CORE::exit();
+ };
+ }
return 1;
} #_init_thread
@@ -3661,7 +3667,7 @@
my %result;
$result{pkg} = ['main',
- grep { $_ !~ /^CORE::|::SUPER$/o } Devel::Symdump->rnew->packages];
+ grep { $_ !~ /^CORE::|::SUPER$/o } forks::Devel::Symdump->rnew->packages];
foreach my $package (@{$result{pkg}}) {
my $code;
if (exists $CLONE_SKIP{$package}) {
@@ -3698,7 +3704,7 @@
# Use that
my $clone = shift || { skip => undef, pkg => ['main',
- grep { $_ !~ /^CORE::|::SUPER$/o } Devel::Symdump->rnew->packages]};
+ grep { $_ !~ /^CORE::|::SUPER$/o } forks::Devel::Symdump->rnew->packages]};
CLONE_LOOP: foreach my $package (@{$clone->{pkg}}) {
my $code;
if (exists( $clone->{skip}{$package} ) && $clone->{skip}{$package}) {
@@ -3747,7 +3753,7 @@
=head1 VERSION
-This documentation describes version 0.31.
+This documentation describes version 0.33.
=head1 SYNOPSIS
@@ -3940,7 +3946,6 @@
Acme::Damn (any)
Attribute::Handlers (any)
- Devel::Required (0.07)
Devel::Symdump (any)
File::Spec (any)
if (any)
@@ -4043,7 +4048,7 @@
Otherwise, you will need to manually tell Perl how to map a control of thread to a
TTY. Two undocumented features exist in the Perl debugger:
-1. Define global variable C<$DB::fork_TTY as the first stem in the subroutine for
+1. Define global variable C<$DB::fork_TTY> as the first stem in the subroutine for
a thread. The value must be a valid TTY name, such as '/dev/pts/1' or '/dev/ttys001';
valid names may vary across platforms. For example:
@@ -4140,6 +4145,12 @@
This behavior conforms to the expected behavior of native Perl threads. The
only subtle difference is that the main thread will be signaled using SIGABRT
to immediately exit.
+
+If you call C<fork()> but do not call <threads->isthread()>, then the child
+process will default to the pre-existing CORE::GLOBAL::exit() or CORE::exit()
+behavior. Note that such processes are exempt from application global
+termination if exit() is called in a thread, so you must manually clean up
+child processes created in this manner before exiting your threaded application.
=head2 END block behavior
Modified: trunk/libforks-perl/lib/forks/shared.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/lib/forks/shared.pm?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/lib/forks/shared.pm (original)
+++ trunk/libforks-perl/lib/forks/shared.pm Sat Apr 18 14:53:02 2009
@@ -1,5 +1,5 @@
package forks::shared; # make sure CPAN picks up on forks::shared.pm
-$VERSION = '0.31';
+$VERSION = '0.33';
use Config ();
Modified: trunk/libforks-perl/lib/forks/shared/attributes.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/lib/forks/shared/attributes.pm?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/lib/forks/shared/attributes.pm (original)
+++ trunk/libforks-perl/lib/forks/shared/attributes.pm Sat Apr 18 14:53:02 2009
@@ -1,6 +1,6 @@
package
forks::shared::attributes; #hide from PAUSE
-$VERSION = '0.31';
+$VERSION = '0.33';
use Attribute::Handlers;
Modified: trunk/libforks-perl/lib/forks/shared/global_filter.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/lib/forks/shared/global_filter.pm?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/lib/forks/shared/global_filter.pm (original)
+++ trunk/libforks-perl/lib/forks/shared/global_filter.pm Sat Apr 18 14:53:02 2009
@@ -10,7 +10,7 @@
use List::MoreUtils;
use vars '$VERSION';
-$VERSION = '0.31';
+$VERSION = '0.33';
our @FILTER = ();
my @_dummy = (*ARGVOUT);
Modified: trunk/libforks-perl/lib/forks/signals.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/lib/forks/signals.pm?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/lib/forks/signals.pm (original)
+++ trunk/libforks-perl/lib/forks/signals.pm Sat Apr 18 14:53:02 2009
@@ -1,6 +1,6 @@
package
forks::signals; #hide from PAUSE
-$VERSION = '0.31';
+$VERSION = '0.33';
use strict;
use warnings;
Modified: trunk/libforks-perl/lib/threads/shared/array.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/lib/threads/shared/array.pm?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/lib/threads/shared/array.pm (original)
+++ trunk/libforks-perl/lib/threads/shared/array.pm Sat Apr 18 14:53:02 2009
@@ -3,7 +3,7 @@
# Make sure we have version info for this module
# Make sure we do everything by the book from now on
-$VERSION = '0.31';
+$VERSION = '0.33';
use strict;
use Scalar::Util;
Modified: trunk/libforks-perl/lib/threads/shared/handle.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/lib/threads/shared/handle.pm?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/lib/threads/shared/handle.pm (original)
+++ trunk/libforks-perl/lib/threads/shared/handle.pm Sat Apr 18 14:53:02 2009
@@ -3,7 +3,7 @@
# Make sure we have version info for this module
# Make sure we do everything by the book from now on
-$VERSION = '0.31';
+$VERSION = '0.33';
use strict;
# Satisfy -require-
Modified: trunk/libforks-perl/lib/threads/shared/hash.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/lib/threads/shared/hash.pm?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/lib/threads/shared/hash.pm (original)
+++ trunk/libforks-perl/lib/threads/shared/hash.pm Sat Apr 18 14:53:02 2009
@@ -3,7 +3,7 @@
# Make sure we have version info for this module
# Make sure we do everything by the book from now on
-$VERSION = '0.31';
+$VERSION = '0.33';
use strict;
use Scalar::Util;
Modified: trunk/libforks-perl/lib/threads/shared/scalar.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/lib/threads/shared/scalar.pm?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/lib/threads/shared/scalar.pm (original)
+++ trunk/libforks-perl/lib/threads/shared/scalar.pm Sat Apr 18 14:53:02 2009
@@ -3,7 +3,7 @@
# Make sure we have version info for this module
# Make sure we do everything by the book from now on
-$VERSION = '0.31';
+$VERSION = '0.33';
use strict;
use Scalar::Util;
Modified: trunk/libforks-perl/t/forks08.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libforks-perl/t/forks08.t?rev=33515&op=diff
==============================================================================
--- trunk/libforks-perl/t/forks08.t (original)
+++ trunk/libforks-perl/t/forks08.t Sat Apr 18 14:53:02 2009
@@ -67,29 +67,29 @@
$time = Time::HiRes::sleep 5;
$t1->join();
$time_int = sprintf("%.0f", $time);
-cmp_ok($time_int, '==', 5,'check that main thread sleeps full 5 seconds after CHLD signal');
+cmp_ok($time_int, '>=', 5,'check that main thread sleeps full 5 seconds after CHLD signal');
cmp_ok($time_int, '<=', 7,'check that main thread did not sleep too long after CHLD signal'); #clock drift / signal delay tolerance
# Check that main thread waits full 5 seconds after CHLD signal
SKIP: {
- skip('usleep not supported on this platform',1) unless &Time::HiRes::d_usleep && defined(my $t = eval { Time::HiRes::usleep(0) }) && !$@;
+ skip('usleep not supported on this platform',1) unless &Time::HiRes::d_usleep && defined(my $t = eval { &Time::HiRes::usleep(0) }) && !$@;
$t1 = threads->new(sub { sleep 1; });
- $time = Time::HiRes::usleep 5000000;
+ $time = &Time::HiRes::usleep(5000000);
$t1->join();
$time_int = sprintf("%.0f", $time / 10**6);
- cmp_ok($time_int, '==', 5,'check that main thread sleeps full 5 seconds after CHLD signal');
+ cmp_ok($time_int, '>=', 5,'check that main thread sleeps full 5 seconds after CHLD signal');
cmp_ok($time_int, '<=', 7,'check that main thread did not sleep too long after CHLD signal'); #clock drift / signal delay tolerance
}
# Check that main thread waits full 5 seconds after CHLD signal
SKIP: {
skip('Time::HiRes::nanosleep function not supported on this platform',1)
- unless &Time::HiRes::d_nanosleep && defined(my $t = eval { Time::HiRes::nanosleep(0) }) && !$@;
+ unless &Time::HiRes::d_nanosleep && defined(my $t = eval { &Time::HiRes::nanosleep(0) }) && !$@;
$t1 = threads->new(sub { sleep 1; });
- $time = Time::HiRes::nanosleep 5000000000;
+ $time = &Time::HiRes::nanosleep(5000000000);
$t1->join();
$time_int = sprintf("%.0f", ($time / 10**9));
- cmp_ok($time_int, '==', 5,'check that main thread sleeps full 5 seconds after CHLD signal');
+ cmp_ok($time_int, '>=', 5,'check that main thread sleeps full 5 seconds after CHLD signal');
cmp_ok($time_int, '<=', 7,'check that main thread did not sleep too long after CHLD signal'); #clock drift / signal delay tolerance
}
@@ -100,7 +100,7 @@
$time = sleep 5;
$t1->join();
$time_int = sprintf("%.0f", $time);
-cmp_ok($time_int, '==', 5,'check that main thread sleeps full 5 seconds after custom CHLD signal');
+cmp_ok($time_int, '>=', 5,'check that main thread sleeps full 5 seconds after custom CHLD signal');
cmp_ok($time_int, '<=', 7,'check that main thread did not sleep too long after CHLD signal'); #clock drift / signal delay tolerance
cmp_ok($cnt, '>=', 1,'check that custom CHLD signal was called');
More information about the Pkg-perl-cvs-commits
mailing list