X-Git-Url: http://git.ieval.ro/?p=app-edwardng.git;a=blobdiff_plain;f=lib%2FApp%2FEdwardNG.pm;h=4da1968ce2ab082321fc2ea5b334252f2ee6767e;hp=a9cac089365c515bf4f89e67d2b7a7c3d17b1d8d;hb=8dd68edb17156d846480991d2db9844c2b3ba6e6;hpb=3da0c4584fcdf90a95ec43fdcffc083b9c1a90c1 diff --git a/lib/App/EdwardNG.pm b/lib/App/EdwardNG.pm index a9cac08..4da1968 100644 --- a/lib/App/EdwardNG.pm +++ b/lib/App/EdwardNG.pm @@ -8,6 +8,7 @@ our $VERSION = '0.001'; our @EXPORT = qw/process_message/; use Email::Sender::Simple qw/sendmail/; +use File::Share qw/dist_file/; use File::Slurp qw/read_file/; use File::Spec::Functions qw/rel2abs/; use Getopt::Long; @@ -117,7 +118,7 @@ sub run { $params{plaintext} = first_part $params{decrypted} if $params{decrypted}; - my $tt = Template->new(INCLUDE_PATH => rel2abs $tmpl_path, 'tmpl'); + my $tt = Template->new(INCLUDE_PATH => rel2abs $tmpl_path, dist_file 'App-EdwardNG', 'tmpl'); my $data; $tt->process($tmpl, \%params, \$data); my $email = MIME::Entity->build(