diff options
| author | Tony Cook <tony@develop-help.com> | 2014-12-20 13:52:29 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2014-12-20 13:52:29 +1100 |
| commit | 9745959a89f3a201c789b8e4ce494405f95b2a7a (patch) | |
| tree | 4eceef7684157c275c75ea9044191e2c10c43903 /ext/PerlIO-scalar | |
| parent | 898c5644d1595a2fee23494ee81ea932edb930c1 (diff) | |
| download | perl-9745959a89f3a201c789b8e4ce494405f95b2a7a.tar.gz | |
PerlIO::scalar: skip the 4GB seek test if off_t is too small
Diffstat (limited to 'ext/PerlIO-scalar')
| -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"); |