r35838 - in /branches/upstream/libmime-encwords-perl/current: Changes EncWords.pm EncWords/JA_JP.pod MANIFEST META.yml Makefile.PL README t/01decode.t t/02encode.t t/pod.t

ryan52-guest at users.alioth.debian.org ryan52-guest at users.alioth.debian.org
Tue May 19 06:24:20 UTC 2009


Author: ryan52-guest
Date: Tue May 19 06:24:15 2009
New Revision: 35838

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=35838
Log:
[svn-upgrade] Integrating new upstream version, libmime-encwords-perl (1.011)

Added:
    branches/upstream/libmime-encwords-perl/current/t/pod.t
Modified:
    branches/upstream/libmime-encwords-perl/current/Changes
    branches/upstream/libmime-encwords-perl/current/EncWords.pm
    branches/upstream/libmime-encwords-perl/current/EncWords/JA_JP.pod
    branches/upstream/libmime-encwords-perl/current/MANIFEST
    branches/upstream/libmime-encwords-perl/current/META.yml
    branches/upstream/libmime-encwords-perl/current/Makefile.PL
    branches/upstream/libmime-encwords-perl/current/README
    branches/upstream/libmime-encwords-perl/current/t/01decode.t
    branches/upstream/libmime-encwords-perl/current/t/02encode.t

Modified: branches/upstream/libmime-encwords-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-encwords-perl/current/Changes?rev=35838&op=diff
==============================================================================
--- branches/upstream/libmime-encwords-perl/current/Changes (original)
+++ branches/upstream/libmime-encwords-perl/current/Changes Tue May 19 06:24:15 2009
@@ -1,3 +1,14 @@
+2009-05-17	Hatuka*nezumi - IKEDA Soji	<hatuka at nezumi.nu>
+
+	* Release 1.011 - no new features.
+	* Fix: Perl <= 5.6.x - skip tests with older POD::Simple.
+
+2009-05-11	Hatuka*nezumi - IKEDA Soji	<hatuka at nezumi.nu>
+
+	* Release 1.011_01 - no new features.
+	* Supports Perl 5.8.0.
+	* MIME::Charset >= 1.007 is required.
+
 2008-04-19	Hatuka*nezumi - IKEDA Soji	<hatuka at nezumi.nu>
 
 	* Release 1.010.101 - tidinesses only; no new features.

Modified: branches/upstream/libmime-encwords-perl/current/EncWords.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-encwords-perl/current/EncWords.pm?rev=35838&op=diff
==============================================================================
--- branches/upstream/libmime-encwords-perl/current/EncWords.pm (original)
+++ branches/upstream/libmime-encwords-perl/current/EncWords.pm Tue May 19 06:24:15 2009
@@ -121,7 +121,7 @@
 #------------------------------
 
 ### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = '1.010.101';
