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 ..)');Thread Previous | Thread Next