Fix (and test) module listing in the debugger

This was also broken when 'use strict' was added.

1 files changed, 20 insertions, 1 deletions

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 634288cac6..7cca75c59f 100644
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -28,7 +28,7 @@ BEGIN {
     }
 }
 
-plan(31);
+plan(32);
 
 my $rc_filename = '.perldb';
 
@@ -831,6 +831,25 @@ package main;
     );
 }
 
+# Test for 'M' (module list).
+{
+    my $wrapper = DebugWrap->new(
+        {
+            cmds =>
+            [
+                'M',
+                'q',
+            ],
+            prog => '../lib/perl5db/t/load-modules'
+        }
+    );
+
+    $wrapper->contents_like(
+        qr[Scalar/Util\.pm],
+        'M (module list) works fine',
+    );
+}
+
 END {
     1 while unlink ($rc_filename, $out_fn);
 }