+$VERSION = '1.011';
 
 ### Public Configuration Attributes
 $Config = {
@@ -386,7 +386,7 @@
     if ($Params{Detect7bit} ne "NO") {
 	foreach my $t (@tokens) {
 	    unless ($t->[0] =~ $UNSAFE or $t->[1]) {
-		my $charset = &MIME::Charset::_detect_7bit_charset($t->[0]);
+		my $charset = MIME::Charset::_detect_7bit_charset($t->[0]);
 		if ($charset and $charset ne &MIME::Charset::default()) {
 		    $t->[1] = $charset;
 		}
@@ -417,11 +417,9 @@
     croak "unsupported charset ``".$cset->as_string."''"
 	unless $cset->decoder or $cset->as_string eq "_UNICODE_";
 
-    my $preserveerr = $@;
-
+    local($@);
     $charset = MIME::Charset->new($charset, Mapping => $mapping);
     if ($charset->as_string and $charset->as_string eq $cset->as_string) {
-	$@ = $preserveerr;
 	return $s;
     }
     # build charset object to transform string from $charset to $cset.
@@ -454,8 +452,6 @@
     } elsif ($charset->decoder) {
 	$converted = $charset->encode($s);
     }
-
-    $@ = $preserveerr;
     return $converted;
 }
 
@@ -537,7 +533,7 @@
 RAW may be a Unicode string when Unicode/multibyte support is enabled
 (see L<MIME::Charset/USE_ENCODE>).
 Furthermore, RAW may be a reference to that returned
-by L<"decode_mimewords"> on array context.  In latter case "Charset"
+by L</decode_mimewords> on array context.  In latter case "Charset"
 option (see below) will be overridden (see also a note below).
 
 B<Note>:
@@ -594,7 +590,7 @@
 
 A Sequence to fold encoded lines.  The default is C<"\n">.
 If empty string C<""> is specified, encoded-words exceeding line length
-(see L<"MaxLineLen"> below) will be splitted by SPACE.
+(see L</MaxLineLen> below) will be splitted by SPACE.
 
 B<Note>:
 B<*>
@@ -1078,9 +1074,9 @@
 =head2 Configuration Files
 B<**>
 
-Built-in defaults of option parameters for L<"decode_mimewords">
+Built-in defaults of option parameters for L</decode_mimewords>
 (except 'Charset' option) and
-L<"encode_mimewords"> can be overridden by configuration files:
+L</encode_mimewords> can be overridden by configuration files:
 F<MIME/Charset/Defaults.pm> and F<MIME/EncWords/Defaults.pm>.
 For more details read F<MIME/EncWords/Defaults.pm.sample>.
 
@@ -1106,7 +1102,7 @@
 Other stuff are rewritten or added by:
     Hatuka*nezumi - IKEDA Soji <hatuka(at)nezumi.nu>.
 
-All rights reserved.  This program is free software; you can redistribute
+This program is free software; you can redistribute
 it and/or modify it under the same terms as Perl itself.
 
 =cut

Modified: branches/upstream/libmime-encwords-perl/current/EncWords/JA_JP.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-encwords-perl/current/EncWords/JA_JP.pod?rev=35838&op=diff
==============================================================================
--- branches/upstream/libmime-encwords-perl/current/EncWords/JA_JP.pod (original)
+++ branches/upstream/libmime-encwords-perl/current/EncWords/JA_JP.pod Tue May 19 06:24:15 2009
@@ -128,7 +128,7 @@
 ENCODED に引き続く引数は、ハッシュによるオプションの定義とみなす。
 B<**>
 Unicode/マルチバイト文字対応が有効になっていないとき
-(L<MIME::Charset/USE_ENCODE> 参ç
§) は、
+(L<MIME::Charset::JA_JP/USE_ENCODE> 参ç
§) は、
 以下のオプションはなんの効果も持たない。
 
 =over 4
@@ -202,8 +202,8 @@
 
 B<**>
 RAW は Unicode でもよい。ただし Unicode/マルチバイト対応が有効な場合
-(see L<MIME::Charset/USE_ENCODE>)。
-さらに RAW は、L<"decode_mimewords">
+(see L<MIME::Charset::JA_JP/USE_ENCODE>)。
+さらに RAW は、L</decode_mimewords>
 がé
åˆ—コンテクストで返すものへの参ç
§ã§ã‚‚よい。
 後の場合は、"Charset" オプション (下記参ç
§) が適宜上書きされる
 (下の注も参ç
§)。
@@ -235,7 +235,7 @@
 RAW 文字列の 7 ビットキャラクタセットを判別しようとする。
 初期値は C<"YES">。
 Unicode/マルチバイト文字対応が有効になっていないとき
-(L<MIME::Charset/USE_ENCODE> 参ç
§) は、
+(L<MIME::Charset::JA_JP/USE_ENCODE> 参ç
§) は、
 このオプションはなんの効果も持たない。
 
 =item Encoding
@@ -244,7 +244,7 @@
 B<**>
 「特殊」な値も指定できる。C<"a"> は推奨されるエンコーディングを自動選択する
 (キャラクタセットに別のものが推奨されるときはキャラクタセット変換も行う。
-L<MIME::Charset> 参ç
§)。
+L<MIME::Charset::JA_JP> 参ç
§)。
 C<"s"> は C<"q"> と C<"b"> のうち短くなるほうを選ぶ。
 B<Note>:
 B<*>
@@ -261,7 +261,7 @@
 B<**>
 
 エンコードする行を「行折り」する文字の列。初期値は C<"\n">。
-空文字列 C<""> を指定すると、行長 (下記 L<"MaxLineLen"> 参ç
§)
+空文字列 C<""> を指定すると、行長 (下記 L</MaxLineLen> 参ç
§)
 ã‚’è¶
える「encoded-word」を SPACE で分割するだけ。
 
 B<Note>:
@@ -280,7 +280,7 @@
 C<"STANDARD"> は標準化されている厳密なマッピングを使う。
 初期値は C<"EXTENDED">。
 Unicode/マルチバイト文字対応が有効になっていないとき
-(L<MIME::Charset/USE_ENCODE> 参ç
§) は、
+(L<MIME::Charset::JA_JP/USE_ENCODE> 参ç
§) は、
 このオプションはなんの効果も持たない。
 
 =item MaxLineLen
@@ -307,7 +307,7 @@
 =item Replacement
 B<**>
 
-L<MIME::Charset/Error Handling> 参ç
§ã€‚
+L<MIME::Charset::JA_JP/エラー処理> 参ç
§ã€‚
 
 =back
 
@@ -319,8 +319,8 @@
 =head2 設定ファイル
 B<**>
 
-L<"decode_mimewords"> ('Charset' オプションを除く) および
-L<"encode_mimewords"> のオプション引数の組み込み初期値は、
+L</decode_mimewords> ('Charset' オプションを除く) および
+L</encode_mimewords> のオプション引数の組み込み初期値は、
 設定ファイルで上書きできる。
 F<MIME/Charset/Defaults.pm> と F<MIME/EncWords/Defaults.pm>。
 詳細は F<MIME/EncWords/Defaults.pm.sample> を読んでほしい。
@@ -335,7 +335,7 @@
 
 =head1 SEE ALSO
 
-L<MIME::Charset>,
+L<MIME::Charset::JA_JP>,
 L<MIME::Tools>
 
 =head1 AUTHORS
@@ -345,12 +345,11 @@
     Eryq (F<eryq at zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).
     David F. Skoll (dfs at roaringpenguin.com) http://www.roaringpenguin.com
 
-そのほかの部分は、以下のè€
が書き直しあるいは加えた:
+そのほかの部分は、次のè€
が書き直しあるいは加えた:
     Hatuka*nezumi - IKEDA Soji <hatuka(at)nezumi.nu>.
 
-All rights reserved.  This program is free software; you can redistribute
+This program is free software; you can redistribute
 it and/or modify it under the same terms as Perl itself.
 
 
 =cut
-

Modified: branches/upstream/libmime-encwords-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-encwords-perl/current/MANIFEST?rev=35838&op=diff
==============================================================================
--- branches/upstream/libmime-encwords-perl/current/MANIFEST (original)
+++ branches/upstream/libmime-encwords-perl/current/MANIFEST Tue May 19 06:24:15 2009
@@ -4,12 +4,13 @@
 EncWords/Defaults.pm.sample
 EncWords/JA_JP.pod
 GPL
+Makefile.PL
 MANIFEST			This list of files
 META.yml			Module meta-data (added by author)
-Makefile.PL
 README
 t/01decode.t
 t/02encode.t
+t/pod.t
 testin/decode-ascii.txt
 testin/decode-multibyte.txt
 testin/decode-singlebyte.txt

Modified: branches/upstream/libmime-encwords-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-encwords-perl/current/META.yml?rev=35838&op=diff
==============================================================================
--- branches/upstream/libmime-encwords-perl/current/META.yml (original)
+++ branches/upstream/libmime-encwords-perl/current/META.yml Tue May 19 06:24:15 2009
@@ -1,7 +1,7 @@
 --- #YAML:1.0
 name:         MIME-EncWords
 abstract:     deal with RFC 2047 encoded words (improved)
-version:      1.010.101
+version:      1.011
 author:
   - Hatuka*nezumi - IKEDA Soji <hatuka at nezumi.nu>
 license:      perl
@@ -9,18 +9,14 @@
 requires:
     Encode:                        1.98
     MIME::Base64:                  2.13
-    MIME::Charset:                 1.006.2
+    MIME::Charset:                 1.007
     perl:                          5.005
 build_requires:
-    Test:                          0
+    Test::More:                    0
 provides:
     MIME::EncWords:
         file:                      EncWords.pm
-        version:                   1.010.101
-    MIME::EncWords::Defaults:
-        file:                      EncWords/Defaults.pm.sample
-    MIME::EncWords::JA_JP:
-        file:                      EncWords/JA_JP.pod
+        version:                   1.011
 resources:
     repository: http://hatuka.nezumi.nu/repos/MIME-EncWords/
 meta-spec:

Modified: branches/upstream/libmime-encwords-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-encwords-perl/current/Makefile.PL?rev=35838&op=diff
==============================================================================
--- branches/upstream/libmime-encwords-perl/current/Makefile.PL (original)
+++ branches/upstream/libmime-encwords-perl/current/Makefile.PL Tue May 19 06:24:15 2009
@@ -4,15 +4,15 @@
 	'NAME'		=> 'MIME::EncWords',
 	'ABSTRACT_FROM'	=> 'EncWords.pm',
 	'VERSION_FROM'	=> 'EncWords.pm',
-	'PREREQ_PM'	=> ($] >= 5.008001)? {
+	'PREREQ_PM'	=> ($] >= 5.008)? {
 	    'Encode'		=> 1.98,
-	    'MIME::Charset'	=> '1.006.2',
+	    'MIME::Charset'	=> '1.007',
 	    'MIME::Base64'	=> 2.13,
-	    'Test'		=> 0,
+	    'Test::More'	=> 0,
 	}: {
 	    'MIME::Charset'	=> '1.006',
 	    'MIME::Base64'	=> 2.13,
-	    'Test'		=> 0,
+	    'Test::More'	=> 0,
 	},
 );
 

