Commit 4c7103a5 authored by Rich Salz's avatar Rich Salz Committed by Rich Salz
Browse files

Unwriteable directories are errors



Make the script and app match the documentation.

Reviewed-by: default avatarTim Hudson <tjh@openssl.org>
parent e7451ed1
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -315,7 +315,7 @@ static int do_dir(const char *dirname, enum Hash h)

    if (app_access(dirname, W_OK) < 0) {
        BIO_printf(bio_err, "Skipping %s, can't write\n", dirname);
        return 0;
        return 1;
    }
    buflen = strlen(dirname);
    pathsep = (buflen && dirname[buflen - 1] == '/') ? "" : "/";
+3 −0
Original line number Diff line number Diff line
@@ -6,6 +6,7 @@
my $dir;
my $prefix;

my $errorcount = 0;
my $openssl = $ENV{OPENSSL} || "openssl";
my $pwd;
my $x509hash = "-subject_hash";
@@ -89,9 +90,11 @@ foreach (@dirlist) {
		hash_dir($_);
            } else {
                print "Skipping $_, can't write\n";
                $errorcount++;
            }
	}
}
exit($errorcount);

sub hash_dir {
	my %hashlist;