From d8d95777eda225e5e5adb348f812ffc22a87caf5 Mon Sep 17 00:00:00 2001 From: Gisle Aas Date: Fri, 10 Jul 1998 16:04:44 +0200 Subject: [PATCH] B::Deparse for(1..100000) Message-ID: p4raw-id: //depot/perl@1421 --- ext/B/B/Deparse.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index 91c08e7..d9b0cd9c 100644 --- a/ext/B/B/Deparse.pm +++ b/ext/B/B/Deparse.pm @@ -1513,7 +1513,14 @@ sub pp_leaveloop { } elsif ($enter->ppaddr eq "pp_enteriter") { # foreach my $ary = $enter->first->sibling; # first was pushmark my $var = $ary->sibling; - $ary = $self->deparse($ary, 1); + if ($enter->flags & OPf_STACKED) { + my $from = $ary->first->sibling; + my $to = $from->sibling; + $ary = join("", "(", $self->deparse($from,1), " .. ", + $self->deparse($to,1), ")"); + } else { + $ary = $self->deparse($ary, 1); + } if (null $var) { if ($enter->flags & OPf_SPECIAL) { # thread special var $var = $self->pp_threadsv($enter, 1); -- 2.7.4