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 · d4e957d · d4e957d
1 parent 7a1c156
commit d4e957d
Showing 1 changed file with 2 additions and 2 deletions.
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.