From 7a4e51344423ee3309c258087a69dac29bf30b51 Mon Sep 17 00:00:00 2001 From: Guilhem Moulin Date: Sat, 1 Jul 2017 19:36:46 +0200 Subject: Ensure fdopen is called with an integer. --- webserver | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'webserver') diff --git a/webserver b/webserver index 90be70c..dad3d9d 100755 --- a/webserver +++ b/webserver @@ -43,7 +43,7 @@ use Socket qw/AF_UNIX AF_INET AF_INET6/; # Untaint and fdopen(3) the listening socket (shift @ARGV // die) =~ /\A(\d+)\z/ or die; -open my $S, '+<&=', $1 or die "fdopen $1: $!"; +open (my $S, '+<&=', $1+0) or die "fdopen $1: $!"; my $ROOT = '/.well-known/acme-challenge'; close STDIN or die "close: $!"; -- cgit v1.2.3 From abb09fac8787c3444f45cf8cc06386dd75719a01 Mon Sep 17 00:00:00 2001 From: Guilhem Moulin Date: Sat, 1 Jul 2017 19:55:55 +0200 Subject: Specify minimum required Perl versions. --- webserver | 1 + 1 file changed, 1 insertion(+) (limited to 'webserver') diff --git a/webserver b/webserver index dad3d9d..5371163 100755 --- a/webserver +++ b/webserver @@ -19,6 +19,7 @@ # along with this program. If not, see . #---------------------------------------------------------------------- +use v5.14.2; use strict; use warnings; -- cgit v1.2.3