Makefile: simplify install command.

No longer exists.

.gitignore

@@ -1,2 +1 @@
-pacundo
 pacundo.1.gz

Makefile

@@ -34,11 +34,9 @@ clean:
 
 doc: pacundo.1.gz
 
-install: pacundo pacundo.1.gz
-	install -d $(PREFIX)/bin
-	install -m 755 pacundo.pl $(PREFIX)/bin/pacundo
-	install -d $(PREFIX)/share/man/man1
-	install -m 644 pacundo.1.gz $(PREFIX)/share/man/man1/
+install: pacundo.1.gz
+	install -Dm755 pacundo.pl $(PREFIX)/bin/pacundo
+	install -Dm644 pacundo.1.gz $(PREFIX)/share/man/man1/
 
 uninstall:
 	$(RM) $(PREFIX)/bin/pacundo

README.md

@@ -12,7 +12,7 @@ to boot from a USB depending on just how broken it is).
 - Perl 5
 - `File::ReadBackwards` module
 - cURL
-- GNU Makefile
+- GNU Make
 
 You can install these packages with the following command:
 
@@ -49,6 +49,26 @@ Look at the man-page (`man pacundo`) for more information.
 
 - [yay](https://github.com/Jguer/yay)
 
+## Contributing
+
+If you find any issues, feel free to report them on GitHub or send me an E-Mail
+(see my website/profile for the address). I will add these issues to my personal
+Gitea page and (unless specified otherwise) mention you as the person who found
+the issue.
+
+For patches/pull requests, if you open a PR on GitHub I will likely not merge
+directly but instead apply the patches locally (via Git patches, conserving
+authorship), push them to my Gitea repository, which will finally be mirrored to
+GitHub. However, you can save me a bit of work by just sending me the Git
+patches directly (via E-Mail).
+
+If you're looking for a way to contribute, there are a few to-do items within
+the code which you can find using `grep`:
+
+```console
+# grep -n "TODO" pacundo.pl
+```
+
 ## License
 
 This project is licensed under the terms & conditions of the Zlib license.

pacundo.1

@@ -1,4 +1,4 @@
-.TH PACUNDO "1" "April 2024" "pacundo 1.0.1" "User Commands"
+.TH PACUNDO "1" "April 2024" "pacundo 1.1.1" "User Commands"
 .SH "NAME"
 pacundo - A time machine to roll back your ArchLinux machine to a working state.
 .SH "SYNOPSIS"

pacundo.pl

@@ -29,7 +29,7 @@ use feature qw(signatures);
 use Getopt::Std;
 use File::ReadBackwards;
 
-my $VERSION   = '1.0.1';
+my $VERSION   = '1.1.1';
 my $PROG_NAME = 'pacundo';
 
 sub print_version() {
@@ -195,7 +195,11 @@ sub find_local_pkg($pkgmgr, $pkg_name, $pkg_ver='') {
 		my $aur_dir;
 
 		if ($pkgmgr->{name} eq 'yay') {
-			$aur_dir = "$ENV{'XDG_CACHE_HOME'}/yay/$pkg_name";
+			if ($ENV{'XDG_CACHE_HOME'} ne '') {
+				$aur_dir = "$ENV{'XDG_CACHE_HOME'}/yay/$pkg_name";
+			} else {
+				$aur_dir = "$ENV{'HOME'}/.cache/yay/$pkg_name";
+			}
 		} else {
 			return '';
 		}