Well, here is an example I ran on the redhat boxes at work and my debian box at home, it shows bad data on both systems if run enough (usually 20 iterations will do it). I also added a check for syswrite... doesn't seem to be writing short data.
#!/usr/bin/perl
use Fcntl qw(:DEFAULT :flock);
use strict;
my $FH;
my $fn = 'flockdata';
my $test_data = (join('','a'..'z')."\n") x 10;
#print length($test_data),"\n";
sysopen($FH,$fn,O_WRONLY|O_CREAT);
for(1..10) {
last unless fork();
}
for(1..20) {
die "FLOCK ERROR\n" unless flock($FH,LOCK_EX);
die "SYSWRITE ERROR\n" unless syswrite($FH,$test_data,length($test_d
+ata)) == \
length($test_data);
flock($FH,LOCK_UN);
}
close $FH;
and to run it when named testflock.pl
perl -e 'system(q{perl testflock.pl ; ls -al flockdata; rm flockdata})
+ for 1..20'
- Ant
- Some of my
best work - (1 2 3)
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|