Made "c [line_num]" working again.

This is a bug-fix to
https://rt.perl.org/rt3//Public/Bug/Display.html?id=104820 .

Both the fix and a regression tests were added.

1 files changed, 23 insertions, 1 deletions

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 0adae25f69..ba5d5856c1 100644
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -28,7 +28,7 @@ BEGIN {
     }
 }
 
-plan(19);
+plan(20);
 
 my $rc_filename = '.perldb';
 
@@ -434,6 +434,28 @@ EOF
         "Restart and delete all breakpoints work properly.");
 }
 
+{
+    rc(<<'EOF');
+&parse_options("NonStop=0 TTY=db.out LineInfo=db.out");
+
+sub afterinit {
+    push (@DB::typeahead,
+    'c 15',
+    q/print "X={$x}\n";/,
+    'c',
+    'q',
+    );
+
+}
+EOF
+
+    my $output = runperl(switches => [ '-d', ], stderr => 1, progfile => '../lib/perl5db/t/disable-breakpoints-1'); +
+    like($output, qr/
+        X=\{ThirdVal\}
+        /msx,
+        "'c line_num' is working properly.");
+}
+
 END {
     1 while unlink ($rc_filename, $out_fn);
 }