# (c) 2007 Pavel Charvat <pchar@ucw.cz>
#
-package Sherlock::Log;
+package UCW::Log;
use lib 'lib/perl5';
use strict;
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];