Merge with git+ssh://git.ucw.cz/projects/sherlock/GIT/sherlock.git#dev-sorter

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

diff --git a/lib/perl/Filelock/Filelock.pm b/lib/perl/Filelock/Filelock.pm
index cace06660e1e9b8a1207deb2546be807e48007f0..a81865e7622118d4c643f9b9687a8741e3384099 100644 (file)
--- a/lib/perl/Filelock/Filelock.pm
+++ b/lib/perl/Filelock/Filelock.pm
@@ -8,35 +8,23 @@
 #
 #
 # Interface:
 #
 #
 # Interface:

-#   Sherlock::Filelock::fcntllock($handle, $type, $whence, $start, $len)
+#   UCW::Filelock::fcntl_lock($fd, $cmd, $type, $whence, $start, $len)

 #
 
 #
 

-package Sherlock::Filelock;
+package UCW::Filelock;

 
 use 5.006;
 use strict;
 use warnings;
 
 
 use 5.006;
 use strict;
 use warnings;
 

-require Exporter;

 require DynaLoader;
 
 require DynaLoader;
 

-our @ISA = qw(Exporter DynaLoader);
+our @ISA = qw(DynaLoader);

 unshift @DynaLoader::dl_library_path, "lib";
 
 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';
 
 our $VERSION = '0.01';
 

-bootstrap Sherlock::Filelock $VERSION;
+bootstrap UCW::Filelock $VERSION;

 
 # Preloaded methods go here.
 
 
 # Preloaded methods go here.