[25828] in Athena Bugs
sun4 9.3.8: perl 5.8.3
daemon@ATHENA.MIT.EDU (Craig A. Counterman)
Wed Jul 21 10:53:37 2004
Message-Id: <200407211453.i6LErRmN012042@emcc2.mit.edu>
To: bugs@mit.edu
Date: Wed, 21 Jul 2004 10:53:27 -0400
From: "Craig A. Counterman" <ccount@mit.edu>
Errors-To: bugs-bounces@mit.edu
System name: emcc2.mit.edu
Type and version: Ultra-250 9.3.8 (with mkserv)
Display type: gfxp
Shell: /bin/athena/tcsh
Window manager: unknown
What were you trying to do?
run a perl script which has been used for years
What's wrong:
I traced it down to the size of the file written to /tmp/
This script results in a 0 length /tmp/bad and a 7168 byte /tmp/good
#!/usr/athena/bin/perl
open(DATA, "> /tmp/bad")|| die "couldn't open tmp data file: $!";
print DATA "1" x 7169;
close(DATA);
open(DATA2, "> /tmp/good")|| die "couldn't open tmp data file: $!";
print DATA2 "1" x 7168;
close(DATA2);
What should have happened:
Please describe any relevant documentation references:
