Re: if(my) scope

Replies are listed 'Best First'.
Re^2: if(my) scope by cdarke (Prior) on Apr 16, 2009 at 15:44 UTC
Although I am sure you are right, how come: `use strict; use warnings; use Devel::Peek; my $true = 1; my $ref; if ($true) { my $fred = 42; $ref = \$fred; } print Dump($$ref);` [download] Gives: `SV = IV(0x3b2e0) at 0x3b2e4 REFCNT = 1 FLAGS = (PADMY,IOK,pIOK) IV = 42` [download] A reference count of 1, not 2?	[reply] [d/l] [select]
Re^3: if(my) scope by ikegami (Patriarch) on Apr 16, 2009 at 15:53 UTC
You changed `if (my $var) { ... }` to `if (...) { my $var; ... }` `use strict; use warnings; use Devel::Peek; my $ref; if ((my $fred = 42), 1) { $ref = \$fred; Dump($$ref); } Dump($$ref);` [download] `SV = IV(0x816a5cc) at 0x814f684 REFCNT = 2 FLAGS = (PADBUSY,PADMY,IOK,pIOK) IV = 42 SV = IV(0x816a5cc) at 0x814f684 REFCNT = 2 FLAGS = (PADBUSY,PADMY,IOK,pIOK) IV = 42` [download] A scope is created for `if`'s curlies, but only a compile-time scope is created for the condition expression. Btw, note the proper usage of `Dump`.	[reply] [d/l] [select]
Re^4: if(my) scope by cdarke (Prior) on Apr 16, 2009 at 16:01 UTC
Doh!	[reply]
Re^2: if(my) scope by oha (Friar) on Oct 12, 2009 at 08:53 UTC
i just realized that: `open my $fh, '<', $file or die;` [download] so i'm asking myself if the possibility to setup a scope variable inside the argument of a function call is extended to _if_ statements too?	[reply] [d/l]
Re^3: if(my) scope by ikegami (Patriarch) on Oct 12, 2009 at 09:20 UTC
This is fine: `if (open(my $fh, '<', $qfn)) { ...read from $fh... } # $fh is out of reach here` [download] Perl doesn't care where the `my` is to the point that it allows the following (even though the behaviour is officially undefined): `my $fh if ...;` [download]	[reply] [d/l] [select]
Re^4: if(my) scope by oha (Friar) on Oct 12, 2009 at 14:50 UTC
that's another thing: `if(my $x = expr) { ... } # my always executed my $x if expr; # my is conditional if(expr) { my $x } # as above` [download] what i was saying is that if i can my on a arg of a function, maybe i can do the same in the "argument" of a if Oha	[reply] [d/l]
Re^5: if(my) scope by ikegami (Patriarch) on Oct 12, 2009 at 17:01 UTC


We don't bite newbies here... much
	PerlMonks