diff options
Diffstat (limited to 'src/lib/libcrypto/format-pem.pl')
| -rw-r--r-- | src/lib/libcrypto/format-pem.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/lib/libcrypto/format-pem.pl b/src/lib/libcrypto/format-pem.pl index 5a96fe5b1d..fba3470344 100644 --- a/src/lib/libcrypto/format-pem.pl +++ b/src/lib/libcrypto/format-pem.pl | |||
| @@ -1,5 +1,5 @@ | |||
| 1 | #!/usr/bin/perl | 1 | #!/usr/bin/perl |
| 2 | # $OpenBSD: format-pem.pl,v 1.7 2024/11/01 11:19:13 sthen Exp $ | 2 | # $OpenBSD: format-pem.pl,v 1.8 2025/06/16 10:24:55 sthen Exp $ |
| 3 | # | 3 | # |
| 4 | # Copyright (c) 2016 Stuart Henderson <sthen@openbsd.org> | 4 | # Copyright (c) 2016 Stuart Henderson <sthen@openbsd.org> |
| 5 | # | 5 | # |
| @@ -99,6 +99,7 @@ while(<>) { | |||
| 99 | 99 | ||
| 100 | my $verify = qx/openssl verify -CAfile $t $t 2>&1/; | 100 | my $verify = qx/openssl verify -CAfile $t $t 2>&1/; |
| 101 | if (not $verify =~ /^$t: OK$/) { | 101 | if (not $verify =~ /^$t: OK$/) { |
| 102 | $verify =~ s,$t: ,,; | ||
| 102 | print STDERR "ERROR: '$subj' cannot be verified with libressl\n---\n$verify---\n"; | 103 | print STDERR "ERROR: '$subj' cannot be verified with libressl\n---\n$verify---\n"; |
| 103 | $ca{$o}{$subj}{'valid'} = 0; | 104 | $ca{$o}{$subj}{'valid'} = 0; |
| 104 | } | 105 | } |