r18172 - in /trunk/libmime-encwords-perl: Changes EncWords.pm META.yml Makefile.PL debian/changelog
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Mon Mar 31 15:02:50 UTC 2008
Author: gregoa-guest
Date: Mon Mar 31 15:02:49 2008
New Revision: 18172
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=18172
Log:
New upstream release.
Modified:
trunk/libmime-encwords-perl/Changes
trunk/libmime-encwords-perl/EncWords.pm
trunk/libmime-encwords-perl/META.yml
trunk/libmime-encwords-perl/Makefile.PL
trunk/libmime-encwords-perl/debian/changelog
Modified: trunk/libmime-encwords-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-encwords-perl/Changes?rev=18172&op=diff
==============================================================================
--- trunk/libmime-encwords-perl/Changes (original)
+++ trunk/libmime-encwords-perl/Changes Mon Mar 31 15:02:49 2008
@@ -1,8 +1,9 @@
-2008-03-29 Hatuka*nezumi - IKEDA Soji <hatuka at nezumi.nu>
+2008-03-30 Hatuka*nezumi - IKEDA Soji <hatuka at nezumi.nu>
- * Release 1.008.
+ * Release 1.009.
* Bug Fix: Perl <=5.6.x: encode_mimewords(): ASCII words
are encoded.
+ * Bug Fix: Perl <=5.005: our is ``deprecated''.
2008-03-21 Hatuka*nezumi - IKEDA Soji <hatuka at nezumi.nu>
Modified: trunk/libmime-encwords-perl/EncWords.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-encwords-perl/EncWords.pm?rev=18172&op=diff
==============================================================================
--- trunk/libmime-encwords-perl/EncWords.pm (original)
+++ trunk/libmime-encwords-perl/EncWords.pm Mon Mar 31 15:02:49 2008
@@ -84,7 +84,7 @@
### Pragmas:
use strict;
-use vars qw($VERSION @EXPORT_OK %EXPORT_TAGS @ISA);
+use vars qw($VERSION @EXPORT_OK %EXPORT_TAGS @ISA $Config);
### Exporting:
use Exporter;
@@ -120,10 +120,10 @@
#------------------------------
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = '1.008';
+$VERSION = '1.009';
### Public Configuration Attributes
-our $Config = {
+$Config = {
%{$MIME::Charset::Config}, # Detect7bit, Replacement, Mapping
Charset => 'ISO-8859-1',
Encoding => 'A',
@@ -423,8 +423,7 @@
return $s;
}
# build charset object to transform string from $charset to $cset.
- $charset->{OutputCharset} = $cset->as_string;
- $charset->{Encoder} = $cset->decoder;
+ $charset->encoder($cset);
my $converted = $s;
if (is_utf8($s) or $s =~ $WIDECHAR) {
@@ -703,9 +702,9 @@
}
$csetobj = MIME::Charset->new($cset, Mapping => $Params{Mapping});
if ($Params{Replacement} =~ /^(CROAK|STRICT)$/) {
- $s = $csetobj->decoder->encode($s, FB_CROAK());
+ $s = $csetobj->undecode($s, FB_CROAK());
} else {
- $s = $csetobj->decoder->encode($s, 0);
+ $s = $csetobj->undecode($s, 0);
}
}
@@ -742,8 +741,7 @@
}
# Now no charset transformations are needed.
- $csetobj->{Encoder} = $csetobj->decoder;
- $csetobj->{OutputCharset} = $csetobj->as_string;
+ $csetobj->encoder($csetobj);
# Concatenate adjacent ``words'' so that multibyte sequences will
# be handled safely.
@@ -979,7 +977,7 @@
my $cur = int(($shorter + $longer + 1) / 2);
my $enc = substr($ustr, 0, $cur);
if (MIME::Charset::USE_ENCODE) {
- $enc = $charset->decoder->encode($enc);
+ $enc = $charset->undecode($enc);
}
my $elen = $charset->encoded_header_len($enc, $encoding);
if ($elen <= $restlen) {
@@ -998,15 +996,15 @@
($fenc, $renc) =
(substr($ustr, 0, $shorter), substr($ustr, $shorter));
if (MIME::Charset::USE_ENCODE) {
- $fenc = $charset->decoder->encode($fenc, FB_CROAK());
- $renc = $charset->decoder->encode($renc, FB_CROAK());
+ $fenc = $charset->undecode($fenc, FB_CROAK());
+ $renc = $charset->undecode($renc, FB_CROAK());
}
};
last unless ($@);
$shorter++;
unless ($shorter < $max) { # Unencodable character(s) may be included.
- return ($charset->decoder->encode($ustr), "");
+ return ($charset->undecode($ustr), "");
}
}
Modified: trunk/libmime-encwords-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-encwords-perl/META.yml?rev=18172&op=diff
==============================================================================
--- trunk/libmime-encwords-perl/META.yml (original)
+++ trunk/libmime-encwords-perl/META.yml Mon Mar 31 15:02:49 2008
@@ -1,13 +1,13 @@
# http://module-build.sourceforge.net/META-spec.html
#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
name: MIME-EncWords
-version: 1.008
+version: 1.009
version_from: EncWords.pm
installdirs: site
requires:
Encode: 1.98
MIME::Base64: 2.13
- MIME::Charset: 1.001
+ MIME::Charset: 1.004
Test: 0
distribution_type: module
Modified: trunk/libmime-encwords-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-encwords-perl/Makefile.PL?rev=18172&op=diff
==============================================================================
--- trunk/libmime-encwords-perl/Makefile.PL (original)
+++ trunk/libmime-encwords-perl/Makefile.PL Mon Mar 31 15:02:49 2008
@@ -6,11 +6,11 @@
'VERSION_FROM' => 'EncWords.pm',
'PREREQ_PM' => ($] >= 5.008001)? {
'Encode' => 1.98,
- 'MIME::Charset' => 1.001,
+ 'MIME::Charset' => 1.004,
'MIME::Base64' => 2.13,
'Test' => 0,
}: {
- 'MIME::Charset' => 1.001,
+ 'MIME::Charset' => 1.004,
'MIME::Base64' => 2.13,
'Test' => 0,
},
Modified: trunk/libmime-encwords-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libmime-encwords-perl/debian/changelog?rev=18172&op=diff
==============================================================================
--- trunk/libmime-encwords-perl/debian/changelog (original)
+++ trunk/libmime-encwords-perl/debian/changelog Mon Mar 31 15:02:49 2008
@@ -1,3 +1,9 @@
+libmime-encwords-perl (1.009-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at> Mon, 31 Mar 2008 17:01:32 +0200
+
libmime-encwords-perl (1.008-1) unstable; urgency=low
* New upstream release.
More information about the Pkg-perl-cvs-commits
mailing list