Remaining nit in the deparsing of reversed foreach loops

[p5sagit/p5-mst-13.2.git] / ext / B / B / Deparse.pm

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 5d6b87e..8b31e6f 100644 (file)
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -2503,7 +2503,7 @@ sub loop_common {
        my $var = $ary->sibling;
        if ($ary->name eq 'null' and $enter->private & OPpITER_REVERSED) {
            # "reverse" was optimised away
-           $ary = "reverse " . $self->deparse($ary->first->sibling->first->sibling, 1);
+           $ary = listop($self, $ary->first->sibling, 1, 'reverse');
        } elsif ($enter->flags & OPf_STACKED
            and not null $ary->first->sibling->sibling)
        {