From e2c57c3ea2e1fe3adabb752ab93e7f4b7746a103 Mon Sep 17 00:00:00 2001 From: Peter Scott Date: Mon, 23 Oct 2000 12:46:01 -0700 Subject: [PATCH] Re: [ID 20001023.003] PATCH perlfaq5 [perl-current] Message-Id: <4.3.2.7.2.20001023194324.00ab7220@psdt.com> p4raw-id: //depot/perl@7424 --- pod/perlfaq5.pod | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pod/perlfaq5.pod b/pod/perlfaq5.pod index feb66a4..3cb66bf 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 = || 0; -- 2.7.4