X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=lib%2Fperl%2FLog.pm;h=6b1fa1fcac986554a05ea30b7d6d8476fae6206a;hb=d60ede19ab84382101d313e3185b1a0ef6714088;hp=bd97f6c5dbd6a41a06177fad01f45538b28c08e9;hpb=c1b802af00ef118d1a5cedd8026971653d3755ac;p=libucw.git

diff --git a/lib/perl/Log.pm b/lib/perl/Log.pm
index bd97f6c5..6b1fa1fc 100644
--- 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;
@@ -15,8 +15,8 @@ use Exporter;
 our $version = 1.0;
 our @ISA = qw(Exporter);
 our @EXPORT = ();
-our @EXPORT_OK = qw(Log Die);
 our %EXPORT_TAGS = ( all => [qw(&Log &Die)]);
+our @EXPORT_OK = (@{$EXPORT_TAGS{'all'}});
 
 my $Prog = (reverse split(/\//, $0))[0];