From: Pavel Charvat <pavel.charvat@netcentrum.cz>
Date: Tue, 20 Mar 2007 09:49:57 +0000 (+0100)
Subject: simplified usage of Log & Die
X-Git-Tag: holmes-import~506^2~94
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=44272b66e0a9bead64965973d53a42ecff358fef;p=libucw.git

simplified usage of Log & Die
---

diff --git a/lib/perl/Log.pm b/lib/perl/Log.pm
index bd97f6c5..7c4f3a10 100644
--- a/lib/perl/Log.pm
+++ b/lib/perl/Log.pm
@@ -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];