diff options
| author | fukachan <fukachan> | 2001-03-26 11:41:08 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-03-26 11:41:08 +0000 |
| commit | 87ac82fb0efdd291ac8de20c2e6a33a7061c819c (patch) | |
| tree | cec6ed12dd6e31595ca0a4b3cb2e135d14c4d61e /regress/base | |
| parent | 617fb21dfdeb5a53b421376358e6babdef2ccd59 (diff) | |
| download | fml8-87ac82fb0efdd291ac8de20c2e6a33a7061c819c.tar.gz fml8-87ac82fb0efdd291ac8de20c2e6a33a7061c819c.tar.bz2 fml8-87ac82fb0efdd291ac8de20c2e6a33a7061c819c.zip | |
preserve \s+ in the string to MIME encode
Diffstat (limited to 'regress/base')
| -rwxr-xr-x | regress/base/mime.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/regress/base/mime.pl b/regress/base/mime.pl index 5add052c..3811cee4 100755 --- a/regress/base/mime.pl +++ b/regress/base/mime.pl @@ -14,7 +14,7 @@ use MIME::QuotedPrint; &try_mime(" "); &try_mime(" "); &try_mime("\n"); -&try_mime(" ", 3); +&try_mime("", 3); exit 0; @@ -24,8 +24,7 @@ sub try_mime my ($separator, $xbuf) = @_; my $buf = "\n"; - my $orig_str = "うじゃ". $separator ."あじゃじゃ"; - $orig_str = "うじゃ". $separator . $xbuf . "あじゃじゃ" if $xbuf; + my $orig_str = "さくら". $separator . $xbuf . "映画版"; my $in_str_b64 = encode_mime_string($orig_str); my $in_str_qp = encode_mime_string($orig_str, { encode => 'qp' }); |