Fix the man/perldoc/doc command in the debugger.

This was accidentally broken by commit c7b0c61d36b24841.

1 files changed, 21 insertions, 1 deletions

diff --git a/lib/perl5db.t b/lib/perl5db.t
index fe1031b49d..81bd5da86e 100644
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -28,7 +28,7 @@ BEGIN {
     }
 }
 
-plan(113);
+plan(114);
 
 my $rc_filename = '.perldb';
 
@@ -2635,6 +2635,26 @@ sub _calc_trace_wrapper
     );
 }
 
+# Test the perldoc command
+# We don't actually run the program, but we need to provide one to the wrapper.
+{
+    my $wrapper = DebugWrap->new(
+        {
+            cmds =>
+            [
+                'perldoc perlrules',
+                'q',
+            ],
+            prog => '../lib/perl5db/t/fact',
+        }
+    );
+
+    $wrapper->output_like(
+        qr/No manual entry for perlrules/,
+        'perldoc command works fine',
+    );
+}
+
 END {
     1 while unlink ($rc_filename, $out_fn);
 }