In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/4a8201aff7f38c9cbb9f61d8f237847ae18a7e13?hp=38a188f00b421226043888cca8bf19e98bad0873>
- Log ----------------------------------------------------------------- commit 4a8201aff7f38c9cbb9f61d8f237847ae18a7e13 Author: Jan Dubois <[email protected]> Date: Tue Jul 20 17:57:21 2010 -0700 Remove spurious ')' ----------------------------------------------------------------------- Summary of changes: t/op/readline.t | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/t/op/readline.t b/t/op/readline.t index 29f6d4d..d2c2c6f 100644 --- a/t/op/readline.t +++ b/t/op/readline.t @@ -170,14 +170,14 @@ SKIP: { my $twice; TODO: { - todo_skip( 'alarm() on Windows does not interrupt system calls)' ) if $^O eq 'MSWin32'; + todo_skip( 'alarm() on Windows does not interrupt system calls' ) if $^O eq 'MSWin32'; todo_skip( 'readline not interrupted by alarm on VMS -- why?' ) if $^O eq 'VMS'; $twice = test_eintr_readline( $in, 1 ); isnt( $twice, "once\n", "readline didn't re-return things when interrupted" ); } TODO: { - todo_skip( 'alarm() on Windows does not interrupt system calls)' ) if $^O eq 'MSWin32'; + todo_skip( 'alarm() on Windows does not interrupt system calls' ) if $^O eq 'MSWin32'; todo_skip( 'readline not interrupted by alarm on VMS -- why?' ) if $^O eq 'VMS'; local our $TODO = "bad readline returns '', not undef"; is( $twice, undef, "readline returned undef when interrupted" ); -- Perl5 Master Repository
