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