Enache Adrian wrote: > On Fri, Mar 14, 2003 at 10:41:17PM +0100, Rafael Garcia-Suarez wrote: > > Looks correct. Thanks, applied as #18986. I added a test, in the most > > simple way I could find : > > (just for fun, your test is probably sufficient) > > ------------------------------------------------------ > eval { > { package A; sub TIEHANDLE {bless{}} sub PRINT {} } > tie *B, A; my @a=(13); > print( > B $a[0]); > }; > is ($@, '', '#21575 print(\\n .. args ..)'); Neat, even if it's not obvious at first sight that we're testing the same bug...Thread Previous