diff options
Diffstat (limited to 'ext/PerlIO-scalar/t/scalar.t')
| -rw-r--r-- | ext/PerlIO-scalar/t/scalar.t | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/ext/PerlIO-scalar/t/scalar.t b/ext/PerlIO-scalar/t/scalar.t index f1156d67ec..f4cfbefaf9 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"); |