test - and . at beginning of debugger alias name

1 files changed, 7 insertions, 1 deletions

diff --git a/lib/perl5db.t b/lib/perl5db.t
index d68eeb7f1f..f6740f5cdc 100644
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -2144,7 +2144,11 @@ DebugWrap->new({
             [
                 '= quit q',
                 '= foobar l',
+                '= .hello print "hellox\n"',
+                '= -goodbye print "goodbyex\n"',
                 'foobar',
+                '.hello',
+                '-goodbye',
                 'quit',
             ],
             prog => '../lib/perl5db/t/test-l-statement-1',
@@ -2160,7 +2164,9 @@ DebugWrap->new({
             5:\s+print\ "2\\n";\n
         /msx,
         'Test the = (command alias) command.',
-    );
+       );
+    $wrapper->output_like(qr/hellox.*goodbyex/xs,
+                          "check . and - can start alias name");
 }
 
 # Test the m statement.