diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-27 16:54:58 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-27 16:54:58 +0000 |
| commit | ccc418afe29dc1a46726ff554dab77d8858db74a (patch) | |
| tree | 41c62a8232c06f075693b779005980440c3acb53 /ext | |
| parent | 741b63383b6473fc5bf0b6dda1bdea3b4455a006 (diff) | |
| download | perl-ccc418afe29dc1a46726ff554dab77d8858db74a.tar.gz | |
add testsuite for B backends, fix bug in B::Deparse (from
Simon Cozens <simon@brecon.co.uk>)
p4raw-id: //depot/perl@5966
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Deparse.pm | 2 | ||||
| -rw-r--r-- | ext/B/B/Stash.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 5c0be875f8..b6e1097593 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -1784,7 +1784,7 @@ sub pp_leaveloop { if (is_state $state) { $expr = $self->deparse($state, 0); $state = $state->sibling; - last if null $kid; + last if null $state; } $expr .= $self->deparse($state, 0); push @exprs, $expr if $expr; diff --git a/ext/B/B/Stash.pm b/ext/B/B/Stash.pm index 0a3543eed4..b9b828f505 100644 --- a/ext/B/B/Stash.pm +++ b/ext/B/B/Stash.pm @@ -6,7 +6,7 @@ BEGIN { %Seen = %INC } CHECK { my @arr=scan($main::{"main::"}); - @arr=map{s/\:\:$//;$_;} @arr; + @arr=map{s/\:\:$//;$_ eq "<none>"?():$_;} @arr; print "-umain,-u", join (",-u",@arr) ,"\n"; } sub scan{ |