Modified: branches/upstream/libmime-encwords-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-encwords-perl/current/README?rev=35838&op=diff
==============================================================================
--- branches/upstream/libmime-encwords-perl/current/README (original)
+++ branches/upstream/libmime-encwords-perl/current/README Tue May 19 06:24:15 2009
@@ -1,259 +1,19 @@
-NAME
+MIME-EncWords Package.
+
+Copyright (C) 2006-2009 by Hatuka*nezumi - IKEDA Soji <hatuka(at)nezumi.nu>.
+
+This package is free software; you can redistribute it and/or modify it 
+under the same terms as Perl itself.
+
+                                   ***
+
+One main module and some supporting program files are contained. For
+more details read following POD documentation:
+
     MIME::EncWords - deal with RFC 2047 encoded words (improved)
 
-SYNOPSIS
-    *MIME::EncWords is aimed to be another implimentation of MIME::Words so
-    that it will achive more exact conformance with RFC 2047 (former RFC
-    1522) specifications. Additionally, it contains some improvements.
-    Following synopsis and descriptions are inherited from its inspirer,
-    then added descriptions on improvements (**) or changes and
-    clarifications (*).*
+For japonophones, POD in Japanese language is also included:
 
-    Before reading further, you should see MIME::Tools to make sure that you
-    understand where this module fits into the grand scheme of things. Go
-    on, do it now. I'll wait.
+    MIME::EncWords::JA_JP - RFC 2047 encoded-word 関連 (改良版)
 
