Merge with git+ssh://git.ucw.cz/projects/sherlock/GIT/sherlock.git#v3.11

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

diff --git a/lib/perl/Log.pm b/lib/perl/Log.pm
index 68b1d3724cb181c70623088c5776e117b67d2e6b..6b1fa1fcac986554a05ea30b7d6d8476fae6206a 100644 (file)
--- a/lib/perl/Log.pm
+++ b/lib/perl/Log.pm
@@ -4,12 +4,19 @@
 #      (c) 2007 Pavel Charvat <pchar@ucw.cz>
 #
 
 #      (c) 2007 Pavel Charvat <pchar@ucw.cz>
 #
 

-package Sherlock::Log;
+package UCW::Log;

 
 use lib 'lib/perl5';
 use strict;
 use warnings;
 use POSIX;
 
 use lib 'lib/perl5';
 use strict;
 use warnings;
 use POSIX;

+use Exporter;
+
+our $version = 1.0;
+our @ISA = qw(Exporter);
+our @EXPORT = ();
+our %EXPORT_TAGS = ( all => [qw(&Log &Die)]);
+our @EXPORT_OK = (@{$EXPORT_TAGS{'all'}});

 
 my $Prog = (reverse split(/\//, $0))[0];
 
 
 my $Prog = (reverse split(/\//, $0))[0];