X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=lib%2Fperl%2FFilelock%2FFilelock.pm;h=a81865e7622118d4c643f9b9687a8741e3384099;hb=d18403664f23ca1464d659b29912758d72b2abec;hp=d55d49ebeb6a7548c1ed3a9aea3468b41f70d4d5;hpb=9656a16dfe13dd25c0d66b684b6ddfa18881b4bb;p=libucw.git

diff --git a/lib/perl/Filelock/Filelock.pm b/lib/perl/Filelock/Filelock.pm
index d55d49eb..a81865e7 100644
--- a/lib/perl/Filelock/Filelock.pm
+++ b/lib/perl/Filelock/Filelock.pm
@@ -8,35 +8,23 @@
 #
 #
 # Interface:
-#   Sherlock::Filelock::fcntl_lock($fd, $cmd, $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;
 
-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;
+bootstrap UCW::Filelock $VERSION;
 
 # Preloaded methods go here.