From c5dcbeb48d9675923718543c191f9df3eff22187 Mon Sep 17 00:00:00 2001
From: tkempf <tkempf@hueper.de>
Date: Fri, 21 Jul 2017 09:20:51 +0200
Subject: [PATCH] Removed unused libraries MIME::Encwords and MIME::Base64

---
 VIRTUAL_VACATION/vacation.pl | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/VIRTUAL_VACATION/vacation.pl b/VIRTUAL_VACATION/vacation.pl
index 0fa9c218..72f80dc0 100644
--- a/VIRTUAL_VACATION/vacation.pl
+++ b/VIRTUAL_VACATION/vacation.pl
@@ -91,7 +91,7 @@
 
 # Requirements - the following perl modules are required:
 # DBD::Pg or DBD::mysql
-# EMail::Sender,Email::Simple,Email::Valid,Try::Tiny,MIME::Charset, Log::Log4perl, Log::Dispatch, MIME::EncWords and GetOpt::Std
+# EMail::Sender,Email::Simple,Email::Valid,Try::Tiny,MIME::Charset, Log::Log4perl, Log::Dispatch, and GetOpt::Std
 #
 # You may install these via CPAN, or through your package tool.
 # CPAN: 'perl -MCPAN -e shell', then 'install Module::Whatever'
@@ -107,7 +107,6 @@
 #   liblog-dispatch-perl
 #   libgetopt-argvfile-perl
 #   libmime-charset-perl
-#   libmime-encwords-perl 
 #
 # Note: When you use this module, you may start seeing error messages
 # like "Cannot insert a duplicate key into unique index
@@ -123,9 +122,7 @@
 #
 use utf8;
 use DBI;
-use MIME::Base64 qw(encode_base64);
-use Encode qw(encode decode);
-use MIME::EncWords qw(:all);
+use Encode qw(decode);
 use Email::Valid;
 use strict;
 use Getopt::Std;