[perl5.git] / t / lib / croak / pp_sys

__END__
# pp_sys.c
# NAME pipe() croaks on bad left side [perl #126480]
# SKIP ? use Config; !$Config{d_pipe} && "No pipe() available"
my $fh;
pipe($$5, $fh)
EXPECT
Bad symbol for filehandle at - line 3.
########
# NAME pipe() croaks on bad right side [perl #126480]
# SKIP ? use Config; !$Config{d_pipe} && "No pipe() available"
my $fh;
pipe($fh, $$5)
EXPECT
Bad symbol for filehandle at - line 2.
########
Commit	Line	Data
e8c18a84 TC	1	__END__
	2	# pp_sys.c
	3	# NAME pipe() croaks on bad left side [perl #126480]
	4	# SKIP ? use Config; !$Config{d_pipe} && "No pipe() available"
	5	my $fh;
	6	pipe($$5, $fh)
	7	EXPECT
	8	Bad symbol for filehandle at - line 3.
	9	########
	10	# NAME pipe() croaks on bad right side [perl #126480]
	11	# SKIP ? use Config; !$Config{d_pipe} && "No pipe() available"
	12	my $fh;
	13	pipe($fh, $$5)
	14	EXPECT
	15	Bad symbol for filehandle at - line 2.
	16	########