diff options
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; |