1#!perl 2BEGIN { 3 chdir 't'; 4 unshift @INC, "../lib"; 5} 6 7use strict; 8require './test.pl'; 9use 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 16plan(1); 17 18# RT #100514 19my $x = ""; 20read(DATA, $x, 4, 0x80000000); 21is(length $x, 0x80000004, "check we read to the correct offset"); 22__DATA__ 23Food 24 25