Commit 1d04297491bb4c0d0f45c6aa8b11abbd70cd13c9 - libcapture-tiny-perl

+3

-3

lib/Capture/Tiny.pm less more

86	86	_open $dup{stdin} = IO::Handle->new, "<&=STDIN";
87	87	}
88	88	$proxies{stdin} = \*STDIN;
89		binmode(STDIN, ':utf8');
	89	binmode(STDIN, ':utf8') if $] >= 5.008;
90	90	}
91	91	if ( ! defined fileno STDOUT ) {
92	92	$proxy_count{stdout}++;

100	100	_open $dup{stdout} = IO::Handle->new, ">&=STDOUT";
101	101	}
102	102	$proxies{stdout} = \*STDOUT;
103		binmode(STDOUT, ':utf8');
	103	binmode(STDIN, ':utf8') if $] >= 5.008;
104	104	}
105	105	if ( ! defined fileno STDERR ) {
106	106	$proxy_count{stderr}++;

114	114	_open $dup{stderr} = IO::Handle->new, ">&=STDERR";
115	115	}
116	116	$proxies{stderr} = \*STDERR;
117		binmode(STDERR, ':utf8');
	117	binmode(STDIN, ':utf8') if $] >= 5.008;
118	118	}
119	119	return %proxies;
120	120	}

+1

-1

t/02-capture.t less more

12	12	plan 'no_plan';
13	13
14	14	my $builder = Test::More->builder;
15		binmode($builder->failure_output, ':utf8');
	15	binmode($builder->failure_output, ':utf8') if $] >= 5.008;
16	16
17	17	my $fd = next_fd;
18	18

+1

-1

t/03-tee.t less more

19	19	}
20	20
21	21	my $builder = Test::More->builder;
22		binmode($builder->failure_output, ':utf8');
	22	binmode($builder->failure_output, ':utf8') if $] >= 5.008;
23	23
24	24	my $fd = next_fd;
25	25

+1

-1

t/06-stdout-closed.t less more

15	15	plan 'no_plan';
16	16
17	17	my $builder = Test::More->builder;
18		binmode($builder->failure_output, ':utf8');
	18	binmode($builder->failure_output, ':utf8') if $] >= 5.008;
19	19
20	20	save_std(qw/stdout/);
21	21	ok( close STDOUT, "closed STDOUT" );

+1

-1

t/07-stderr-closed.t less more

15	15	plan 'no_plan';
16	16
17	17	my $builder = Test::More->builder;
18		binmode($builder->failure_output, ':utf8');
	18	binmode($builder->failure_output, ':utf8') if $] >= 5.008;
19	19
20	20	save_std(qw/stderr/);
21	21	ok( close STDERR, "closed STDERR" );

+1

-1

t/08-stdin-closed.t less more

15	15	plan 'no_plan';
16	16
17	17	my $builder = Test::More->builder;
18		binmode($builder->failure_output, ':utf8');
	18	binmode($builder->failure_output, ':utf8') if $] >= 5.008;
19	19
20	20	save_std(qw/stdin/);
21	21	ok( close STDIN, "closed STDIN" );

+1

-1

t/09-preserve-exit-code.t less more

13	13	plan tests => 4;
14	14
15	15	my $builder = Test::More->builder;
16		binmode($builder->failure_output, ':utf8');
	16	binmode($builder->failure_output, ':utf8') if $] >= 5.008;
17	17
18	18	my $fd = next_fd;
19	19

+1

-1

t/10-stdout-string.t less more

18	18	plan 'no_plan';
19	19
20	20	my $builder = Test::More->builder;
21		binmode($builder->failure_output, ':utf8');
	21	binmode($builder->failure_output, ':utf8') if $] >= 5.008;
22	22
23	23	save_std(qw/stdout/);
24	24	ok( close STDOUT, "closed STDOUT" );

+1

-1

t/11-stderr-string.t less more

18	18	plan 'no_plan';
19	19
20	20	my $builder = Test::More->builder;
21		binmode($builder->failure_output, ':utf8');
	21	binmode($builder->failure_output, ':utf8') if $] >= 5.008;
22	22
23	23	save_std(qw/stderr/);
24	24	ok( close STDERR, "closed STDERR" );

+1

-1

t/12-stdin-string.t less more

18	18	plan 'no_plan';
19	19
20	20	my $builder = Test::More->builder;
21		binmode($builder->failure_output, ':utf8');
	21	binmode($builder->failure_output, ':utf8') if $] >= 5.008;
22	22
23	23	#--------------------------------------------------------------------------#
24	24

+2

-2

t/13-stdout-tied.t less more

19	19	plan 'no_plan';
20	20
21	21	my $builder = Test::More->builder;
22		binmode($builder->failure_output, ':utf8');
23		binmode($builder->todo_output, ':utf8');
	22	binmode($builder->failure_output, ':utf8') if $] >= 5.008;
	23	binmode($builder->todo_output, ':utf8') if $] >= 5.008;
24	24
25	25	save_std(qw/stdout/);
26	26	tie *STDOUT, 't::lib::TieLC', ">&=STDOUT";

+2

-2

t/14-stderr-tied.t less more

19	19	plan 'no_plan';
20	20
21	21	my $builder = Test::More->builder;
22		binmode($builder->failure_output, ':utf8');
23		binmode($builder->todo_output, ':utf8');
	22	binmode($builder->failure_output, ':utf8') if $] >= 5.008;
	23	binmode($builder->todo_output, ':utf8') if $] >= 5.008;
24	24
25	25	save_std(qw/stderr/);
26	26	tie *STDERR, 't::lib::TieLC', ">&=STDERR";

+1

-1

t/15-stdin-tied.t less more

19	19	plan 'no_plan';
20	20
21	21	my $builder = Test::More->builder;
22		binmode($builder->failure_output, ':utf8');
	22	binmode($builder->failure_output, ':utf8') if $] >= 5.008;
23	23
24	24	save_std(qw/stdin/);
25	25	tie *STDIN, 't::lib::TieLC', ">&=STDIN";

+1

-1

t/lib/Cases.pm less more

30	30	my $t = shift;
31	31	return unless $t eq 'unicode';
32	32	my %seen;
33		my @orig_layers = grep {$_ ne 'unix' and $_ ne 'perlio' and $seen{$_}++} PerlIO::get_layers(STDOUT);
	33	my @orig_layers = grep {$_ ne 'unix' and $_ ne 'perlio' and $seen{$_}++} PerlIO::get_layers(\*STDOUT);
34	34	binmode(STDOUT, ":utf8") if fileno(STDOUT);
35	35	binmode(STDERR, ":utf8") if fileno(STDERR);
36	36	return @orig_layers;