This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl5db] Missed one.
authorShlomi Fish <shlomif@shlomifish.org>
Tue, 2 Oct 2012 12:46:14 +0000 (14:46 +0200)
committerRicardo Signes <rjbs@cpan.org>
Mon, 12 Nov 2012 14:18:32 +0000 (09:18 -0500)
lib/perl5db.pl

index 9b72942..996fae7 100644 (file)
@@ -2448,7 +2448,10 @@ so a null command knows what to re-execute.
 
                 # n - next
                 if ($cmd eq 'n') {
-                    end_report(), next CMD if $finished and $level <= 1;
+                    if ($finished and $level <= 1) {
+                        end_report();
+                        next CMD;
+                    }
 
                     # Single step, but don't enter subs.
                     $single = 2;