Introduced the verbose switch.

[libucw.git] / lib / perl / Filelock / Filelock.pm

diff --git a/lib/perl/Filelock/Filelock.pm b/lib/perl/Filelock/Filelock.pm
index cace06660e1e9b8a1207deb2546be807e48007f0..a350605091e6e102b9ba300460c0af557566b546 100644 (file)
--- a/lib/perl/Filelock/Filelock.pm
+++ b/lib/perl/Filelock/Filelock.pm
@@ -8,7 +8,7 @@
 #
 #
 # Interface:
-#   Sherlock::Filelock::fcntllock($handle, $type, $whence, $start, $len)
+#   Sherlock::Filelock::fcntl_lock($fd, $cmd, $type, $whence, $start, $len)
 #
 
 package Sherlock::Filelock;
@@ -17,23 +17,11 @@ use 5.006;
 use strict;
 use warnings;
 
-require Exporter;
 require DynaLoader;
 
-our @ISA = qw(Exporter DynaLoader);
+our @ISA = qw(DynaLoader);
 unshift @DynaLoader::dl_library_path, "lib";
 
-# This allows declaration      use Filelock ':all';
-# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
-# will save memory.
-our %EXPORT_TAGS = ( 'all' => [ qw(
-
-) ] );
-
-our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
-
-our @EXPORT = qw(
-);
 our $VERSION = '0.01';
 
 bootstrap Sherlock::Filelock $VERSION;