From 61e44ee71deaa01a23866cf069df4ceaa0bf4446 Mon Sep 17 00:00:00 2001
From: Andinus <andinus@nand.sh>
Date: Thu, 27 Aug 2020 14:50:24 +0530
Subject: Fix deletion, check $? for gpg2

Maybe I should delete the tar file by default & add a `nodelete'
option.
---
 leo.pl | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'leo.pl')

diff --git a/leo.pl b/leo.pl
index d33604e..9d14e9d 100755
--- a/leo.pl
+++ b/leo.pl
@@ -82,12 +82,17 @@ sub encrypt_sign() {
     push @options, "--verbose" if $options{verbose};
 
     say "\nEncrypt/Sign: $file";
-    run3 ["gpg2", "--yes", "-o", "$file.gpg", @options, $file];
     warn "[WARN] $file.gpg exists, might overwrite.\n" if -e "$file.gpg";
-    say "\nOutput: $file.gpg";
+
+    run3 ["gpg2", "--yes", "-o", "$file.gpg", @options, $file];
+
+    $? # We assume non-zero is an error.
+        ? die "Encrypt/Sign failed :: $?\n"
+        : say "\nOutput: $file.gpg";
 
     unlink $file and say "$file deleted."
-        or warn "[WARN] Could not delete $file: $!\n";
+        or warn "[WARN] Could not delete $file: $!\n"
+        if $options{delete};
 }
 
 sub HelpMessage {
-- 
cgit 1.4.1-2-gfad0