develooper Front page | perl.perl5.porters | Postings from March 2003

Re: [fix] [perl #21575] Bug with print( followed by a newline

Thread Previous
From:
Rafael Garcia-Suarez
Date:
March 17, 2003 13:22
Subject:
Re: [fix] [perl #21575] Bug with print( followed by a newline
Message ID:
20030317222416.0df10d67.rgarciasuarez@free.fr
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


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About