diff options
| author | Peter Scott <Peter@PSDT.com> | 2000-10-23 12:46:01 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-24 15:15:39 +0000 |
| commit | e2c57c3ea2e1fe3adabb752ab93e7f4b7746a103 (patch) | |
| tree | 1afccf4fe464789d5e26631867ad9f1cf05a6d1e /pod/perlfaq5.pod | |
| parent | b542dcd5d41cd1a604618b49bf9e9647112d1063 (diff) | |
| download | perl-e2c57c3ea2e1fe3adabb752ab93e7f4b7746a103.tar.gz | |
Re: [ID 20001023.003] PATCH perlfaq5 [perl-current]
Message-Id: <4.3.2.7.2.20001023194324.00ab7220@psdt.com>
p4raw-id: //depot/perl@7424
Diffstat (limited to 'pod/perlfaq5.pod')
| -rw-r--r-- | pod/perlfaq5.pod | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pod/perlfaq5.pod b/pod/perlfaq5.pod index feb66a45cd..3cb66bf5f3 100644 --- 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; |