- for (my $i = $min_ndisc; $i < $ndisc; $i++)
- { $st_add_disc->execute($id, $i, $path[$i]); }
+ for (my $i = $min_ndisc; $i < $ndisc; $i++) {
+ my $box = $box{$path[$i]};
+ $st_add_disc->execute($id, $i, $path[$i],
+ $box eq "#nil" ? undef : $box);
+ }