main CryptX pod fix
Karel Miko
6 years ago
42 | 42 |
|
43 | 43 |
- Message Authentication Codes
|
44 | 44 |
|
45 | |
[Crypt::Mac::F9](https://metacpan.org/pod/Crypt::Mac::F9), [Crypt::Mac::HMAC](https://metacpan.org/pod/Crypt::Mac::HMAC), [Crypt::Mac::OMAC](https://metacpan.org/pod/Crypt::Mac::OMAC), [Crypt::Mac::Pelican](https://metacpan.org/pod/Crypt::Mac::Pelican), [Crypt::Mac::PMAC](https://metacpan.org/pod/Crypt::Mac::PMAC), [Crypt::Mac::XCBC](https://metacpan.org/pod/Crypt::Mac::XCBC), [Crypt::Mac::Poly1305](https://metacpan.org/pod/Crypt::Mac::Poly1305)
|
|
45 |
[Crypt::Mac::BLAKE2b](https://metacpan.org/pod/Crypt::Mac::BLAKE2b), [Crypt::Mac::BLAKE2s](https://metacpan.org/pod/Crypt::Mac::BLAKE2s), [Crypt::Mac::F9](https://metacpan.org/pod/Crypt::Mac::F9), [Crypt::Mac::HMAC](https://metacpan.org/pod/Crypt::Mac::HMAC), [Crypt::Mac::OMAC](https://metacpan.org/pod/Crypt::Mac::OMAC),
|
|
46 |
[Crypt::Mac::Pelican](https://metacpan.org/pod/Crypt::Mac::Pelican), [Crypt::Mac::PMAC](https://metacpan.org/pod/Crypt::Mac::PMAC), [Crypt::Mac::XCBC](https://metacpan.org/pod/Crypt::Mac::XCBC), [Crypt::Mac::Poly1305](https://metacpan.org/pod/Crypt::Mac::Poly1305)
|
46 | 47 |
|
47 | 48 |
- Public key cryptography
|
48 | 49 |
|
105 | 105 |
|
106 | 106 |
=item * Message Authentication Codes
|
107 | 107 |
|
108 | |
L<Crypt::Mac::F9>, L<Crypt::Mac::HMAC>, L<Crypt::Mac::OMAC>, L<Crypt::Mac::Pelican>, L<Crypt::Mac::PMAC>, L<Crypt::Mac::XCBC>, L<Crypt::Mac::Poly1305>
|
|
108 |
L<Crypt::Mac::BLAKE2b>, L<Crypt::Mac::BLAKE2s>, L<Crypt::Mac::F9>, L<Crypt::Mac::HMAC>, L<Crypt::Mac::OMAC>,
|
|
109 |
L<Crypt::Mac::Pelican>, L<Crypt::Mac::PMAC>, L<Crypt::Mac::XCBC>, L<Crypt::Mac::Poly1305>
|
109 | 110 |
|
110 | 111 |
=item * Public key cryptography
|
111 | 112 |
|
12 | 12 |
return do { local $/; <$fh> };
|
13 | 13 |
}
|
14 | 14 |
|
|
15 |
my @err;
|
|
16 |
my $cryptx = _read("lib/CryptX.pm");
|
15 | 17 |
my @files;
|
16 | 18 |
File::Find::find({ wanted=>sub { push @files, $_ if /\.pm$/ }, no_chdir=>1 }, 'lib');
|
17 | 19 |
|
18 | |
my @err;
|
19 | 20 |
for my $m (sort @files) {
|
20 | 21 |
my $content = _read($m);
|
21 | 22 |
push @err, "ERROR: no newline at the end '$m'" unless $content =~ /\n$/s;
|
|
27 | 28 |
$m =~ s|[\\/]|::|g;
|
28 | 29 |
$m =~ s|^lib::||;
|
29 | 30 |
$m =~ s|\.pm$||;
|
|
31 |
push @err, "ERROR: '$m' is missing in CryptX" unless $cryptx =~ /L<$m>/s || $m =~ /^(CryptX|Math::BigInt::LTM|Crypt::(PK|Mode|Mac|AuthEnc))$/;
|
30 | 32 |
eval "use $m; 1;" or push @err, "ERROR: 'use $m' failed";
|
31 | 33 |
}
|
32 | 34 |
|