sub handle_unicode_encoding_exception {
my ( $self, $exception_ctx ) = @_;
- die $exception_ctx->{error_msg};
+ $self->log->warn($exception_ctx->{error_msg});
+ return $exception_ctx->{'param_value'};
}
1;
use warnings;
use MRO::Compat;
use Scalar::Util ();
+use TestLogger;
use base qw/Catalyst Catalyst::Controller/;
use Catalyst qw//;
+__PACKAGE__->log(TestLogger->new);
+
sub execute {
my $c = shift;
my ( $class, $action ) = @_;
package ChainedActionsApp;
use Moose;
use namespace::autoclean;
+use TestLogger;
use Catalyst::Runtime 5.80;
disable_component_regex_fallback => 1,
);
+__PACKAGE__->log(TestLogger->new);
+
__PACKAGE__->setup;
1;
package TestAppDoubleAutoBug;
+use TestLogger;
use Catalyst qw/
Test::Errors
Test::Headers
__PACKAGE__->config( name => 'TestAppDoubleAutoBug', root => '/some/dir' );
+__PACKAGE__->log(TestLogger->new);
+
__PACKAGE__->setup;
sub execute {
package TestAppIndexDefault;
use strict;
use warnings;
+use TestLogger;
use Catalyst;
+__PACKAGE__->log(TestLogger->new);
+
__PACKAGE__->setup;
1;
package TestAppMatchSingleArg;
use strict;
use warnings;
+use TestLogger;
use Catalyst;
+__PACKAGE__->log(TestLogger->new);
+
__PACKAGE__->setup;
1;
package TestAppOneView;
use strict;
use warnings;
+use TestLogger;
use Catalyst;
+__PACKAGE__->log(TestLogger->new);
+
__PACKAGE__->setup;
1;
--- /dev/null
+package TestAppWithoutUnicode;
+use strict;
+use warnings;
+use TestLogger;
+use base qw/Catalyst/;
+use Catalyst qw/Params::Nested/;
+
+__PACKAGE__->config('name' => 'TestAppWithoutUnicode');
+
+__PACKAGE__->log(TestLogger->new);
+
+__PACKAGE__->setup;
+
+1;
--- /dev/null
+package TestAppWithoutUnicode::Controller::Root;
+
+use Moose;
+BEGIN { extends 'Catalyst::Controller' }
+use Encode qw(encode_utf8 decode_utf8);
+
+__PACKAGE__->config( namespace => q{} );
+
+sub default : Private {
+ my ( $self, $c ) = @_;
+ my $param = decode_utf8($c->request->parameters->{'myparam'});
+ $c->response->body( encode_utf8($param) );
+}
+
+__PACKAGE__->meta->make_immutable;
+
+1;
--- /dev/null
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use Test::More;
+use utf8;
+
+# setup library path
+use FindBin qw($Bin);
+use lib "$Bin/lib";
+
+use Catalyst::Test 'TestAppWithoutUnicode';
+use Encode;
+use HTTP::Request::Common;
+use URI::Escape qw/uri_escape_utf8/;
+use HTTP::Status 'is_server_error';
+
+my $encode_str = "\x{e3}\x{81}\x{82}"; # e38182 is japanese 'あ'
+my $decode_str = Encode::decode('utf-8' => $encode_str);
+my $escape_str = uri_escape_utf8($decode_str);
+
+check_parameter(GET "/?myparam=$escape_str");
+
+sub check_parameter {
+ my ( undef, $c ) = ctx_request(shift);
+ is $c->res->output => $encode_str;
+
+ my $myparam = $c->req->param('myparam');
+ ok !utf8::is_utf8($myparam);
+ is $myparam => $encode_str;
+
+ is scalar(@TestLogger::ELOGS), 2
+ or diag Dumper(\@TestLogger::ELOGS);
+ like $TestLogger::ELOGS[0], qr/method \"decode\"/;
+}
+
+done_testing;