In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/38a188f00b421226043888cca8bf19e98bad0873?hp=cea2f1cbccab770a9cfecaf94cd0bcfefc1bcc72>
- Log ----------------------------------------------------------------- commit 38a188f00b421226043888cca8bf19e98bad0873 Author: Jan Dubois <[email protected]> Date: Tue Jul 20 17:50:46 2010 -0700 Use .\ instead of ./ on Windows M t/porting/authors.t commit 70f768d983ee29d493442c9fd8547be31839c971 Author: Jan Dubois <[email protected]> Date: Tue Jul 20 17:38:47 2010 -0700 alarm() on Windows doesn't interrupt system calls alarm() on Windows is implemented using a timer that is checked in win32_async_check(), so there is no way a SIGALRM can be raised while Perl is blocking in a system call. M t/op/readline.t ----------------------------------------------------------------------- Summary of changes: t/op/readline.t | 2 ++ t/porting/authors.t | 3 ++- 2 files changed, 4 insertions(+), 1 deletions(-) diff --git a/t/op/readline.t b/t/op/readline.t index dece3f4..29f6d4d 100644 --- a/t/op/readline.t +++ b/t/op/readline.t @@ -170,12 +170,14 @@ SKIP: { my $twice; TODO: { + 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( '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" ); diff --git a/t/porting/authors.t b/t/porting/authors.t index da8cf95..76aac55 100644 --- a/t/porting/authors.t +++ b/t/porting/authors.t @@ -14,6 +14,7 @@ if (! -d '.git' ) { exit 0; } -system("git log --pretty=fuller | ./perl -Ilib Porting/checkAUTHORS.pl --tap --acknowledged AUTHORS -"); +my $dotslash = $^O eq "MSWin32" ? ".\\" : "./"; +system("git log --pretty=fuller | ${dotslash}perl -Ilib Porting/checkAUTHORS.pl --tap --acknowledged AUTHORS -"); # EOF -- Perl5 Master Repository
