From: Pavel Charvat <pavel.charvat@netcentrum.cz>
Date: Tue, 20 Mar 2007 09:44:06 +0000 (+0100)
Subject: perl: Log and Die funtions are now exportable
X-Git-Tag: holmes-import~506^2~95
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=c1b802af00ef118d1a5cedd8026971653d3755ac;p=libucw.git

perl: Log and Die funtions are now exportable
---

diff --git a/lib/perl/Log.pm b/lib/perl/Log.pm
index 68b1d372..bd97f6c5 100644
--- a/lib/perl/Log.pm
+++ b/lib/perl/Log.pm
@@ -10,6 +10,13 @@ use lib 'lib/perl5';
 use strict;
 use warnings;
 use POSIX;
+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)]);
 
 my $Prog = (reverse split(/\//, $0))[0];