I'm having a small problem with appending lines to files on shared file
systems (NFS mounted).
This problem does NOT occur for regular file systems, only NFS mounted
ones.
Last weekend our system admins applied some new op patches and did some
pm. When we
came back up we started getting warning messages on our close statement
indicating that the perl
script was unable to close the file handle. We never got these warning
messages before these patches
and our systems people cannot find anything in our system (sun solaris)
that may have been changed
to make this start happening.
The warning messages seem to only happen when mulitple people are
trying to write (and then close) to the same file at the same time and
only on NFS mounted
file systems. Again , local file systems do not have this problem no
matter how many processes
are concurrently writing to the file. The error messages do not seem
to be causing any problems though. All messages are being correctly
appended to the file (in both NFS
and local file systems). The function that does the writing is in a
module and does something like this...
package logger;
sub logit {
my (@my_log_messages) = @_;
local *File;
open (File, ">> $ENV{LOGDIR}/logfile") || die $!;
for my $i (@my_log_messages) {
print File "$i\n";
}
close(File) || warn $!;
}
1;
Has anybody run into this before?
_______________________________________________
Perl-Unix-Users mailing list. To unsubscribe go to
http://listserv.ActiveState.com/mailman/subscribe/perl-unix-users
