Re^6: Multiple uses of (?{ code }) do not appear to be called

Right, gotcha. I was confused, since the perldocs say: "An "our" declares the listed variables to be valid globals within the enclosing block". It didn't occur to me at first that an inner scope would simply reuse an "our" in the enclosing scope. I now also see what diotalevi meant with stomping on my parent :)

Comment on Re^6: Multiple uses of (?{ code }) do not appear to be called

Replies are listed 'Best First'.
Re^7: Multiple uses of (?{ code }) do not appear to be called by ikegami (Patriarch) on Dec 29, 2006 at 20:20 UTC
dio wasn't refering to enclosing scopes. Compare `sub test { my ($x) = shift; return if !$x; our @o = $x; test($x-1); print("@o\n"); } test(3); # 1,1,1` [download] with `sub test { my ($x) = shift; return if !$x; local our @o = $x; test($x-1); print("@o\n"); } test(3); # 1,2,3` [download] The same problem occurs without recursion too. Compare `sub foo { my ($x) = shift; our @o = 1; bar(); print("@o\n"); } sub bar { my ($x) = shift; our @o = 2; print("@o\n"); } foo(); # 2,2` [download] with `sub foo { my ($x) = shift; local our @o = 1; bar(); print("@o\n"); } sub bar { my ($x) = shift; local our @o = 2; print("@o\n"); } foo(); # 2,1` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^7: Multiple uses of (?{ code }) do not appear to be called
by ikegami (Patriarch) on Dec 29, 2006 at 20:20 UTC

dio wasn't refering to enclosing scopes. Compare

sub test {
   my ($x) = shift;
   return if !$x;

   our @o = $x;
   test($x-1);
   print("@o\n");
}

test(3);  # 1,1,1
[download]

with

sub test {
   my ($x) = shift;
   return if !$x;

   local our @o = $x;
   test($x-1);
   print("@o\n");
}

test(3);  # 1,2,3
[download]

The same problem occurs without recursion too. Compare

sub foo {
   my ($x) = shift;
   our @o = 1;
   bar();
   print("@o\n");
}

sub bar {
   my ($x) = shift;
   our @o = 2;
   print("@o\n");
}

foo();  # 2,2
[download]

with

sub foo {
   my ($x) = shift;
   local our @o = 1;
   bar();
   print("@o\n");
}

sub bar {
   my ($x) = shift;
   local our @o = 2;
   print("@o\n");
}

foo();  # 2,1
[download]

[reply]
[d/l]
[select]