diff options
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Deparse.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index d0b18be24c..024f3ebaf8 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -2557,6 +2557,14 @@ sub pp_cond_expr { return $head . join($cuddle, "", @elsifs) . $false; } +sub pp_once { + my ($self, $op, $cx) = @_; + my $cond = $op->first; + my $true = $cond->sibling; + + return $self->deparse($true, $cx); +} + sub loop_common { my $self = shift; my($op, $cx, $init) = @_; |