diff options
-rwxr-xr-x | gmi.pl | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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); |