From 44272b66e0a9bead64965973d53a42ecff358fef Mon Sep 17 00:00:00 2001 From: Pavel Charvat Date: Tue, 20 Mar 2007 10:49:57 +0100 Subject: [PATCH] simplified usage of Log & Die --- lib/perl/Log.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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]; -- 2.39.2