aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem@fripost.org>2021-02-19 01:36:48 +0100
committerGuilhem Moulin <guilhem@fripost.org>2021-02-20 20:16:34 +0100
commitc342643613a940e147d9b598666823d6baa19a0d (patch)
treebf783ac483dae49d721924debb391d6dbb71246f
parent2114bd775df342f3491cdd839031254041b655ae (diff)
wibble
-rwxr-xr-xlacme6
1 files changed, 3 insertions, 3 deletions
diff --git a/lacme b/lacme
index cb399f9..9a62cbb 100755
--- a/lacme
+++ b/lacme
@@ -295,7 +295,7 @@ sub spawn_webserver() {
die "Error: Refusing to use non-empty challenge directory $dir\n"
unless $_ eq '.' or $_ eq '..';
}
- closedir $dh or die "close: $!";
+ closedir $dh or die "closedir: $!";
undef $dh;
# use a "lock file" (NFS-friendly) to avoid concurrent usages
@@ -309,7 +309,7 @@ sub spawn_webserver() {
push @CLEANUP, sub() {
if (opendir(my $dh, $dir)) {
my @files = grep { $_ ne '.' and $_ ne '..' and $_ ne $lockfile } readdir $dh;
- closedir $dh or warn "close: $!";
+ closedir $dh or warn "closedir: $!";
push @files, $lockfile; # unlink $lockfile last
foreach (@files) {
die unless /\A(.+)\z/; # untaint
@@ -712,7 +712,7 @@ elsif ($COMMAND eq 'newOrder' or $COMMAND eq 'new-cert') {
warn "$conffile/$_ has unknown suffix, skipping\n";
}
}
- closedir $dh;
+ closedir $dh or die "closedir: $!";
}
foreach my $filename (sort @filenames) {
print STDERR "Reading $filename\n" if $OPTS{debug};