
The stupid question is the question not asked
	PerlMonks

by LanX (Saint)

on Nov 28, 2020 at 12:48 UTC ( [id://11124319]=note: print w/replies, xml )

Need Help??

Select Code to Download

{ 
    $x = 1;
...
        $x = 2;
    }
}

{ 
    my $x = 1;
...
        my $x = 2;
    }
}

{ 
    $x = 1;
...
        my $x = 2;
    }
}

{ 
    my $x = 1;
...
        my $x = 2;
    }
}

{ 
    my $x = 1;
...
        $x = 2;
    }
}

{ 
    my $x = 1;
...
        $x = 2;
    }
}

{ 
    my $x = 1;
...
        my $x = 2;
    }
}

{ 
    my $x = 1;
...
        my $x = 2;
    }
}

sub foo { 
    if (1) {
...
    }
    print $x;
}

sub foo { 
    if (1) {
...
    }
    print $x;     # undeclared
}

sub add { 
    $x = 0;
...
    }
    print $x;
}

sub add { 
    my $x = 0;
...
    }
    print $x;         # prints 0
}

use automine
# our $var;
...
    $var = shift; # not 'my $var' if explicit 'our $var' exists 
    ...
}

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://11124319]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others musing on the Monastery: (4)

As of 2024-04-25 14:04 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found