From: Gisle Aas <gisle@aas.no>
Date: Fri, 10 Jul 1998 14:04:44 +0000 (+0200)
Subject: B::Deparse for(1..100000)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d8d95777eda225e5e5adb348f812ffc22a87caf5;p=p5sagit%2Fp5-mst-13.2.git

B::Deparse for(1..100000)
	Message-ID: <m3n2ahx677.fsf@furu.g.aas.no>

p4raw-id: //depot/perl@1421
---

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index 91c08e7..d9b0cd9 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);