Some Perl modules have moved to UCW namespace.

diff --git a/lib/perl/Config.pm b/lib/perl/Config.pm
index d145495cb25a4c21c0d5b02b2057b68918ef8818..552690caccea76fa85eeb8feb2a1dfff67125e4a 100644 (file)
--- a/lib/perl/Config.pm
+++ b/lib/perl/Config.pm
@@ -5,7 +5,7 @@
 #      This software may be freely distributed and used according to the terms
 #      of the GNU Lesser General Public License.
 
-package Sherlock::Config;
+package UCW::Config;
 
 use strict;
 use warnings;
@@ -44,7 +44,7 @@ sub Parse(@) {
                        } elsif (ref $var eq "ARRAY") {
                                push @$var, $val;
                        } elsif (ref $var) {
-                               die ("Sherlock::Config::Parse: don't know how to set $o");
+                               die ("UCW::Config::Parse: don't know how to set $o");
                        }
                }
        }

diff --git a/lib/perl/Filelock/Filelock.pm b/lib/perl/Filelock/Filelock.pm
index a350605091e6e102b9ba300460c0af557566b546..a81865e7622118d4c643f9b9687a8741e3384099 100644 (file)
--- a/lib/perl/Filelock/Filelock.pm
+++ b/lib/perl/Filelock/Filelock.pm
@@ -8,10 +8,10 @@
 #
 #
 # 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;
@@ -24,7 +24,7 @@ unshift @DynaLoader::dl_library_path, "lib";
 
 our $VERSION = '0.01';
 
-bootstrap Sherlock::Filelock $VERSION;
+bootstrap UCW::Filelock $VERSION;
 
 # Preloaded methods go here.
 

diff --git a/lib/perl/Filelock/Filelock.xs b/lib/perl/Filelock/Filelock.xs
index 7b830e29e4d5d2fd09b98b6b8d29fb3db3466866..df92e035693ea1df6b6e47c9d5322ed19d655a6a 100644 (file)
--- a/lib/perl/Filelock/Filelock.xs
+++ b/lib/perl/Filelock/Filelock.xs
@@ -12,7 +12,7 @@
 #include <fcntl.h>
 
 
-MODULE = Sherlock::Filelock            PACKAGE = Sherlock::Filelock
+MODULE = UCW::Filelock         PACKAGE = UCW::Filelock
 
 PROTOTYPES: ENABLED
 

diff --git a/lib/perl/Filelock/Makefile.PL b/lib/perl/Filelock/Makefile.PL
index b0092ea4c30734c0d1dc25af38b209f320d3b069..edc23aa3ada0b19a0bce9663129b463410844519 100644 (file)
--- a/lib/perl/Filelock/Makefile.PL
+++ b/lib/perl/Filelock/Makefile.PL
@@ -2,7 +2,7 @@
 
 use ExtUtils::MakeMaker;
 WriteMakefile(
-    'NAME'             => 'Sherlock::Filelock',
+    'NAME'             => 'UCW::Filelock',
     'VERSION_FROM'     => 'Filelock.pm',
     'INST_LIB'         => 'lib',
     'INST_ARCHLIB'     => 'arch',

diff --git a/lib/perl/Log.pm b/lib/perl/Log.pm
index 7c4f3a10a81f9077d90e74618c139026ce58b823..6b1fa1fcac986554a05ea30b7d6d8476fae6206a 100644 (file)
--- a/lib/perl/Log.pm
+++ b/lib/perl/Log.pm
@@ -4,7 +4,7 @@
 #      (c) 2007 Pavel Charvat <pchar@ucw.cz>
 #
 
-package Sherlock::Log;
+package UCW::Log;
 
 use lib 'lib/perl5';
 use strict;

diff --git a/lib/perl/Ulimit/Makefile.PL b/lib/perl/Ulimit/Makefile.PL
index 37d0bdf34e1732393f33f85159836053d3f3809a..1f5ae5af29c2594d309d1bc9e5fda718d1f30a31 100644 (file)
--- a/lib/perl/Ulimit/Makefile.PL
+++ b/lib/perl/Ulimit/Makefile.PL
@@ -2,7 +2,7 @@
 
 use ExtUtils::MakeMaker;
 WriteMakefile(
-    'NAME'             => 'Sherlock::Ulimit',
+    'NAME'             => 'UCW::Ulimit',
     'VERSION_FROM'     => 'Ulimit.pm',
     'INST_LIB'         => 'lib',
     'INST_ARCHLIB'     => 'arch',

diff --git a/lib/perl/Ulimit/Ulimit.pm b/lib/perl/Ulimit/Ulimit.pm
index 8e198324cc597e340135ead39efb5c6bb0a8da29..8497dfa0452631adcc457ac1f3c8afda844a13b8 100644 (file)
--- a/lib/perl/Ulimit/Ulimit.pm
+++ b/lib/perl/Ulimit/Ulimit.pm
@@ -8,15 +8,15 @@
 #
 #
 # Interface:
-#   Sherlock::Ulimit::setlimit( $resource, $softlimit, $hardlimit)
-#   Sherlock::Ulimit::getlimit( $resource, $softlimit, $hardlimit)
+#   UCW::Ulimit::setlimit( $resource, $softlimit, $hardlimit)
+#   UCW::Ulimit::getlimit( $resource, $softlimit, $hardlimit)
 #
 # setlimit sets limit to values supplied in softlimit and hardlimit
 # getlimit reads limits into softlimit and hardlimit
 # $resource constants are defined below
 #
 
-package Sherlock::Ulimit;
+package UCW::Ulimit;
 
 use 5.006;
 use strict;
@@ -40,7 +40,7 @@ our $AS = 9;
 
 our $VERSION = '0.01';
 
-bootstrap Sherlock::Ulimit $VERSION;
+bootstrap UCW::Ulimit $VERSION;
 
 # Preloaded methods go here.
 

diff --git a/lib/perl/Ulimit/Ulimit.xs b/lib/perl/Ulimit/Ulimit.xs
index 5d6a368d1d1ee6cde696371f42cf38dae69d9029..5290cf1d75d3a76a53f80c29172d939b7729595c 100644 (file)
--- a/lib/perl/Ulimit/Ulimit.xs
+++ b/lib/perl/Ulimit/Ulimit.xs
@@ -12,7 +12,7 @@
 #include <unistd.h>
 
 
-MODULE = Sherlock::Ulimit              PACKAGE = Sherlock::Ulimit
+MODULE = UCW::Ulimit           PACKAGE = UCW::Ulimit
 
 PROTOTYPES: ENABLED