210 |
|
|
211 |
sub lock |
sub lock |
212 |
{ |
{ |
213 |
use Fcntl qw(:DEFAULT :flock); |
my ($fh, $mode) = @_; |
214 |
my ($fh) = shift; |
# Cannot use @_ here. |
215 |
if (!flock ($fh, @_)) |
if (!flock ($fh, $mode)) |
216 |
{ |
{ |
217 |
my $file = $fh->name; |
my $file = $fh->name; |
218 |
croak "$me: cannot lock $file with @_: $!\n"; |
croak "$me: cannot lock $file with mode $mode: $!\n"; |
219 |
} |
} |
220 |
} |
} |
221 |
|
|
240 |
|
|
241 |
sub truncate |
sub truncate |
242 |
{ |
{ |
243 |
my ($fh) = shift; |
my ($fh, $len) = @_; |
244 |
if (!truncate ($fh, @_)) |
if (!truncate ($fh, $len)) |
245 |
{ |
{ |
246 |
my $file = $fh->name; |
my $file = $fh->name; |
247 |
croak "$me: cannot truncate $file with @_: $!\n"; |
croak "$me: cannot truncate $file at $len: $!\n"; |
248 |
} |
} |
249 |
} |
} |
250 |
|
|