Searched refs:OLEFILE (Results 1 – 1 of 1) sorted by relevance
3848 OLEFILE: foreach my $inname (@NativeFilenames) { label3886 next OLEFILE if $length>1000; # Bail out if it went wrong3894 next OLEFILE if $length>1000; # Bail out if it went wrong3895 sysseek $infh, 4, Fcntl::SEEK_CUR or next OLEFILE; # Skip next 4 bytes3896 sysread $infh, $number, 4 or next OLEFILE;3902 next OLEFILE;3904 sysread $infh, $number, 4 or next OLEFILE;3912 or next OLEFILE;3914 syswrite $outfh, $buffer, $number or next OLEFILE;