Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2025-04-03 04:52:54 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
slamm%netscape.com 1999-08-26 01:14:49 +00:00
parent 6925331053
commit c58c99cbab
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
webtools/tinderbox/Backwards.pm
View File

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