42_offset.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
# 2003-04-09 Tels: test the offset method from 0.94
use strict;
use POSIX 'SEEK_SET';
my $file = "tf$$.txt";
{
$| = 1;
{
# testing with the core distribution
}
chdir 't' if -d 't';
print "# INC = @INC\n";
}
$/ = "#"; # avoid problems with \n\r vs. \n
my @a;
$a[0] = 'Bourbon';
$a[1] = 'makes';
$a[2] = 'the baby';
$a[3] = 'grin';
$a[4] = '!';
$a[3] = 'water';
END {
undef $o;
untie @a;
}