wibble

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