diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2000-09-16 12:36:45 -0400 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-09-30 12:52:31 +0000 |
| commit | 56d8b52cdc3a7deb700f2192d2c7c08901c639b1 (patch) | |
| tree | c2264316579e44991b8da55fb403fbad48c7b30c /ext | |
| parent | 1a00323576160bade44aab52a55dcea124ae0c01 (diff) | |
| download | perl-56d8b52cdc3a7deb700f2192d2c7c08901c639b1.tar.gz | |
Re: [ID 20000915.010] Infinite loop with -MO=Deparse
Message-Id: <200009162036.QAA11694@Orb.Nashua.NH.US>
p4raw-id: //depot/perl@7102
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/B/B/Deparse.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/B/Deparse.pm b/ext/B/B/Deparse.pm index d093fbbcd4..5c5c5eb9cb 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); |