develooper Front page | perl.perl5.porters | Postings from April 2008

RE: bug in if(open(my $fh,...))

Thread Previous | Thread Next
From:
KONOVALOV, Vadim ** CTR **
Date:
April 29, 2008 04:05
Subject:
RE: bug in if(open(my $fh,...))
Message ID:
D16F05D0CAAA234BA2B753B80DE6100D885737@DEEXC1U02.de.lucent.com
> > BTW if (condition) {...} expands to condition && do {...};
> 
> No it doesn't.

yes it does

D:\perl5100\lib\B>perl -MO=Concise -we "if($r>3){print 'qq'}"
Name "main::r" used only once: possible typo at -e line 1.
a  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 3 -e:1) v:{ ->3
-     <1> null vK/1 ->a
6        <|> and(other->7) vK/1 ->a
5           <2> gt sK/2 ->6
-              <1> ex-rv2sv sK/1 ->4
3                 <#> gvsv[*r] s ->4
4              <$> const[IV 3] s ->5
-           <@> scope vK ->-
-              <0> ex-nextstate v ->7
9              <@> print vK ->a
7                 <0> pushmark s ->8
8                 <$> const[PV "qq"] s ->9


However I agree scopes are twisted differently (and my other assumptions
in my other letter to p5p are wrong)

BR,
Vadim.

Thread Previous | Thread Next


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