This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: [ID 20001023.003] PATCH perlfaq5 [perl-current]
[perl5.git] / pod / perlfaq5.pod
index feb66a4..3cb66bf 100644 (file)
@@ -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;