perl5db.pl: Fix regex in cmd_a allowing short actions

The regex pattern in the `a` command was updated from `(\S.+)` to `(\S.*)` to correctly handle short actions, including single-character expressions after the line number. Signed-off-by: Sergei Zhmylev <[email protected]>
Perl · Jan 15, 2025 · 0071cad · 0071cad
1 parent 7a1c156
commit 0071cad
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/.mailmap b/.mailmap
@@ -785,6 +785,7 @@ Scott Wiersdorf <[email protected]> [email protected] <[email protected]>
 Sean Davis <[email protected]> Sean Davis <[email protected]>
 Sebastian Schmidt <[email protected]> <[email protected]>
 Sebastian Schmidt <[email protected]> [email protected] <[email protected]>
+Sergey Zhmylove <[email protected]> Sergei Zhmylev <[email protected]>
 Sergey Zhmylove <[email protected]> zhmylove <[email protected]>
 Shawn M Moore <[email protected]> Shawn M Moore <[email protected]>
 Shawn M Moore <[email protected]> Shawn M Moore <[email protected]>

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
@@ -4798,7 +4798,7 @@ sub cmd_a {
     $line =~ s/\A\./$dbline/;
 
     # Should be a line number followed by an expression.
-    if ( my ($lineno, $expr) = $line =~ /^\s*(\d*)\s*(\S.+)/ ) {
+    if ( my ($lineno, $expr) = $line =~ /^\s*(\d*)\s*(\S.*)/ ) {
 
         if (! length($lineno)) {
             $lineno = $dbline;
@@ -4826,7 +4826,7 @@ sub cmd_a {
                 _set_breakpoint_enabled_status($filename, $lineno, 1);
             }
         } ## end if (length $expr)
-    } ## end if ($line =~ /^\s*(\d*)\s*(\S.+)/)
+    } ## end if ($line =~ /^\s*(\d*)\s*(\S.*)/)
     else {
 
         # Syntax wrong.