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 bd97f6c5dbd6a41a06177fad01f45538b28c08e9..6b1fa1fcac986554a05ea30b7d6d8476fae6206a 100644 (file)
--- a/lib/perl/Log.pm
+++ b/lib/perl/Log.pm
@@ -4,7 +4,7 @@
 #      (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 lib 'lib/perl5';
 use strict;


@@ -15,8 +15,8 @@ use Exporter;
 our $version = 1.0;
 our @ISA = qw(Exporter);
 our @EXPORT = ();
 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_TAGS = ( all => [qw(&Log &Die)]);

+our @EXPORT_OK = (@{$EXPORT_TAGS{'all'}});

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