Bug #8725 for Encode: Can't encode URI

Fri Dec 03 09:39:29 2004 GAAS [...] cpan.org - Ticket created

Subject:

Can't encode URI

There is a test in encode/decode that make it return undef if you try to pass a reference as the string to process. This seems like a bad idea. It will for instance prevent passing objects that do stringify overloading. $ perl -MURI -MEncode -le 'print encode("utf-8", URI->new("http://foo"))' $ perl -MURI -MEncode -le 'print encode("utf-8", URI->new("http://foo") . "")' http://foo I want these both to return the same thing. Just stringify whatever is passed in and process that. A croak might be in order if RETURN_ON_ERR is passed in CHECK.

Fri Dec 03 12:07:34 2004 DANKOGAI [...] cpan.org - Taken

Fri Dec 03 12:17:59 2004 DANKOGAI [...] cpan.org - Correspondence added

The patch below should fix that. Thanks for your remark. Dan the Encode Maintainer --- Encode.pm 2004/10/24 12:32:06 2.8 +++ Encode.pm 2004/12/03 17:06:59 @@ -1,5 +1,5 @@ # -# $Id: Encode.pm,v 2.8 2004/10/24 12:32:06 dankogai Exp dankogai $ +# $Id: Encode.pm,v 2.8 2004/10/24 12:32:06 dankogai Exp $ # package Encode; use strict; @@ -140,7 +140,7 @@ { my ($name, $string, $check) = @_; return undef unless defined $string; - return undef if ref $string; + $string .= '' if ref $string; # stringify; $check ||=0; my $enc = find_encoding($name); unless(defined $enc){ @@ -156,7 +156,7 @@ { my ($name,$octets,$check) = @_; return undef unless defined $octets; - return undef if ref $octets; + $string .= '' if ref $octets; $check ||=0; my $enc = find_encoding($name); unless(defined $enc){

Fri Dec 03 12:54:28 2004 DANKOGAI [...] cpan.org - Status changed from 'new' to 'resolved'