🔥 — Remove useless / bad practice code

Fixes #5
sympa-community · Jul 27, 2020 · a80a1cc · a80a1cc
1 parent 149a7fa
commit a80a1cc
Show file tree

Hide file tree

Showing 8 changed files with 0 additions and 14 deletions.
diff --git a/examples/mha-preview b/examples/mha-preview
@@ -35,8 +35,6 @@ my $PreviewLen = 256;
 ##-----------------------------------------------------------------------##
 
 MAIN: {
-    unshift(@INC, 'lib');	# Should I leave this line in?
-
     ## Grab options from @ARGV unique to this program
     my %opts = ( );
     Getopt::Long::Configure('pass_through');

diff --git a/lib/mhamain.pl b/lib/mhamain.pl
@@ -1562,7 +1562,6 @@ sub signal_catch {
 ##	Create Index2MsgId if not defined
 ##
 sub defineIndex2MsgId {
-    no warnings qw(deprecated);
     unless (%Index2MsgId) {
 	foreach (keys %MsgId) {
 	    $Index2MsgId{$MsgId{$_}} = $_;

diff --git a/lib/mhopt.pl b/lib/mhopt.pl
@@ -863,7 +863,6 @@ sub update_data_1_to_2 {
 ##	Update 2.1, or earlier, data.
 ##
 sub update_data_2_1_to_later {
-    no warnings qw(deprecated);
     # we can preserve filter arguments
     if (%main::MIMEFiltersArgs) {
 	warn qq/         preserving MIMEARGS...\n/;

diff --git a/lib/readmail.pl b/lib/readmail.pl
@@ -44,8 +44,6 @@
 
 package readmail;
 
-no warnings qw(deprecated);
-
 $DEBUG = 0;
 
 ###############################################################################

diff --git a/mha-dbedit b/mha-dbedit
@@ -33,8 +33,6 @@ package mha_dbedit;
 ##---------------------------------------------------------------------------##
 
 MAIN: {
-    unshift(@INC, 'lib');	# Should I leave this line in?
-
     ## Initialize MHonArc
     require 'mhamain.pl' || die qq/ERROR: Unable to require "mhamain.pl"\n/;
     mhonarc::initialize();

diff --git a/mha-dbrecover b/mha-dbrecover
@@ -35,8 +35,6 @@ use Getopt::Long;
 ##---------------------------------------------------------------------------##
 
 MAIN: {
-    unshift(@INC, 'lib');	# Should I leave this line in?
-
     ## Grab options from @ARGV unique to this program
     my %opts = ( );
     Getopt::Long::Configure('pass_through');

diff --git a/mha-decode b/mha-decode
@@ -35,8 +35,6 @@ use Getopt::Long;
 ##---------------------------------------------------------------------------##
 
 MAIN: {
-    unshift(@INC, 'lib');	# Should I leave this line in?
-
     ## Grab options from @ARGV unique to this program
     my %opts = ( );
     Getopt::Long::Configure('pass_through');

diff --git a/mhonarc b/mhonarc
@@ -32,8 +32,6 @@
 ##---------------------------------------------------------------------------##
 
 MAIN: {
-    unshift(@INC, 'lib');	# Should I leave this line in?
-
     require 'mhamain.pl' || die qq/ERROR: Unable to require "mhamain.pl"\n/;
     mhonarc::initialize();
     mhonarc::process_input() ? exit(0) : exit($mhonarc::CODE);