Try to support a wider range of machines. Thanks to Dave Morrison <dave@bnl.gov> for the patch.

This commit is contained in:
slamm%netscape.com 1999-08-26 01:14:49 +00:00
Родитель 6925331053
Коммит c58c99cbab
1 изменённых файлов: 4 добавлений и 3 удалений

Просмотреть файл

@ -36,14 +36,14 @@ sub new {
# open the file for reading # open the file for reading
unless( sysopen( $handle, $filename, O_RDONLY ) ) { unless( open( $handle, $filename ) ) {
carp "Can't open $filename $!" ; carp "Can't open $filename $!" ;
return ; return ;
} }
# seek to the end of the file # seek to the end of the file
seek( $handle, 0, 2 ) ; sysseek( $handle, 0, 2 ) ;
$seek_pos = tell( $handle ) ; $seek_pos = tell( $handle ) ;
# get the size of the first block to read, # get the size of the first block to read,
@ -115,12 +115,13 @@ sub readline {
$seek_pos -= $read_size ; $seek_pos -= $read_size ;
$self->{'seek_pos'} = $seek_pos ; $self->{'seek_pos'} = $seek_pos ;
seek( $handle, $seek_pos, 0 ) ; sysseek( $handle, $seek_pos, 0 ) ;
#print "seek $seek_pos\n" ; #print "seek $seek_pos\n" ;
# read in the next (previous) block of text # read in the next (previous) block of text
sysseek($handle, 0, 1);
$read_cnt = sysread( $handle, $read_buf, $read_size ) ; $read_cnt = sysread( $handle, $read_buf, $read_size ) ;
#print "Read <$read_buf>\n" ; #print "Read <$read_buf>\n" ;