Re^2: if(my) scope

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?

Comment on Re^2: if(my) scope Select or Download Code

Replies are listed 'Best First'.
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]