From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Date: Sun, 20 Mar 2005 00:07:41 +0300 From: Andrey Brindeew To: ALT Devel discussion list Message-ID: <20050319210740.GA16602@abr.pp.ru> Mail-Followup-To: ALT Devel discussion list References: <20050228153041.4d64ebf6@pokemon.msk.menatepspb.com> <20050304223412.GE16875@solemn.turbinal.org> <12110389322.20050307230738@altlinux.ru> <20050311024004.GA3178@solemn.turbinal.org> <20050312123723.GB4698@abr.pp.ru> <20050312140804.GA1558@solemn.turbinal.org> Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha1; protocol="application/pgp-signature"; boundary="DIOMP1UsTsWJauNi" Content-Disposition: inline In-Reply-To: <20050312140804.GA1558@solemn.turbinal.org> User-Agent: Mutt/1.4.2.1i Subject: [devel] Re: Q: perl-SOAP-Lite X-BeenThere: devel@altlinux.ru X-Mailman-Version: 2.1.5 Precedence: list Reply-To: ALT Devel discussion list List-Id: ALT Devel discussion list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Sat, 19 Mar 2005 21:07:42 -0000 Archived-At: List-Archive: List-Post: --DIOMP1UsTsWJauNi Content-Type: multipart/mixed; boundary="LpQ9ahxlCli8rRTG" Content-Disposition: inline --LpQ9ahxlCli8rRTG Content-Type: text/plain; charset=koi8-r Content-Disposition: inline Content-Transfer-Encoding: quoted-printable On Sat, Mar 12, 2005 at 05:08:04PM +0300, Alexey Tourbin wrote: > > =F1 =CD=CF=C7=D5 =CF=D4=C4=C1=D4=D8 perl-SOAP-Lite (=D5 =CD=C5=CE=D1 = =C2=CF=CC=D8=DB=C5 =CE=C5=D4 =C9=CE=D4=C5=D2=C5=D3=C1 =CB =D3=D5=C4=D8=C2=C5 > > =DC=D4=CF=C7=CF =D0=C1=CB=C5=D4=C1). =F4=C1=CD =C5=DD=C5 =CE=D5=D6=C5= =CE =D0=C1=D4=DE =C4=CC=D1 =D7=C5=D2=D3=C9=CA perl =CE=C1=DE=C9=CE=C1=D1 =D3 > > 5.8.0, =D4.=CB. MIME::Base64 =CE=C5 =D2=C1=C2=CF=D4=C1=C5=D4 =D3=CF =D3= =D4=D2=CF=CB=C1=CD=C9, =D5 =CB=CF=D4=CF=D2=D9=C8 > > =D7=DA=D7=C5=C4=A3=CE =C6=CC=C1=C7 UTF8. =EE=CF =D0=C1=D4=DE =CB=D2=C9= =D7 =D7 =D4=CF=CD =D0=CC=C1=CE=C5, =DE=D4=CF =CD=CF=C4=D5=CC=D8 =CE=C5 =C2= =D5=C4=C5=D4 > > =D2=C1=C2=CF=D4=C1=D4=D8 =D3 perl < 5.8.0. =F7=D9=D3=CC=C1=D4=D8 =D0=C1= =D4=DE? >=20 > =E4=C1. attached --=20 WBR, Andrey Brindeew. "No one person can understand Perl culture completely" (C) Larry Wall. --LpQ9ahxlCli8rRTG Content-Type: text/plain; charset=us-ascii Content-Disposition: attachment; filename="Lite.pm.patch" Content-Transfer-Encoding: quoted-printable --- Lite.pm.orig 2003-08-18 22:44:18 +0400 +++ Lite.pm 2005-02-10 15:35:44 +0300 @@ -12,6 +12,7 @@ =20 use 5.004; use strict; +use Encode; use vars qw($VERSION); $VERSION =3D sprintf("%d.%s", map {s/_//g; $_} q$Name: release-0_60-public= $ =3D~ /-(\d+)_([\d_]+)/) or warn "warning: unspecified/non-released version of ", __PACKAGE__, "\= n"; @@ -126,6 +127,7 @@ my $self =3D shift; my($value, $name, $type, $attr) =3D @_; require MIME::Base64; + $value =3D Encode::encode("utf8", $value) if Encode::is_utf8($value); return [$name, {'xsi:type' =3D> SOAP::Utils::qualify($self->encprefix = =3D> 'base64'), %$attr}, MIME::Base64::encode_base64($value,'')]; } =20 @@ -216,6 +218,7 @@ my $self =3D shift; my($value, $name, $type, $attr) =3D @_; require MIME::Base64; + $value =3D Encode::encode("utf8", $value) if Encode::is_utf8($value); return [$name, {'xsi:type' =3D> 'xsd:base64Binary', %$attr}, MIME::Base6= 4::encode_base64($value,'')]; } =20 --LpQ9ahxlCli8rRTG-- --DIOMP1UsTsWJauNi Content-Type: application/pgp-signature Content-Disposition: inline -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.5 (GNU/Linux) Comment: Get my public key at http://abr.pp.ru/gpg.html iD8DBQFCPJSc3gaCZ4hbZncRAurIAJ9bmdGzKRURD8Cb0Lizuib0/6+D0wCgt1pB QJkXdJXo+eXUh3wvFrzbvUQ= =B4s5 -----END PGP SIGNATURE----- --DIOMP1UsTsWJauNi--