Re^4: Problem with -d inside find sub

Replies are listed 'Best First'.
Re^5: Problem with -d inside find sub by Anonymous Monk on Apr 28, 2012 at 11:33 UTC
The problem is with local and lexical $_ Example: `use 5.010; sub my_sub (&) { my $code = shift; local $_ = '1234'; $code->(); } my_sub { say }; given ("test") { when ("test") { my_sub { say }; } }` [download] Output: `1234 test` [download] Why? Because `my $_` (lexical - from the given/when blocks ($_ = 'test')) has a higher priority (aka is in the block where you are) than the `local $_` (local - from the `my_sub` ($_ = '1234') How to fix this? `use 5.010; sub my_sub (&) { my $code = shift; local $_ = '1234'; $code->(); } my_sub { say }; sub my_sub2 { my_sub { say }; } given ("test") { when ("test") { my_sub2(); } }` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: Problem with -d inside find sub
by Anonymous Monk on Apr 28, 2012 at 11:33 UTC

use 5.010;

sub my_sub (&) {
    my $code = shift;
    local $_ = '1234';
    $code->();
}

my_sub { say };

given ("test") {
    when ("test") {
        my_sub { say };
    }
}
[download]

1234
test
[download]

my $_

local $_

my_sub

use 5.010;

sub my_sub (&) {
    my $code = shift;
    local $_ = '1234';
    $code->();
}

my_sub { say };

sub my_sub2 {
    my_sub { say };
}

given ("test") {
    when ("test") {
        my_sub2();
    }
}
[download]

[reply]
[d/l]
[select]