Re: [perl #78708] use || not or! :-)

On Mon, Dec 05, 2011 at 07:59:27AM +0000, hv@crypt.org wrote:
> "Alexandr Ciornii via RT" <perlbug-followup@perl.org> wrote:
> :index 634e891..90d8ece 100644
> :--- a/utils/h2xs.PL
> :+++ b/utils/h2xs.PL
> :@@ -893,7 +893,7 @@ if( @path_h ){
> :       }
> :       else {
> : 	# Work from miniperl too - on "normal" systems
> :-        my $SEEK_SET = eval 'use Fcntl qw/SEEK_SET/; SEEK_SET' or 0;
> :+        my $SEEK_SET = eval 'use Fcntl qw/SEEK_SET/; SEEK_SET' || 0;
> :         seek CH, 0, $SEEK_SET;
> :         my $src = do { local $/; <CH> };
> :         close CH;
> 
> Um, that's wrong too. You'll need parens.

It appears to parse as desired without the parens:

% perl -MO=Deparse,-p -e 'my $SEEK_SET = eval "use Fcntl qw/SEEK_SET/; SEEK_SET" || 0;'
(my $SEEK_SET = (eval('use Fcntl qw/SEEK_SET/; SEEK_SET') || 0));
-e syntax OK

Ronald

• [perl #78708] use || not or! :-) by Alexandr Ciornii via RT
• [perl #78708] use || not or! :-) by Father Chrysostomos via RT
• Re: [perl #78708] use || not or! :-) by hv
• Re: [perl #78708] use || not or! :-) by Ronald J Kimball
• Re: [perl #78708] use || not or! :-) by Abigail