KES777 / mojo

Mojolicious - Perl real-time web framework
http://mojolicio.us
Artistic License 2.0
0 stars 0 forks source link

Запрос без utf8 флага конвертируется в UTF8 данные #67

Open KES777 opened 5 years ago

KES777 commented 5 years ago
lib/perl5/Mojo/Message.pm:141
my $data = $self->{json} //= j($self->body);

DBG> $self->body
{"opfg_id":215,"name":"gadsddas","country_id":2,"edrpou":123123,"edr_cert":"2525225","tax_system":"Платник єдиного податку за ставкою 3 %","phone":"+380987654322","site":"arqwrqwr","director_person_basis_for_work":"fffffffffffffffffffff","authorized_person_basis_for_work":"ааааааааааааааа","authorized_person_position":"ааааааааааааааааааааааааааа","ipn":"23423","nds_cert":123123,"contractor_type_id":2,"signer_person_basis_for_work":"лул","signer_person_position":"ааааааааааааааааааааааааааа","authorized_person_id":882,"director_person_id":881,"signer_person_id":883,"legal_address_id":188,"correspondence_address_id":189}

DBG> j($self->body)
Wide character in print at /home/kes/perl5/perlbrew/perls/perl-5.24.1/lib/site_perl/5.24.1/DB/Utils.pm line 161, <STDIN> line 5.
{
  authorized_person_basis_for_work => ааааааааааааааа,
  authorized_person_id => 882,
  authorized_person_position => ааааааааааааааааааааааааааа,
  contractor_type_id => 2,
  correspondence_address_id => 189,
  country_id => 2,
  director_person_basis_for_work => fffffffffffffffffffff,
  director_person_id => 881,
  edr_cert => 2525225,
  edrpou => 123123,
  ipn => 23423,
  legal_address_id => 188,
  name => gadsddas,
  nds_cert => 123123,
  opfg_id => 215,
  phone => +380987654322,
  signer_person_basis_for_work => лул,
  signer_person_id => 883,
  signer_person_position => ааааааааааааааааааааааааааа,
  site => arqwrqwr,
  tax_system => Платник єдиного податку за ставкою 3 %,
}

 Devel::Peek::Dump $self->body
SV = PV(0xb56d780) at 0xb9568b0
  REFCNT = 1
  FLAGS = (TEMP,POK,IsCOW,pPOK)
  PV = 0xb725160 "{\"opfg_id\": ...
  CUR = 729
  LEN = 736
  COW_REFCNT = 1

DBG> Devel::Peek::Dump j( $self->body )->{ phone }
SV = PVMG(0xb94ef70) at 0xb9570a8
  REFCNT = 1
  FLAGS = (POK,IsCOW,pPOK,UTF8)
  IV = 0
  NV = 0
  PV = 0xb93aaa0 "+380987654322"\0 [UTF8 "+380987654322"]
  CUR = 13
  LEN = 16
  COW_REFCNT = 0
undef