in reply to Re^3: CGI.pm: automatically decode param()
in thread CGI.pm: automatically decode param()

Sooner or later I'll have to do that I think.

My current approach is a wrapper (not yet tested), I haven't decided yet which approach I like better (or which I detest less ;-) 

package MyCGI;
use base CGI;
use strict;
use warnings;
use Encode qw(encode);

sub param {
    my $self = shift;
    if (@_ == 1){
        my @val = $self->SUPER::param(@_);
        @val = map { encode("utf8", $_) } @val;
        return wantarray ? @val : $val[0];
    } else {
        return $self->SUPER::param(@_);
    }
}
1;

[download]

Replies are listed 'Best First'.
Re^5: CGI.pm: automatically decode param()
by rhesa (Vicar) on Sep 04, 2007 at 12:02 UTC
    Watch out for file upload fields: if you utf-encode $q->param('upload'), you'll mangle the underlying filehandle. I use an override that's pretty much the same as yours, except that I added the following check: 
    sub param {
    my $self = shift;
    if (@_ == 1){
        my @val = $self->SUPER::param(@_);
        @val = map { maybe_decode( $_ ) } @val;
    # rest of your param()
}

sub maybe_decode {
    my $p = shift;
    return ( !$p || ( ref $p && fileno($p) ) )
           ? $p
           : encode('utf8', $p);
}

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom