diff options
Diffstat (limited to 'net-mail/mhonarc/files/mhonarc-fix-perl-defined-bugs.diff')
-rw-r--r-- | net-mail/mhonarc/files/mhonarc-fix-perl-defined-bugs.diff | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/net-mail/mhonarc/files/mhonarc-fix-perl-defined-bugs.diff b/net-mail/mhonarc/files/mhonarc-fix-perl-defined-bugs.diff new file mode 100644 index 000000000000..d3ab30623b20 --- /dev/null +++ b/net-mail/mhonarc/files/mhonarc-fix-perl-defined-bugs.diff @@ -0,0 +1,26 @@ +diff --git a/lib/mhamain.pl b/lib/mhamain.pl +index 80980a2..d04dcc6 100644 +--- a/lib/mhamain.pl ++++ b/lib/mhamain.pl +@@ -1562,7 +1562,7 @@ sub signal_catch { + ## + sub defineIndex2MsgId { + no warnings qw(deprecated); +- if (!defined(%Index2MsgId)) { ++ if (!%Index2MsgId) { + foreach (keys %MsgId) { + $Index2MsgId{$MsgId{$_}} = $_; + } +diff --git a/lib/mhopt.pl b/lib/mhopt.pl +index 02fb05e..939109b 100644 +--- a/lib/mhopt.pl ++++ b/lib/mhopt.pl +@@ -865,7 +865,7 @@ sub update_data_1_to_2 { + sub update_data_2_1_to_later { + no warnings qw(deprecated); + # we can preserve filter arguments +- if (defined(%main::MIMEFiltersArgs)) { ++ if (%main::MIMEFiltersArgs) { + warn qq/ preserving MIMEARGS...\n/; + %readmail::MIMEFiltersArgs = %main::MIMEFiltersArgs; + $IsDefault{'MIMEARGS'} = 0; |