[Moscow.pm] Encode: danko gay, все геи - вредители!

[Victor Efimov]

Ну вот интересно, если ты другого человека называешь геем, как ты
отнесёшься к тому что тебя так назовут?
А ведь всё к тому и идёт, ведь новая версия Encode всё правильно
делает ( https://github.com/dankogai/p5-encode/pull/11/files
https://rt.cpan.org/Public/Bug/Display.html?id=87267 , я тоже посильно
поучаствовал пинанием автора сделать это изменение ) , твой код
абсолютно безграмотен, и ты не смог прочитать имя автора Encode: "Dan
Kogai" и даже букву в его имени "i", а не "y"


18 октября 2016 г., 18:52 пользователь Ivan Petrov
<i.petro.77.00 на gmail.com> написал:
> Нету слов.
>
> Работаю над проблемой "обновить perl в проекте"
> наткнулся на то что в Encode был такой код
>
> sub decode_utf8($;$) {
>     my ( $octets, $check ) = @_;
>     return $octets if is_utf8($octets);
>     return undef unless defined $octets;
>     $octets .= '' if ref $octets;
>     $check   ||= 0;
>     $utf8enc ||= find_encoding('utf8');
>     my $string = $utf8enc->decode( $octets, $check );
>     $_[0] = $octets if $check and !ref $check and !( $check & LEAVE_SRC() );
>     return $string;
> }
>
>
> А теперь вот такой:
>
> sub decode_utf8($;$) {
>     my ( $octets, $check ) = @_;
>     return undef unless defined $octets;
>     $octets .= '';
>     $check   ||= 0;
>     $utf8enc ||= find_encoding('utf8');
>     my $string = $utf8enc->decode( $octets, $check );
>     $_[0] = $octets if $check and !ref $check and !( $check & LEAVE_SRC() );
>     return $string;
> }
>
>
> То есть если раньше код работал нормально:
>
> use utf8;
> use Encode qw(decode_utf8);
> $bla = decode_utf8('привет, медвед')
>
>
> То на свежем Perl валится.
> Поглядел я в заголовки модуля, автор некто - danko gay.
>
> И вот собственно скажите, можно ли к геям относиться нормально? они же
> вредители все поголовно!
>
> PS: в Mojolicious тоже гомики: запретили использовать utf8 в
> тестах.
>
> use utf8;
> use open qw(:std :utf8);
> use Test::More;
> use Test::Mojo;
>
> print "А теперь потестим\n";
> ok 1, 'тест Test::More пройден';
> Test::Mojo->new('MyApp')->get_ok('/', 'тест пройден');
>
> теперь не работает
>
> куды мир катится?
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org