simplified usage of Log & Die

diff --git a/lib/perl/Log.pm b/lib/perl/Log.pm
index bd97f6c5dbd6a41a06177fad01f45538b28c08e9..7c4f3a10a81f9077d90e74618c139026ce58b823 100644 (file)
--- 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];