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

__END__
# 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.
Commit	Line	Data
8d9dd4b9 FC	1	__END__
	2	# NAME [perl #119809] Attempt to bless into a reference (tied)
	3	sub TIESCALAR { bless [] }
	4	sub FETCH { [] }
	5	tie $t, "";
	6	bless({}, $t);
	7	EXPECT
	8	Attempt to bless into a reference at - line 4.
	9	########
	10	# NAME [perl #119809] Attempt to bless into a reference (magical)
	11	$/ = \1;
	12	bless [], $/
	13	EXPECT
	14	Attempt to bless into a reference at - line 2.