Select Code to Download

{ package RecMy ;

...
    rec(4);  
  }
}

--------------------- 1
<0> [0] set append
...
<1>  append append append append append
<2>  append append append append append
<3> [3] set append

--------------------- 1
<0> [0] set append
...
<1>  append
<2>  append
<3> [3] set append

  ## changed from (bugged):
  my $local = "[$n] set" if ($n/3) !~ /\./ ;
...
  ## to (fine):
  my $local ;
  $local = "[$n] set" if ($n/3) !~ /\./ ;

... if ($n/3) !~ /\./ ;