perl5db.pl: Fix regex in cmd_a allowing short actions

[zhmylove]

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.

There is a problem with a command in perl -d resulting into strange behaviour.
Current version of code my ($lineno, $expr) = $line =~ /^\s*(\d*)\s*(\S.+)/ splits a command a 11 T as: $lineno="1" and $expr="1 T" because it does not accept single characters as $expr.

Replacing it with \S.* fixes the problem:

my @lines = (
    "T",
    "TT",
    "1 T",
    "22 T",
    "3 TT",
    "44 TT",
);

for my $line (@lines) {
    my ($lineno, $expr) = $line =~ /^\s*(\d*)\s*(\S.*)/;
    print "line=$line \t lineno=$lineno \t expr=$expr\n";
}

line=T   lineno=         expr=T
line=TT          lineno=         expr=TT
line=1 T         lineno=1        expr=T
line=22 T        lineno=22       expr=T
line=3 TT        lineno=3        expr=TT
line=44 TT       lineno=44       expr=TT

• This set of changes does not require a perldelta entry.

[jkeenan]

One metadata test is failing n our GH continuous integration setup. You need to increment $VERSION in lib/perl5db.pl.

  534 # bump to X.XX in blead, only use X.XX_XX in maint
  535 $VERSION = '1.81';
  536 
  537 $header = "perl5db.pl version $VERSION";

Please do so, run make test_porting, then, when successful, please re-push the pull request. Thanks.

[zhmylove]

@jkeenan thank you so much! Already pushed new code which is passing all the tests

[zhmylove]

@jkeenan may I ask you one more question, please? I see that one of the checks -- cygwin -- is skipped. Should I do something in order to run it manually?

[jkeenan]

@jkeenan may I ask you one more question, please? I see that one of the checks -- cygwin -- is skipped. Should I do something in order to run it manually?

Don't bother. There's some problem on the Cygwin side, so we have temporarily disabled that particular test run.

[jkeenan]

Can we get someone familiar with the debugger's code to review this p.r.?