Searched refs:has_perlio (Results 1 – 6 of 6) sorted by relevance
9 my $has_perlio;51 unless ($has_perlio = PerlIO::Layer->can("find") && PerlIO::Layer->find('perlio')) {102 if ($has_perlio) {199 if ($has_perlio) {
28 my $has_perlio = PerlIO::Layer->find( 'perlio' );279 if ($has_perlio) {287 if ($has_perlio) {349 if ($has_perlio) { binmode($sock, ":utf8") or die }
28 my $has_perlio = !eval {56 if $utf8 and !$has_perlio;
14 my $has_perlio = $Config{useperlio};
3 my $has_perlio;9 unless ($has_perlio = find PerlIO::Layer 'perlio') {177 binmode(P, ":bytes") if $has_perlio;
1932 sub has_perlio { return $HAS_PERLIO; } subroutine