]> mj.ucw.cz Git - libucw.git/commitdiff
perl: Log and Die funtions are now exportable
authorPavel Charvat <pavel.charvat@netcentrum.cz>
Tue, 20 Mar 2007 09:44:06 +0000 (10:44 +0100)
committerPavel Charvat <pavel.charvat@netcentrum.cz>
Tue, 20 Mar 2007 09:44:06 +0000 (10:44 +0100)
lib/perl/Log.pm

index 68b1d3724cb181c70623088c5776e117b67d2e6b..bd97f6c5dbd6a41a06177fad01f45538b28c08e9 100644 (file)
@@ -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];