Front page | perl.perl5.porters |
Postings from March 2003
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