From: Peter Scott <Peter@PSDT.com>
Date: Mon, 23 Oct 2000 19:46:01 +0000 (-0700)
Subject: Re: [ID 20001023.003] PATCH perlfaq5 [perl-current]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e2c57c3ea2e1fe3adabb752ab93e7f4b7746a103;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 20001023.003] PATCH perlfaq5 [perl-current]
Message-Id: <4.3.2.7.2.20001023194324.00ab7220@psdt.com>

p4raw-id: //depot/perl@7424
---

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 = <FH> || 0;