In perl.git, the branch tonyc/scalar-write has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9a42b785986eb723b7f65b9f67466e10a83fcd25?hp=a5a47c57aba9b34b6a5a4ebc2ed016fcd74f28fa>
- Log ----------------------------------------------------------------- commit 9a42b785986eb723b7f65b9f67466e10a83fcd25 Author: Tony Cook <[email protected]> Date: Thu Jan 15 15:56:36 2015 +1100 wrong false, so just check for false ----------------------------------------------------------------------- Summary of changes: ext/PerlIO-scalar/t/scalar.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ext/PerlIO-scalar/t/scalar.t b/ext/PerlIO-scalar/t/scalar.t index 4bec0af..872d041 100644 --- a/ext/PerlIO-scalar/t/scalar.t +++ b/ext/PerlIO-scalar/t/scalar.t @@ -519,5 +519,5 @@ SKIP: open my $fh, "+<", \$buf0 or die $!; ok(seek($fh, 2**32, SEEK_SET), "seek to a large position"); select((select($fh), ++$|)[0]); - is((print $fh "x"), 0, "write to a large offset"); + ok(!(print $fh "x"), "write to a large offset"); } -- Perl5 Master Repository
