From: Spider Boardman <spider@orb.nashua.nh.us>
Date: Sat, 16 Sep 2000 16:36:45 +0000 (-0400)
Subject: Re: [ID 20000915.010] Infinite loop with -MO=Deparse
X-Git-Tag: accepted/trunk/20130322.191538~34080
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=56d8b52cdc3a7deb700f2192d2c7c08901c639b1;p=platform%2Fupstream%2Fperl.git

Re: [ID 20000915.010] Infinite loop with -MO=Deparse
Message-Id: <200009162036.QAA11694@Orb.Nashua.NH.US>

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

diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm
index d093fbb..5c5c5eb 100644
--- a/ext/B/B/Deparse.pm
+++ b/ext/B/B/Deparse.pm
@@ -2548,7 +2548,7 @@ sub tr_decode_byte {
 	}
 	@from = @newfrom;
     }
-    unless ($flags & OPpTRANS_DELETE) {
+    unless ($flags & OPpTRANS_DELETE || !@to) {
 	pop @to while $#to and $to[$#to] == $to[$#to -1];
     }
     my($from, $to);