forked from pool/perl-Net-OpenID-Consumer
Dirk Stoecker
40ebe0f61a
OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Net-OpenID-Consumer?expand=0&rev=13
13 lines
732 B
Diff
13 lines
732 B
Diff
diff -ur Net-OpenID-Consumer-1.18/lib/Net/OpenID/Consumer.pm Net-OpenID-Consumer-1.18_fix/lib/Net/OpenID/Consumer.pm
|
|
--- Net-OpenID-Consumer-1.18/lib/Net/OpenID/Consumer.pm 2016-02-08 02:39:06.000000000 +0100
|
|
+++ Net-OpenID-Consumer-1.18_fix/lib/Net/OpenID/Consumer.pm 2016-02-13 17:19:38.416153280 +0100
|
|
@@ -974,7 +974,7 @@
|
|
$post{"openid.mode"} = "check_authentication";
|
|
|
|
my $req = HTTP::Request->new(POST => $server);
|
|
- $req->header("Content-Type" => "application/x-www-form-urlencoded");
|
|
+ $req->header("Content-Type" => "application/x-www-form-urlencoded; charset=UTF-8");
|
|
$req->content(join("&", map { "$_=" . uri_escape_utf8($post{$_}) } keys %post));
|
|
|
|
my $ua = $self->ua;
|