nortega/pacundo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix selection regex.

Browse Source 
Signed-off-by: Nicolás Ortega Froysa <nicolas@ortegas.org>
This commit is contained in:
Nicolás A. Ortega Froysa 2024-03-11 20:02:59 +01:00
parent 4cb213d585
commit e11cc694f5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
pacundo.pl
View File

@ -123,8 +123,8 @@ $n, $tx->{action}, $tx->{pkg_name}
my @sel = split(' ', <STDIN>);
foreach my $i (@sel) {
if ($i =~ /[0-9]+-[0-9]+/) {
my ($start, $end) = $i =~ /([0-9]+)-([0-9+])/;
if ($i =~ /^[0-9]+-[0-9]+$/) {
my ($start, $end) = $i =~ /^([0-9]+)-([0-9]+)$/;
push(@sel, ($start..$end));
}
}