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

__END__
# NAME our @a->{0}
# Somewhat nonsensical, but at least it should not fail an assertion.
our @a->{0};
EXPECT
Can't use an undefined value as a HASH reference at - line 2.
########
# NAME [perl #119809] Attempt to bless into a reference (tied)
sub TIESCALAR { bless [] }
sub FETCH { [] }
tie $t, "";
bless({}, $t);
EXPECT
Attempt to bless into a reference at - line 4.
########
# NAME [perl #119809] Attempt to bless into a reference (magical)
$/ = \1;
bless [], $/
EXPECT
Attempt to bless into a reference at - line 2.
########
# NAME Attempt to bless into a reference after method changes
sub foo{} bless [], bless []
EXPECT
Attempt to bless into a reference at - line 1.
Commit	Line	Data
8d9dd4b9	1	__END__
83ecf230 FC	2	# NAME our @a->{0}
	3	# Somewhat nonsensical, but at least it should not fail an assertion.
	4	our @a->{0};
	5	EXPECT
	6	Can't use an undefined value as a HASH reference at - line 2.
	7	########
8d9dd4b9 FC	8	# NAME [perl #119809] Attempt to bless into a reference (tied)
	9	sub TIESCALAR { bless [] }
	10	sub FETCH { [] }
	11	tie $t, "";
	12	bless({}, $t);
	13	EXPECT
	14	Attempt to bless into a reference at - line 4.
	15	########
	16	# NAME [perl #119809] Attempt to bless into a reference (magical)
	17	$/ = \1;
	18	bless [], $/
	19	EXPECT
	20	Attempt to bless into a reference at - line 2.
c7ea825d FC	21	########
	22	# NAME Attempt to bless into a reference after method changes
	23	sub foo{} bless [], bless []
	24	EXPECT
	25	Attempt to bless into a reference at - line 1.