Add the missing assignment to op_last that change 31798 missed out.

With this, state $zok = ...; will deparse.

p4raw-id: //depot/perl@31857

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) = @_;