From c08a9f4b40071d77ed1488eda0d851982192e5d2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Nicol=C3=A1s=20Ortega=20Froysa?= <nicolas@ortegas.org>
Date: Thu, 28 Mar 2024 11:40:57 +0100
Subject: [PATCH] Simplify and clean up strings and output.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Signed-off-by: Nicolás Ortega Froysa <nicolas@ortegas.org>
---
 pacundo.pl | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/pacundo.pl b/pacundo.pl
index a523f79..a81edfb 100755
--- a/pacundo.pl
+++ b/pacundo.pl
@@ -29,8 +29,8 @@ use feature qw(signatures);
 use Getopt::Std;
 use File::ReadBackwards;
 
-my $VERSION   = "1.0";
-my $PROG_NAME = "pacundo";
+my $VERSION   = '1.0';
+my $PROG_NAME = 'pacundo';
 
 sub print_version() {
 	print("$PROG_NAME v$VERSION\n");
@@ -60,8 +60,8 @@ 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") or
-		die("Failed to load pacman log file.\n$!");
+	my $pacman_log = File::ReadBackwards->new('/var/log/pacman.log') or
+		die("Failed to load pacman log file.\n$!\n");
 
 	while ($found_txs < $num_txs && defined(my $line = $pacman_log->readline)) {
 		unless ($in_tx) {
@@ -77,18 +77,18 @@ sub read_txs($num_txs = 1) {
 				$line =~ /\[ALPM\] (upgraded|downgraded) ([^\s]+) \((.*) -> (.*)\)/;
 			push(@undo_txs,
 				{
-					'action' => $action,
-					'pkg_name' => $pkg_name,
-					'oldver' => $oldver,
-					'newver' => $newver,
+					action   => $action,
+					pkg_name => $pkg_name,
+					oldver   => $oldver,
+					newver   => $newver,
 				}
 			);
 		} elsif ($line =~ /\[ALPM\] (installed|removed)/) {
 			my ($action, $pkg_name) = $line =~ /\[ALPM\] (installed|removed) ([^\s]+)/;
 			push(@undo_txs,
 				{
-					'action' => $action,
-					'pkg_name' => $pkg_name,
+					action   => $action,
+					pkg_name => $pkg_name,
 				}
 			);
 		}
@@ -118,8 +118,7 @@ $n, $tx->{action}, $tx->{pkg_name}
 		$n++;
 	}
 
-	print("Select transactions to undo (e.g. '1 2 3', '1-3')\n");
-	print("> ");
+	print("Select transactions to undo (e.g. '1 2 3', '1-3')\n> ");
 
 	my @sel = split(' ', <STDIN>);