xref: /openbsd/gnu/usr.bin/perl/t/lib/croak/pp (revision 264ca280) 
1__END__
2# NAME [perl #119809] Attempt to bless into a reference (tied)
3sub TIESCALAR { bless [] }
4sub FETCH { [] }
5tie $t, "";
6bless({}, $t);
7EXPECT
8Attempt to bless into a reference at - line 4.
9########
10# NAME [perl #119809] Attempt to bless into a reference (magical)
11$/ = \1;
12bless [], $/
13EXPECT
14Attempt to bless into a reference at - line 2.
15########
16# NAME Attempt to bless into a reference after method changes
17sub foo{} bless [], bless []
18EXPECT
19Attempt to bless into a reference at - line 1.
20