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