| … | … | ||
|---|---|---|---|
| 724 | if $verbose; | 724 | if $verbose; |
| 725 | 725 | ||
| 726 | eval { | 726 | eval { |
| 727 | my @func; | 727 | my @func; |
| 728 | 728 | ||
| 729 | push @func, { | ||
| 730 | cv => $cv, | ||
| 731 | name => "<>", | ||
| 732 | source => cv2c $cv, | ||
| 733 | }; | ||
| 734 | |||
| 729 | # always compile the whole stash | 735 | # always compile the whole stash |
| 730 | my %stash = $cv->STASH->ARRAY; | 736 | my %stash = $cv->STASH->ARRAY; |
| 731 | while (my ($k, $v) = each %stash) { | 737 | while (my ($k, $v) = each %stash) { |
| 732 | $v->isa (B::GV::) | 738 | $v->isa (B::GV::) |
| 733 | or next; | 739 | or next; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |