'0o077' is not valid in <5.33.5 Perl.

1 files changed, 3 insertions, 3 deletions

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);