Make ktest match for "keyswitch" token non-greedy

The greedy match was including whitespace if more than one space character
separated the "keyswitch" token and the first coordinate.

Signed-off-by: Michael Richters <gedankenexperimenter@gmail.com>
pull/981/head
Michael Richters 4 years ago
parent 79561f6921
commit c53bcae849
No known key found for this signature in database
GPG Key ID: 1288FD13E4EEF0C0

@ -88,7 +88,7 @@ sub load_from_text {
}, },
keyswitch => sub { keyswitch => sub {
my $content = shift; my $content = shift;
if ( $content =~ /^(.*)\s+(\d+)\s+(\d+)$/ ) { if ( $content =~ /^(.*?)\s+(\d+)\s+(\d+)$/ ) {
my $switch = $1; my $switch = $1;
my $row = $2; my $row = $2;
my $col = $3; my $col = $3;

Loading…
Cancel
Save