From ea5a51ecaa72c8277b4f878cf3635025d757fa37 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem@fripost.org>
Date: Wed, 24 Feb 2021 21:28:31 +0100
Subject: lacme: Return an error when the 'mode'/'chown' isn't a number.

oct("foobar") is 0, definitely not what we want.
---
 lacme | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lacme')

diff --git a/lacme b/lacme
index 2d9202d..b52cddd 100755
--- a/lacme
+++ b/lacme
@@ -689,7 +689,8 @@ sub install_cert(%) {
 
         my $mode;
         if ((my $m = $args{mode}) ne "") {
-            $mode = oct($m) // die;
+            die "Not an octal string: $m\n" unless $m =~ /^[0-9]+$/;
+            $mode = oct($m);
         } else {
             my $umask = umask() // die;
             $mode = 0644 &~ $umask;
-- 
cgit v1.2.3