-    Ready? Ok...
-
-        use MIME::EncWords qw(:all);
-
-        ### Decode the string into another string, forgetting the charsets:
-        $decoded = decode_mimewords(
-              'To: =?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld at dkuug.dk>',
-              );
-
-        ### Split string into array of decoded [DATA,CHARSET] pairs:
-        @decoded = decode_mimewords(
-              'To: =?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld at dkuug.dk>',
-              );
-
-        ### Encode a single unsafe word:
-        $encoded = encode_mimeword("\xABFran\xE7ois\xBB");
-
-        ### Encode a string, trying to find the unsafe words inside it:
-        $encoded = encode_mimewords("Me and \xABFran\xE7ois\xBB in town");
-
-DESCRIPTION
-    Fellow Americans, you probably won't know what the hell this module is
-    for. Europeans, Russians, et al, you probably do. ":-)".
-
-    For example, here's a valid MIME header you might get:
-
-          From: =?US-ASCII?Q?Keith_Moore?= <moore at cs.utk.edu>
-          To: =?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld at dkuug.dk>
-          CC: =?ISO-8859-1?Q?Andr=E9_?= Pirard <PIRARD at vm1.ulg.ac.be>
-          Subject: =?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?=
-           =?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?=
-           =?US-ASCII?Q?.._cool!?=
-
-    The fields basically decode to (sorry, I can only approximate the Latin
-    characters with 7 bit sequences /o and 'e):
-
-          From: Keith Moore <moore at cs.utk.edu>
-          To: Keld J/orn Simonsen <keld at dkuug.dk>
-          CC: Andr'e  Pirard <PIRARD at vm1.ulg.ac.be>
-          Subject: If you can read this you understand the example... cool!
-
-    Supplement: Fellow Americans, Europeans, you probably won't know what
-    the hell this module is for. East Asians, et al, you probably do.
-    "(^_^)".
-
-    For example, here's a valid MIME header you might get:
-
-          Subject: =?EUC-KR?B?sNTAuLinKGxhemluZXNzKSwgwvzB9ri7seIoaW1w?=
-           =?EUC-KR?B?YXRpZW5jZSksILGzuLgoaHVicmlzKQ==?=
-
-    The fields basically decode to (sorry, I cannot approximate the
-    non-Latin multibyte characters with any 7 bit sequences):
-
-          Subject: ???(laziness), ????(impatience), ??(hubris)
-
-PUBLIC INTERFACE
-    decode_mimewords ENCODED, [OPTS...]
-        *Function.* Go through the string looking for RFC-1522-style "Q"
-        (quoted-printable, sort of) or "B" (base64) encoding, and decode
-        them.
-
-        In an array context, splits the ENCODED string into a list of
-        decoded "[DATA, CHARSET]" pairs, and returns that list. Unencoded
-        data are returned in a 1-element array "[DATA]", giving an effective
-        CHARSET of "undef".
-
-            $enc = '=?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld at dkuug.dk>';
-            foreach (decode_mimewords($enc)) {
-                print "", ($_[1] || 'US-ASCII'), ": ", $_[0], "\n";
-            }
-
-        ** However, adjacent encoded-words with same charset will be
-        concatenated to handle multibyte sequences safely.
-
-        * Whitespaces surrounding unencoded data will not be stripped so
-        that compatibility with MIME::Words will be ensured.
-
-        In a scalar context, joins the "data" elements of the above list
-        together, and returns that. *Warning: this is information-lossy,*
-        and probably *not* what you want, but if you know that all charsets
-        in the ENCODED string are identical, it might be useful to you.
-        (Before you use this, please see "unmime" in MIME::WordDecoder,
-        which is probably what you want.) ** See also "Charset" option
-        below.
-
-        In the event of a syntax error, $@ will be set to a description of
-        the error, but parsing will continue as best as possible (so as to
-        get *something* back when decoding headers). $@ will be false if no
-        error was detected.
-
-        * Malformed base64 encoded-words will be kept encoded. In this case
-        $@ will be set.
-
-        Any arguments past the ENCODED string are taken to define a hash of
-        options. ** When Unicode/multibyte support is disabled (see
-        "USE_ENCODE" in MIME::Charset), these options will not have any
-        effects.
-
-        Charset **
-            Name of character set by which data elements in scalar context
-            will be converted. The default is no conversion. If this option
-            is specified as special value "_UNICODE_", returned value will
-            be Unicode string.
-
-            Note: This feature is still information-lossy, *except* when
-            "_UNICODE_" is specified.
-
-        Detect7bit **
-            Try to detect 7-bit charset on unencoded portions. Default is
-            "YES".
-
-        Mapping **
-            In scalar context, specify mappings actually used for charset
-            names. "EXTENDED" uses extended mappings. "STANDARD" uses
-            standardized strict mappings. Default is "EXTENDED".
-
-    encode_mimeword RAW, [ENCODING], [CHARSET]
-        *Function.* Encode a single RAW "word" that has unsafe characters.
-        The "word" will be encoded in its entirety.
-
-            ### Encode "<<Franc,ois>>":
-            $encoded = encode_mimeword("\xABFran\xE7ois\xBB");
-
-        You may specify the ENCODING ("Q" or "B"), which defaults to "Q". **
-        You may also specify it as ``special'' value: "S" to choose shorter
-        one of either "Q" or "B".
-
-        You may specify the CHARSET, which defaults to "iso-8859-1".
-
-        * Spaces will be escaped with ``_'' by "Q" encoding.
-
-    encode_mimewords RAW, [OPTS]
-        *Function.* Given a RAW string, try to find and encode all "unsafe"
-        sequences of characters:
-
-            ### Encode a string with some unsafe "words":
-            $encoded = encode_mimewords("Me and \xABFran\xE7ois\xBB");
-
-        Returns the encoded string.
-
-        ** RAW may be a Unicode string when Unicode/multibyte support is
-        enabled (see "USE_ENCODE" in MIME::Charset). Furthermore, RAW may be
-        a reference to that returned by "decode_mimewords" on array context.
-        In latter case "Charset" option (see below) will be overridden (see
-        also a note below).
-
-        Note: * When RAW is an arrayref, adjacent encoded-words (i.e.
-        elements having non-ASCII charset element) are concatenated. Then
-        they are splitted taking care of character boundaries of multibyte
-        sequences when Unicode/multibyte support is enabled. Portions for
-        unencoded data should include surrounding whitespace(s), or they
-        will be merged into adjoining encoded-word(s).
-
-        Any arguments past the RAW string are taken to define a hash of
-        options:
-
-        Charset
-            Encode all unsafe stuff with this charset. Default is
-            'ISO-8859-1', a.k.a. "Latin-1".
-
-        Detect7bit **
-            When "Encoding" option (see below) is specified as "a" and
-            "Charset" option is unknown, try to detect 7-bit charset on
-            given RAW string. Default is "YES". When Unicode/multibyte
-            support is disabled, this option will not have any effects (see
-            "USE_ENCODE" in MIME::Charset).
-
-        Encoding
-            The encoding to use, "q" or "b". ** You may also specify
-            ``special'' values: "a" will automatically choose recommended
-            encoding to use (with charset conversion if alternative charset
-            is recommended: see MIME::Charset); "s" will choose shorter one
-            of either "q" or "b". Note: * As of release 1.005, The default
-            was changed from "q" (the default on MIME::Words) to "a".
-
-        Field
-            Name of the mail field this string will be used in. ** Length of
-            mail field name will be considered in the first line of encoded
-            header.
-
-        Folding **
-            A Sequence to fold encoded lines. The default is "\n". If empty
-            string "" is specified, encoded-words exceeding line length (see
-            "MaxLineLen" below) will be splitted by SPACE.
-
-            Note: * Though RFC 2822 states that the lines are delimited by
-            CRLF ("\r\n"), this module chose LF ("\n") as a default to keep
-            backward compatibility. When you use the default, you might need
-            converting newlines before encoded headers are thrown into
-            session.
-
-        Mapping **
-            Specify mappings actually used for charset names. "EXTENDED"
-            uses extended mappings. "STANDARD" uses standardized strict
-            mappings. The default is "EXTENDED". When Unicode/multibyte
-            support is disabled, this option will not have any effects (see
-            "USE_ENCODE" in MIME::Charset).
-
-        MaxLineLen **
-            Maximum line length excluding newline. The default is 76.
-
-        Minimal **
-            Takes care of natural word separators (i.e. whitespaces) in the
-            text to be encoded. If "NO" is specified, this module will
-            encode whole text (if encoding needed) not regarding
-            whitespaces; encoded-words exceeding line length will be
-            splitted based only on their lengths. Default is "YES".
-
-            Note: As of release 0.040, default has been changed to "YES" to
-            ensure compatibility with MIME::Words. On earlier releases, this
-            option was fixed to be "NO".
-
-        Replacement **
-            See "Error Handling" in MIME::Charset.
-
-  Configuration Files
-**
-    Built-in defaults of option parameters for "decode_mimewords" (except
-    'Charset' option) and "encode_mimewords" can be overridden by
-    configuration files: MIME/Charset/Defaults.pm and
-    MIME/EncWords/Defaults.pm. For more details read
-    MIME/EncWords/Defaults.pm.sample.
-
-VERSION
-    Consult $VERSION variable.
-
-    Development versions of this module may be found at
-    <http://hatuka.nezumi.nu/repos/MIME-EncWords/>.
-
-SEE ALSO
-    MIME::Charset, MIME::Tools
-
-AUTHORS
-    The original version of function decode_mimewords() is derived from
-    MIME::Words module that was written by: Eryq (eryq at zeegee.com), ZeeGee
-    Software Inc (http://www.zeegee.com). David F. Skoll
-    (dfs at roaringpenguin.com) http://www.roaringpenguin.com
-
-    Other stuff are rewritten or added by: Hatuka*nezumi - IKEDA Soji
-    <hatuka(at)nezumi.nu>.
-
-    All rights reserved. This program is free software; you can redistribute
-    it and/or modify it under the same terms as Perl itself.
-
+$$

Modified: branches/upstream/libmime-encwords-perl/current/t/01decode.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-encwords-perl/current/t/01decode.t?rev=35838&op=diff
==============================================================================
--- branches/upstream/libmime-encwords-perl/current/t/01decode.t (original)
+++ branches/upstream/libmime-encwords-perl/current/t/01decode.t Tue May 19 06:24:15 2009
@@ -1,7 +1,7 @@
 use strict;
 use Test;
 
-BEGIN { plan tests => ($] >= 5.008001)? 48: 16 }
+BEGIN { plan tests => ($] >= 5.008)? 48: 16 }
 
 use MIME::EncWords qw(decode_mimewords);
 $MIME::EncWords::Config = {

Modified: branches/upstream/libmime-encwords-perl/current/t/02encode.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-encwords-perl/current/t/02encode.t?rev=35838&op=diff
==============================================================================
--- branches/upstream/libmime-encwords-perl/current/t/02encode.t (original)
+++ branches/upstream/libmime-encwords-perl/current/t/02encode.t Tue May 19 06:24:15 2009
@@ -1,7 +1,7 @@
 use strict;
 use Test;
 
-BEGIN { plan tests => ($] >= 5.008001)? 26: 12 }
+BEGIN { plan tests => ($] >= 5.008)? 26: 12 }
 
 use MIME::EncWords qw(encode_mimewords);
 $MIME::EncWords::Config = {

Added: branches/upstream/libmime-encwords-perl/current/t/pod.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-encwords-perl/current/t/pod.t?rev=35838&op=file
==============================================================================
--- branches/upstream/libmime-encwords-perl/current/t/pod.t (added)
+++ branches/upstream/libmime-encwords-perl/current/t/pod.t Tue May 19 06:24:15 2009
@@ -1,0 +1,13 @@
+use strict;
+use Test::More;
+eval "use Pod::Simple 2.06";
+if ($@) {
+    plan skip_all => "Pod::Simple 2.05 or later required for testing POD";
+} else {
+    eval "use Test::Pod 1.00";
+    if ($@) {
+        plan skip_all => "Test::Pod 1.00 or later required for testing POD";
+    }
+}
+all_pod_files_ok();
+




More information about the Pkg-perl-cvs-commits mailing list