77 lines
2.6 KiB
Perl
77 lines
2.6 KiB
Perl
$NetBSD: patch-lib_readmail.pl,v 1.1 2011/10/30 22:03:42 spz Exp $
|
|
|
|
--- lib/readmail.pl.orig 2011-01-09 05:13:14.000000000 +0000
|
|
+++ lib/readmail.pl
|
|
@@ -117,9 +117,9 @@ $DecodeHeader = 0;
|
|
## set to true.
|
|
|
|
%MIMEDecoders = ()
|
|
- unless defined(%MIMEDecoders);
|
|
+ unless %MIMEDecoders;
|
|
%MIMEDecodersSrc = ()
|
|
- unless defined(%MIMEDecodersSrc);
|
|
+ unless %MIMEDecodersSrc;
|
|
|
|
## - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
## %MIMECharSetConverters is the associative array for storing functions
|
|
@@ -153,9 +153,9 @@ $DecodeHeader = 0;
|
|
## string.
|
|
|
|
%MIMECharSetConverters = ()
|
|
- unless defined(%MIMECharSetConverters);
|
|
+ unless %MIMECharSetConverters;
|
|
%MIMECharSetConvertersSrc = ()
|
|
- unless defined(%MIMECharSetConvertersSrc);
|
|
+ unless %MIMECharSetConvertersSrc;
|
|
|
|
## - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
## %MIMEFilters is the associative array for storing functions that
|
|
@@ -180,9 +180,9 @@ $DecodeHeader = 0;
|
|
## that all functions are defined before invoking MAILread_body.
|
|
|
|
%MIMEFilters = ()
|
|
- unless defined(%MIMEFilters);
|
|
+ unless %MIMEFilters;
|
|
%MIMEFiltersSrc = ()
|
|
- unless defined(%MIMEFiltersSrc);
|
|
+ unless %MIMEFiltersSrc;
|
|
|
|
## - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
## %MIMEFiltersArgs is the associative array for storing any optional
|
|
@@ -196,7 +196,7 @@ $DecodeHeader = 0;
|
|
## listed for a function if both are applicable.
|
|
|
|
%MIMEFiltersArgs = ()
|
|
- unless defined(%MIMEFiltersArgs);
|
|
+ unless %MIMEFiltersArgs;
|
|
|
|
## - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
## %MIMEExcs is the associative array listing which data types
|
|
@@ -206,7 +206,7 @@ $DecodeHeader = 0;
|
|
## Values => <should evaluate to a true expression>
|
|
|
|
%MIMEExcs = ()
|
|
- unless defined(%MIMEExcs);
|
|
+ unless %MIMEExcs;
|
|
|
|
## - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
## %MIMEIncs is the associative array listing which data types
|
|
@@ -220,7 +220,7 @@ $DecodeHeader = 0;
|
|
## be used to only allow a well-defined set of content-types.
|
|
|
|
%MIMEIncs = ()
|
|
- unless defined(%MIMEIncs);
|
|
+ unless %MIMEIncs;
|
|
|
|
## - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
## %MIMECharsetAliases is a mapping of charset names to charset names.
|
|
@@ -231,7 +231,7 @@ $DecodeHeader = 0;
|
|
## Values => real charset name
|
|
##
|
|
%MIMECharsetAliases = ()
|
|
- unless defined(%MIMECharsetAliases);
|
|
+ unless %MIMECharsetAliases;
|
|
|
|
##---------------------------------------------------------------------------
|
|
## Text entity-related variables
|