You are viewing a plain text version of this content. The canonical link for it is here.
Posted to dev@perl.apache.org by Stas Bekman <st...@stason.org> on 2004/02/11 02:30:02 UTC
Re: cvs commit: modperl-2.0/t/conf extra.last.conf.in
gozer@apache.org wrote:
> gozer 2004/02/10 09:45:22
[...]
> + open my $fh, ">$file" || die $!;
nice try of adding 'die' without adding it ;)
% perl -MO=Deparse,-p -e 'open my $fh, ">$file" || die $!;'
open(my $fh, (">$file" || die($!)));
which is equal to:
open my $fh, ">$file";
but you know that already ;) Now fixed.
__________________________________________________________________
Stas Bekman JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide ---> http://perl.apache.org
mailto:stas@stason.org http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org http://ticketmaster.com
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org
Re: cvs commit: modperl-2.0/t/conf extra.last.conf.in
Posted by "Philippe M. Chiasson" <go...@cpan.org>.
On Tue, 2004-02-10 at 17:30 -0800, Stas Bekman wrote:
> gozer@apache.org wrote:
> > gozer 2004/02/10 09:45:22
> [...]
> > + open my $fh, ">$file" || die $!;
>
> nice try of adding 'die' without adding it ;)
>
> % perl -MO=Deparse,-p -e 'open my $fh, ">$file" || die $!;'
> open(my $fh, (">$file" || die($!)));
>
> which is equal to:
>
> open my $fh, ">$file";
>
> but you know that already ;) Now fixed.
Ouch! Thanks for the spot, and , well, hrm, of course I knew _that_ ;-)
> __________________________________________________________________
> Stas Bekman JAm_pH ------> Just Another mod_perl Hacker
> http://stason.org/ mod_perl Guide ---> http://perl.apache.org
> mailto:stas@stason.org http://use.perl.org http://apacheweek.com
> http://modperlbook.org http://apache.org http://ticketmaster.com
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: dev-unsubscribe@perl.apache.org
> For additional commands, e-mail: dev-help@perl.apache.org
>