From 20cf31ad16fcd1c218724144c8ee3f2c462912f4 Mon Sep 17 00:00:00 2001 From: "slamm%netscape.com" Date: Thu, 26 Aug 1999 01:14:49 +0000 Subject: [PATCH] Try to support a wider range of machines. Thanks to Dave Morrison for the patch. git-svn-id: svn://10.0.0.236/trunk@44593 18797224-902f-48f8-a5cc-f745e15eee43 --- mozilla/webtools/tinderbox/Backwards.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/mozilla/webtools/tinderbox/Backwards.pm b/mozilla/webtools/tinderbox/Backwards.pm index db6cbff5000..2efd6c2b602 100644 --- a/mozilla/webtools/tinderbox/Backwards.pm +++ b/mozilla/webtools/tinderbox/Backwards.pm @@ -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" ;