From 99c6f802704c67098df054dbd976396871ed109b Mon Sep 17 00:00:00 2001
From: jake <jake@jakes-mail.top>
Date: Wed, 17 Aug 2022 03:19:45 -0400
Subject: '0o077' is not valid in <5.33.5 Perl.

---
 gmi.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'gmi.pl')

diff --git a/gmi.pl b/gmi.pl
index 522d27a..e8bf265 100755
--- a/gmi.pl
+++ b/gmi.pl
@@ -7,7 +7,7 @@ use warnings;
 use 5.010;
 #use diagnostics;
 
-our $VERSION = 'v0.0.9';
+our $VERSION = 'v0.0.10';
 
 # Modules
 use IO::Socket::SSL; # CPAN
@@ -32,7 +32,7 @@ local $SIG{CHLD} = 'IGNORE';
 const my $DEFAULT_GEMINI_PORT => 1965;
 const my $KBYTE => 1024;
 const my $SECS_IN_YEAR => 3_156_000;
-const my $UMASK_OCTAL_FOR_CERTS_KEYS => 0o077; # '-rwx------'
+const my $UMASK_FOR_CERTS_KEYS => '077'; # '-rwx------'
 
 const our %GEM_RES_CODES => (
 	'input'              => '10 Input',
@@ -262,7 +262,7 @@ sub gen_cert {
 	);
 	my ($cert, $key) = CERT_create(%cert);
 
-	my $old_umask = umask $UMASK_OCTAL_FOR_CERTS_KEYS;
+	my $old_umask = umask oct $UMASK_FOR_CERTS_KEYS;
 	PEM_cert2file($cert, $cert_loc);
 	PEM_key2file($key, $key_loc);
 	CERT_free($cert);
-- 
cgit v1.2.3