Bug #101415 for IPC-Run: t/timer.t is SIGBREAK on Windows 8.1

----------------------------------------------------------- - Issue ----------------------------------------------------------- t/timer.t is SIGBREAK on Windows 8.1 ----------------------------------------------------------- - Perl Version ----------------------------------------------------------- This is perl 5, version 16, subversion 3 (v5.16.3) built for MSWin32-x64-multi-thread (with 1 registered patch, see perl -V for more detail) Copyright 1987-2012, Larry Wall Binary build 1603 [296746] provided by ActiveState http://www.ActiveState.com Built Mar 13 2013 13:31:10 Perl may be copied only under the terms of either the Artistic License or the GNU General Public License, which may be found in the Perl 5 source kit. Complete documentation for Perl, including FAQ lists, should be found on this system using "man perl" or "perldoc perl". If you have access to the Internet, point your browser at http://www.perl.org/, the Perl Home Page. ----------------------------------------------------------- - Windows Version ----------------------------------------------------------- Microsoft Windows 8.1 Pro windows32 2.6.2 9200 i686-pc Intel unknown MinGW ----------------------------------------------------------- - Test Output ----------------------------------------------------------- D:\perl timer.t 1..72 ok 1 ok 2 ok 3 ok 4 ok 5 ok 6 ok 7 ok 8 ok 9 ok 10 ok 11 ok 12 ok 13 ok 14 ok 15 ok 16 ok 17 ok 18 ok 19 ok 20 ok 21 ok 22 ok 23 ok 24 ok 25 ok 26 ok 27 ok 28 ok 29 ok 30 ok 31 ok 32 ok 33 ok 34 ok 35 ok 36 ok 37 ok 38 ok 39 ok 40 ok 41 ok 42 ok 43 ok 44 ok 45 ok 46 ok 47 ok 48 ok 49 ok 50 ok 51 ok 52 ok 53 ok 54 ok 55 ok 56 ok 57 ok 58 ok 59 ok 60 ok 61 ok 62 ok 63 ok 64 ok 65 ok 66 ok 67 ok 68 ok 69 ok 70 ok 71 Terminating on signal SIGBREAK(21) Terminating on signal SIGBREAK(21) ----------------------------------------------------------- - Perl Debug Output ----------------------------------------------------------- D:\perl -d timer.t Loading DB routines from perl5db.pl version 1.37 Editor support available. Enter h or 'h h' for help, or 'perldoc perldebug' for more help. 1..72 main::(timer.t:26): my $t; DB<1> n main::(timer.t:27): my $started; DB<1> main::(timer.t:29): $t = timer( DB<1> main::(timer.t:33): is( ref $t, 'IPC::Run::Timer' ); DB<1> ok 1 main::(timer.t:35): is( $t->interval, 1 ); DB<1> ok 2 main::(timer.t:37): $t->interval( 0 ); is( $t->interval, 0 ); DB<1> main::(timer.t:37): $t->interval( 0 ); is( $t->interval, 0 ); DB<1> ok 3 main::(timer.t:38): $t->interval( 0.1 ); ok( $t->interval > 0 ); DB<1> main::(timer.t:38): $t->interval( 0.1 ); ok( $t->interval > 0 ); DB<1> ok 4 main::(timer.t:39): $t->interval( 1 ); ok( $t->interval >= 1 ); DB<1> main::(timer.t:39): $t->interval( 1 ); ok( $t->interval >= 1 ); DB<1> ok 5 main::(timer.t:40): $t->interval( 30 ); ok( $t->interval >= 30 ); DB<1> main::(timer.t:40): $t->interval( 30 ); ok( $t->interval >= 30 ); DB<1> ok 6 main::(timer.t:41): $t->interval( 30.1 ); ok( $t->interval > 30 ); DB<1> main::(timer.t:41): $t->interval( 30.1 ); ok( $t->interval > 30 ); DB<1> ok 7 main::(timer.t:42): $t->interval( 30.1 ); ok( $t->interval <= 31 ); DB<1> main::(timer.t:42): $t->interval( 30.1 ); ok( $t->interval <= 31 ); DB<1> ok 8 main::(timer.t:44): $t->interval( "1:0" ); is( $t->interval, 60 ); DB<1> main::(timer.t:44): $t->interval( "1:0" ); is( $t->interval, 60 ); DB<1> ok 9 main::(timer.t:45): $t->interval( "1:0:0" ); is( $t->interval, 3600 ); DB<1> main::(timer.t:45): $t->interval( "1:0:0" ); is( $t->interval, 3600 ); DB<1> ok 10 main::(timer.t:46): $t->interval( "1:1:1" ); is( $t->interval, 3661 ); DB<1> main::(timer.t:46): $t->interval( "1:1:1" ); is( $t->interval, 3661 ); DB<1> ok 11 main::(timer.t:47): $t->interval( "1:1:1.1" ); ok( $t->interval > 3661 ); DB<1> main::(timer.t:47): $t->interval( "1:1:1.1" ); ok( $t->interval > 3661 ); DB<1> ok 12 main::(timer.t:48): $t->interval( "1:1:1.1" ); ok( $t->interval <= 3662 ); DB<1> main::(timer.t:48): $t->interval( "1:1:1.1" ); ok( $t->interval <= 3662 ); DB<1> ok 13 main::(timer.t:49): $t->interval( "1:1:1:1" ); is( $t->interval, 90061 ); DB<1> main::(timer.t:49): $t->interval( "1:1:1:1" ); is( $t->interval, 90061 ); DB<1> ok 14 main::(timer.t:51): $t->reset; DB<1> main::(timer.t:52): $t->interval( 5 ); DB<1> main::(timer.t:53): $t->start( 1, 0 ); DB<1> main::(timer.t:54): ok( ! $t->is_expired ); DB<1> ok 15 main::(timer.t:55): ok( !! $t->is_running ); DB<1> ok 16 main::(timer.t:56): ok( ! $t->is_reset ); DB<1> ok 17 main::(timer.t:57): ok( !! $t->check( 0 ) ); DB<1> ok 18 main::(timer.t:58): ok( ! $t->is_expired ); DB<1> ok 19 main::(timer.t:59): ok( !! $t->is_running ); DB<1> ok 20 main::(timer.t:60): ok( ! $t->is_reset ); DB<1> ok 21 main::(timer.t:61): ok( !! $t->check( 1 ) ); DB<1> ok 22 main::(timer.t:62): ok( ! $t->is_expired ); DB<1> ok 23 main::(timer.t:63): ok( !! $t->is_running ); DB<1> ok 24 main::(timer.t:64): ok( ! $t->is_reset ); DB<1> ok 25 main::(timer.t:65): ok( ! $t->check( 2 ) ); DB<1> ok 26 main::(timer.t:66): ok( !! $t->is_expired ); DB<1> ok 27 main::(timer.t:67): ok( ! $t->is_running ); DB<1> ok 28 main::(timer.t:68): ok( ! $t->is_reset ); DB<1> ok 29 main::(timer.t:69): ok( ! $t->check( 3 ) ); DB<1> ok 30 main::(timer.t:70): ok( !! $t->is_expired ); DB<1> ok 31 main::(timer.t:71): ok( ! $t->is_running ); DB<1> ok 32 main::(timer.t:72): ok( ! $t->is_reset ); DB<1> ok 33 main::(timer.t:76): $t->start( undef, 0 ); DB<1> main::(timer.t:77): ok( ! $t->is_expired ); DB<1> ok 34 main::(timer.t:78): ok( !! $t->is_running ); DB<1> ok 35 main::(timer.t:79): ok( ! $t->is_reset ); DB<1> ok 36 main::(timer.t:80): ok( !! $t->check( 0 ) ); DB<1> ok 37 main::(timer.t:81): ok( ! $t->is_expired ); DB<1> ok 38 main::(timer.t:82): ok( !! $t->is_running ); DB<1> ok 39 main::(timer.t:83): ok( ! $t->is_reset ); DB<1> ok 40 main::(timer.t:84): ok( !! $t->check( 1 ) ); DB<1> ok 41 main::(timer.t:85): ok( ! $t->is_expired ); DB<1> ok 42 main::(timer.t:86): ok( !! $t->is_running ); DB<1> ok 43 main::(timer.t:87): ok( ! $t->is_reset ); DB<1> ok 44 main::(timer.t:88): ok( ! $t->check( 2 ) ); DB<1> ok 45 main::(timer.t:89): ok( !! $t->is_expired ); DB<1> ok 46 main::(timer.t:90): ok( ! $t->is_running ); DB<1> ok 47 main::(timer.t:91): ok( ! $t->is_reset ); DB<1> ok 48 main::(timer.t:92): ok( ! $t->check( 3 ) ); DB<1> ok 49 main::(timer.t:93): ok( !! $t->is_expired ); DB<1> ok 50 main::(timer.t:94): ok( ! $t->is_running ); DB<1> ok 51 main::(timer.t:95): ok( ! $t->is_reset ); DB<1> ok 52 main::(timer.t:99): $t->start( 1, 0 ); DB<1> main::(timer.t:100): $t->start( undef, 0 ); DB<1> main::(timer.t:101): ok( ! $t->is_expired ); DB<1> ok 53 main::(timer.t:102): ok( !! $t->is_running ); DB<1> ok 54 main::(timer.t:103): ok( ! $t->is_reset ); DB<1> ok 55 main::(timer.t:104): ok( !! $t->check( 0 ) ); DB<1> ok 56 main::(timer.t:105): ok( ! $t->is_expired ); DB<1> ok 57 main::(timer.t:106): ok( !! $t->is_running ); DB<1> ok 58 main::(timer.t:107): ok( ! $t->is_reset ); DB<1> ok 59 main::(timer.t:108): ok( !! $t->check( 1 ) ); DB<1> ok 60 main::(timer.t:109): ok( ! $t->is_expired ); DB<1> ok 61 main::(timer.t:110): ok( !! $t->is_running ); DB<1> ok 62 main::(timer.t:111): ok( ! $t->is_reset ); DB<1> ok 63 main::(timer.t:112): ok( ! $t->check( 2 ) ); DB<1> ok 64 main::(timer.t:113): ok( !! $t->is_expired ); DB<1> ok 65 main::(timer.t:114): ok( ! $t->is_running ); DB<1> ok 66 main::(timer.t:115): ok( ! $t->is_reset ); DB<1> ok 67 main::(timer.t:116): ok( ! $t->check( 3 ) ); DB<1> ok 68 main::(timer.t:117): ok( !! $t->is_expired ); DB<1> ok 69 main::(timer.t:118): ok( ! $t->is_running ); DB<1> ok 70 main::(timer.t:119): ok( ! $t->is_reset ); DB<1> ok 71 main::(timer.t:121): my $got; DB<1> main::(timer.t:122): eval { DB<1> main::(timer.t:123): $got = "timeout fired"; DB<1> main::(timer.t:124): run [$^X, '-e', 'sleep 3'], timeout 1; DB<1> Terminating on signal SIGBREAK(21) Terminating on signal SIGBREAK(21) at C:/Perl64/site/lib/IPC/Run.pm line 1597. IPC::Run::kill_kill(IPC::Run=HASH(0x32703c8)) called at C:/Perl64/site/lib/IPC/Run.pm line 1455 IPC::Run::run(ARRAY(0x32701b8), IPC::Run::Timer=HASH(0x326fd08)) called at timer.t line 124 eval {...} called at timer.t line 122 [Description: Description: cid:image001.png@01CAAA70.A85EBAC0] Jason McDaniel, Software Engineer Phone: 512-651-5834 x.1123 Email: jmcdaniel@algebraixdata.com<mailto:jmcdaniel@algebraixdata.com> www.algebraixdata.com<http://www.algebraixdata.com/> ---- NOTICE: This e-mail, including attachments, is covered by the Electronic Communications Privacy Act, 18 U.S.C. 2510-2521, is confidential, and may be legally privileged. If you are not the intended recipient, you are hereby notified that any retention, dissemination, distribution, or copying of this communication is strictly prohibited ----