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

Simplify code. 

Signed-off-by: Nicolás Ortega Froysa <nicolas@ortegas.org>
This commit is contained in:
Nicolás A. Ortega Froysa 2024-03-13 17:15:31 +01:00
parent 601b4b7b81
commit 9e1ba7159f
1 changed files with 6 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
pacundo.pl
View File

@ -59,7 +59,7 @@ sub read_txs($num_txs = 1) {
my $found_txs = 0;
my $in_tx = 0;
my @undo_txs;
my $pacman_log = File::ReadBackwards->new("/var/log/pacman.log") ||
my $pacman_log = File::ReadBackwards->new("/var/log/pacman.log") or
die("Failed to load pacman log file.\n$!");
while ($found_txs < $num_txs && defined(my $line = $pacman_log->readline)) {
@ -122,23 +122,16 @@ $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 ($start >= $end) {
die("Invalid range: $start-$end\n");
}
push(@sel, ($start..$end));
}
foreach my $i (grep({/^[0-9]+-[0-9]+$/} @sel)) {
my ($start, $end) = $i =~ /^([0-9]+)-([0-9]+)$/;
die("Invalid range: $start-$end\n") if ($start >= $end);
push(@sel, ($start..$end));
}
@sel = sort grep({!/[0-9+]-[0-9+]/} @sel);
my @sel_undo;
foreach my $i (@sel) {
push(@sel_undo, $undo_txs[$i-1]);
}
push(@sel_undo, $undo_txs[$_-1]) foreach (@sel);
return @sel_undo;
}