Group
Extension

Matches 2

File-Replace ( H/HA/HAUKEX/File-Replace-0.14.tar.gz, HAUKEX, 2019; MetaCPAN )
File-Replace/t/50_inplace.t ( view source; MetaCPAN )
defined(fileno ARGV), defined(fileno ARGVOUT), $., eof];
	while (<>) {
		print "$ARGV:$.: ".uc;
		isnt select(), 'main::STDOUT', 'STDOUT isn\'t selected in loop';
		push @states, [[@ARGV], $ARGV, defi
(fileno ARGV), defined(fileno ARGVOUT), $., eof], eof();
	while (<>) {
		print "$ARGV:$.: ".uc;
		isnt select(), 'main::STDOUT', 'STDOUT isn\'t selected in loop';
		push @states, [[@ARGV], $ARGV, defi
fileno ARGV), defined(fileno ARGVOUT), $., eof];
	while (<>) {
		print "$testfilename1/$./".lc;
		isnt select(), 'main::STDOUT', 'STDOUT isn\'t selected in loop';
		push @states, [[@ARGV], $ARGV, [@te
File-Replace ( H/HA/HAUKEX/File-Replace-0.14.tar.gz, HAUKEX, 2019; MetaCPAN )
File-Replace/t/40_dualhandle.t ( view source; MetaCPAN )
ed(*$fh)->in_fh ) ), 'in isnt utf8'
		or diag explain [PerlIO::get_layers( tied(*$fh)->in_fh )];
	ok !grep( {$_ eq 'utf8'} PerlIO::get_layers( tied(*$fh)->out_fh ) ), 'out isnt utf8'
		or diag explain
f8'} PerlIO::get_layers( tied(*$fh3)->in_fh  ) ), 'in isnt utf8';
	ok !grep( {$_ eq 'utf8'} PerlIO::get_layers( tied(*$fh3)->out_fh ) ), 'out isnt utf8';
	# check against Perl's own behavior
	open my 
e $!;  ## no critic (ProhibitTwoArgOpen)
	ok !grep( {$_ eq 'utf8'} PerlIO::get_layers( $fh4 ) ), 'isnt utf8';
};

subtest 'autocancel, autofinish' => sub { plan tests=>6;
	ok !grep( {/\bunclosed file\

Powered by Groonga
Maintained by Kenichi Ishigaki <ishigaki@cpan.org>. If you find anything, submit it on GitHub.