summaryrefslogtreecommitdiff
path: root/gmi.pl
diff options
context:
space:
mode:
Diffstat (limited to 'gmi.pl')
-rwxr-xr-xgmi.pl6
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);