Yet Another CPAN Grep

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\