In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9745959a89f3a201c789b8e4ce494405f95b2a7a?hp=898c5644d1595a2fee23494ee81ea932edb930c1>
- Log ----------------------------------------------------------------- commit 9745959a89f3a201c789b8e4ce494405f95b2a7a Author: Tony Cook <[email protected]> Date: Sat Dec 20 13:52:29 2014 +1100 PerlIO::scalar: skip the 4GB seek test if off_t is too small ----------------------------------------------------------------------- Summary of changes: ext/PerlIO-scalar/t/scalar.t | 3 +++ 1 file changed, 3 insertions(+) diff --git a/ext/PerlIO-scalar/t/scalar.t b/ext/PerlIO-scalar/t/scalar.t index f1156d6..f4cfbef 100644 --- a/ext/PerlIO-scalar/t/scalar.t +++ b/ext/PerlIO-scalar/t/scalar.t @@ -492,7 +492,10 @@ my $byte_warning = "Strings with code points over 0xFF may not be mapped into in is $x, $as_string."boo\n", 'string gets appended to ref'; } +SKIP: { # [perl #123443] + skip "Can't seek over 4GB with a small off_t", 4 + if $Config::Config{lseeksize} < 8; my $buf0 = "hello"; open my $fh, "<", \$buf0 or die $!; ok(seek($fh, 2**32, SEEK_SET), "seek to a large position"); -- Perl5 Master Repository
