projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b542dcd
)
Re: [ID 20001023.003] PATCH perlfaq5 [perl-current]
author
Peter Scott
<Peter@PSDT.com>
Mon, 23 Oct 2000 19:46:01 +0000
(12:46 -0700)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Tue, 24 Oct 2000 15:15:39 +0000
(15:15 +0000)
Message-Id: <4.3.2.7.2.
20001023194324
.
00ab7220
@psdt.com>
p4raw-id: //depot/perl@7424
pod/perlfaq5.pod
patch
|
blob
|
history
diff --git
a/pod/perlfaq5.pod
b/pod/perlfaq5.pod
index
feb66a4
..
3cb66bf
100644
(file)
--- a/
pod/perlfaq5.pod
+++ b/
pod/perlfaq5.pod
@@
-705,7
+705,7
@@
It's more realistic.
Anyway, this is what you can do if you can't help yourself.
- use Fcntl
':flock'
;
+ use Fcntl
qw(:DEFAULT :flock)
;
sysopen(FH, "numfile", O_RDWR|O_CREAT) or die "can't open numfile: $!";
flock(FH, LOCK_EX) or die "can't flock numfile: $!";
$num = <FH> || 0;