Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Can't sleep! HP-UX will get me! Resolves Dolmen's bug report at

rt.cpan.org 45158 by using select(undef,undef,undef,$time) instead of
sleep().  I hope that actually works.
  • Loading branch information...
commit fe360ad29196a257f98ea11e71d6c5db6716e5e9 1 parent 46ec4c2
@rcaputo authored
View
2  poe-test-loops/lib/POE/Test/Loops.pm
@@ -6,7 +6,7 @@ use strict;
use vars qw($VERSION);
use vars qw($VERSION $REVISION);
-$VERSION = '1.020'; # NOTE - Should be #.### (three decimal places)
+$VERSION = '1.021'; # NOTE - Should be #.### (three decimal places)
$REVISION = do {my($r)=(q$Revision$=~/(\d+)/);sprintf"0.%04d",$r};
use File::Spec;
View
12 poe-test-loops/lib/POE/Test/Loops/sbk_signal_init.pm
@@ -29,7 +29,17 @@ sub dispatch_normal_signal { $signal_dispatched = 1 }
use POE;
alarm(1);
-sleep 5;
+
+if ($^O eq "MSWin32") {
+ # Cant' select. Windows will get me!
+ # Windows has trouble with select() and undefined input vectors.
+ sleep(5);
+}
+else {
+ # Can't sleep. HP-UX will get me!
+ # HP-UX implements sleep() with alarm(), so they don't mix.
+ select(undef, undef, undef, 5);
+}
ok($signal_dispatched, "normal SIGALRM dispatched");
Please sign in to comment.
Something went wrong with that request. Please try again.