io_tell.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
else {
}
}
use Config;
BEGIN {
if(-d "lib" && -f "TEST") {
print "1..0\n";
exit 0;
}
}
}
print "1..13\n";
$firstline = <$tst>;
$secondpos = tell;
$x = 0;
while (<$tst>) {
}
if ($x == 1) { print "ok 2\n"; } else { print "not ok 2\n"; }