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 (file)
--- 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);