Commit | Line | Data |
---|---|---|
9fda09b6 TC |
1 | #!perl |
2 | BEGIN { | |
3 | chdir 't'; | |
4 | unshift @INC, "../lib"; | |
5 | } | |
6 | ||
7 | use strict; | |
8 | require './test.pl'; | |
9 | use Config qw(%Config); | |
10 | ||
11 | $ENV{PERL_TEST_MEMORY} >= 3 | |
12 | or skip_all("Need ~3Gb for this test"); | |
13 | $Config{ptrsize} >= 8 | |
14 | or skip_all("Need 64-bit pointers for this test"); | |
15 | ||
16 | plan(1); | |
17 | ||
18 | # RT #100514 | |
19 | my $x = ""; | |
20 | read(DATA, $x, 4, 0x80000000); | |
21 | is(length $x, 0x80000004, "check we read to the correct offset"); | |
22 | __DATA__ | |
23 | Food | |
24 |