Commit ba17cc992edfaf5ce7e7f208ed54e605c85b047a - libcryptx-perl

+4

-0

Changes less more

0	0	Changes for CryptX
	1
	2	0.077 2022-08-21
	3	- fix #82 + #84 new t/mbi_ltm_big*.t failures
	4	- fix #85 wrong linker options for aix
1	5
2	6	0.076 2022-01-07
3	7	- fix #80 github actions (mac, windows, cygwin)

+1

-0

MANIFEST less more

1056	1056	t/mbi_ltm_biglog.t
1057	1057	t/mbi_ltm_bigroot.t
1058	1058	t/mbi_ltm_bugs.t
	1059	t/mbi_ltm_latest.t
1059	1060	t/mbi_ltm_mbi-from-big-scalar.t
1060	1061	t/mbi_ltm_storable.t
1061	1062	t/mode_cbc.t

+3

-3

META.json less more

3	3	"Karel Miko"
4	4	],
5	5	"dynamic_config" : 1,
6		"generated_by" : "ExtUtils::MakeMaker version 7.62, CPAN::Meta::Converter version 2.150010",
	6	"generated_by" : "ExtUtils::MakeMaker version 7.64, CPAN::Meta::Converter version 2.150010",
7	7	"license" : [
8	8	"perl_5"
9	9	],

50	50	"url" : "https://github.com/DCIT/perl-CryptX"
51	51	}
52	52	},
53		"version" : "0.076",
54		"x_serialization_backend" : "JSON::PP version 4.07"
	53	"version" : "0.077",
	54	"x_serialization_backend" : "JSON::PP version 4.08"
55	55	}

+2

-2

META.yml less more

7	7	configure_requires:
8	8	ExtUtils::MakeMaker: '0'
9	9	dynamic_config: 1
10		generated_by: 'ExtUtils::MakeMaker version 7.62, CPAN::Meta::Converter version 2.150010'
	10	generated_by: 'ExtUtils::MakeMaker version 7.64, CPAN::Meta::Converter version 2.150010'
11	11	license: perl
12	12	meta-spec:
13	13	url: http://module-build.sourceforge.net/META-spec-v1.4.html

23	23	resources:
24	24	bugtracker: https://github.com/DCIT/perl-CryptX/issues
25	25	repository: https://github.com/DCIT/perl-CryptX
26		version: '0.076'
	26	version: '0.077'
27	27	x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

+2

-1

Makefile.PL less more

66	66	# not needed on MS Windows
67	67	# does not work on macos - Apple LLVM 12.0.5 (clang-1205.0.22.9) ld: unknown option: --exclude-libs
68	68	# does not work on solaris - gcc 9.3.0 - ld: fatal: unrecognized option '--exclude-libs'
69		if ($^O !~ /^(MSWin32\|darwin\|solaris)$/ && ($Config{ld} =~ /gcc\|g\+\+/ \|\| $Config{gccversion})) {
	69	# does not work on aix - https://github.com/DCIT/perl-CryptX/issues/85
	70	if ($^O !~ /^(MSWin32\|darwin\|solaris\|aix)$/ && ($Config{ld} =~ /gcc\|g\+\+/ \|\| $Config{gccversion})) {
70	71	push @EUMM_INC_LIB, (LDDLFLAGS => "$Config{lddlflags} -Wl,--exclude-libs,ALL");
71	72	}
72	73	}

+1

-1

lib/Crypt/AuthEnc/CCM.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( ccm_encrypt_authenticate ccm_decrypt_verify )] );

+1

-1

lib/Crypt/AuthEnc/ChaCha20Poly1305.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( chacha20poly1305_encrypt_authenticate chacha20poly1305_decrypt_verify )] );

+1

-1

lib/Crypt/AuthEnc/EAX.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( eax_encrypt_authenticate eax_decrypt_verify )] );

+1

-1

lib/Crypt/AuthEnc/GCM.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( gcm_encrypt_authenticate gcm_decrypt_verify )] );

+1

-1

lib/Crypt/AuthEnc/OCB.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( ocb_encrypt_authenticate ocb_decrypt_verify )] );

+1

-1

lib/Crypt/AuthEnc.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	### not used
7	7

+1

-1

lib/Crypt/Checksum/Adler32.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	use base qw(Crypt::Checksum Exporter);
7	7	our %EXPORT_TAGS = ( all => [qw( adler32_data adler32_data_hex adler32_data_int adler32_file adler32_file_hex adler32_file_int )] );

+1

-1

lib/Crypt/Checksum/CRC32.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	use base qw(Crypt::Checksum Exporter);
7	7	our %EXPORT_TAGS = ( all => [qw( crc32_data crc32_data_hex crc32_data_int crc32_file crc32_file_hex crc32_file_int )] );

+1

-1

lib/Crypt/Checksum.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw/ adler32_data adler32_data_hex adler32_data_int adler32_file adler32_file_hex adler32_file_int

+1

-1

lib/Crypt/Cipher/AES.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/Anubis.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/Blowfish.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/CAST5.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/Camellia.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/DES.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/DES_EDE.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/IDEA.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/KASUMI.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/Khazad.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/MULTI2.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/Noekeon.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/RC2.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/RC5.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/RC6.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/SAFERP.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/SAFER_K128.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/SAFER_K64.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/SAFER_SK128.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/SAFER_SK64.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/SEED.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/Serpent.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/Skipjack.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/Twofish.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher/XTEA.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Cipher);
9	9

+1

-1

lib/Crypt/Cipher.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	use Carp;
7	7	$Carp::Internal{(__PACKAGE__)}++;

+1

-1

lib/Crypt/Digest/BLAKE2b_160.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2b_160 blake2b_160_hex blake2b_160_b64 blake2b_160_b64u blake2b_160_file blake2b_160_file_hex blake2b_160_file_b64 blake2b_160_file_b64u )] );

+1

-1

lib/Crypt/Digest/BLAKE2b_256.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2b_256 blake2b_256_hex blake2b_256_b64 blake2b_256_b64u blake2b_256_file blake2b_256_file_hex blake2b_256_file_b64 blake2b_256_file_b64u )] );

+1

-1

lib/Crypt/Digest/BLAKE2b_384.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2b_384 blake2b_384_hex blake2b_384_b64 blake2b_384_b64u blake2b_384_file blake2b_384_file_hex blake2b_384_file_b64 blake2b_384_file_b64u )] );

+1

-1

lib/Crypt/Digest/BLAKE2b_512.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2b_512 blake2b_512_hex blake2b_512_b64 blake2b_512_b64u blake2b_512_file blake2b_512_file_hex blake2b_512_file_b64 blake2b_512_file_b64u )] );

+1

-1

lib/Crypt/Digest/BLAKE2s_128.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2s_128 blake2s_128_hex blake2s_128_b64 blake2s_128_b64u blake2s_128_file blake2s_128_file_hex blake2s_128_file_b64 blake2s_128_file_b64u )] );

+1

-1

lib/Crypt/Digest/BLAKE2s_160.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2s_160 blake2s_160_hex blake2s_160_b64 blake2s_160_b64u blake2s_160_file blake2s_160_file_hex blake2s_160_file_b64 blake2s_160_file_b64u )] );

+1

-1

lib/Crypt/Digest/BLAKE2s_224.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2s_224 blake2s_224_hex blake2s_224_b64 blake2s_224_b64u blake2s_224_file blake2s_224_file_hex blake2s_224_file_b64 blake2s_224_file_b64u )] );

+1

-1

lib/Crypt/Digest/BLAKE2s_256.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2s_256 blake2s_256_hex blake2s_256_b64 blake2s_256_b64u blake2s_256_file blake2s_256_file_hex blake2s_256_file_b64 blake2s_256_file_b64u )] );

+1

-1

lib/Crypt/Digest/CHAES.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( chaes chaes_hex chaes_b64 chaes_b64u chaes_file chaes_file_hex chaes_file_b64 chaes_file_b64u )] );

+1

-1

lib/Crypt/Digest/Keccak224.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( keccak224 keccak224_hex keccak224_b64 keccak224_b64u keccak224_file keccak224_file_hex keccak224_file_b64 keccak224_file_b64u )] );

+1

-1

lib/Crypt/Digest/Keccak256.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( keccak256 keccak256_hex keccak256_b64 keccak256_b64u keccak256_file keccak256_file_hex keccak256_file_b64 keccak256_file_b64u )] );

+1

-1

lib/Crypt/Digest/Keccak384.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( keccak384 keccak384_hex keccak384_b64 keccak384_b64u keccak384_file keccak384_file_hex keccak384_file_b64 keccak384_file_b64u )] );

+1

-1

lib/Crypt/Digest/Keccak512.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( keccak512 keccak512_hex keccak512_b64 keccak512_b64u keccak512_file keccak512_file_hex keccak512_file_b64 keccak512_file_b64u )] );

+1

-1

lib/Crypt/Digest/MD2.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( md2 md2_hex md2_b64 md2_b64u md2_file md2_file_hex md2_file_b64 md2_file_b64u )] );

+1

-1

lib/Crypt/Digest/MD4.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( md4 md4_hex md4_b64 md4_b64u md4_file md4_file_hex md4_file_b64 md4_file_b64u )] );

+1

-1

lib/Crypt/Digest/MD5.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( md5 md5_hex md5_b64 md5_b64u md5_file md5_file_hex md5_file_b64 md5_file_b64u )] );

+1

-1

lib/Crypt/Digest/RIPEMD128.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( ripemd128 ripemd128_hex ripemd128_b64 ripemd128_b64u ripemd128_file ripemd128_file_hex ripemd128_file_b64 ripemd128_file_b64u )] );

+1

-1

lib/Crypt/Digest/RIPEMD160.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( ripemd160 ripemd160_hex ripemd160_b64 ripemd160_b64u ripemd160_file ripemd160_file_hex ripemd160_file_b64 ripemd160_file_b64u )] );

+1

-1

lib/Crypt/Digest/RIPEMD256.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( ripemd256 ripemd256_hex ripemd256_b64 ripemd256_b64u ripemd256_file ripemd256_file_hex ripemd256_file_b64 ripemd256_file_b64u )] );

+1

-1

lib/Crypt/Digest/RIPEMD320.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( ripemd320 ripemd320_hex ripemd320_b64 ripemd320_b64u ripemd320_file ripemd320_file_hex ripemd320_file_b64 ripemd320_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA1.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha1 sha1_hex sha1_b64 sha1_b64u sha1_file sha1_file_hex sha1_file_b64 sha1_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA224.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha224 sha224_hex sha224_b64 sha224_b64u sha224_file sha224_file_hex sha224_file_b64 sha224_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA256.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha256 sha256_hex sha256_b64 sha256_b64u sha256_file sha256_file_hex sha256_file_b64 sha256_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA384.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha384 sha384_hex sha384_b64 sha384_b64u sha384_file sha384_file_hex sha384_file_b64 sha384_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA3_224.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha3_224 sha3_224_hex sha3_224_b64 sha3_224_b64u sha3_224_file sha3_224_file_hex sha3_224_file_b64 sha3_224_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA3_256.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha3_256 sha3_256_hex sha3_256_b64 sha3_256_b64u sha3_256_file sha3_256_file_hex sha3_256_file_b64 sha3_256_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA3_384.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha3_384 sha3_384_hex sha3_384_b64 sha3_384_b64u sha3_384_file sha3_384_file_hex sha3_384_file_b64 sha3_384_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA3_512.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha3_512 sha3_512_hex sha3_512_b64 sha3_512_b64u sha3_512_file sha3_512_file_hex sha3_512_file_b64 sha3_512_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA512.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha512 sha512_hex sha512_b64 sha512_b64u sha512_file sha512_file_hex sha512_file_b64 sha512_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA512_224.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha512_224 sha512_224_hex sha512_224_b64 sha512_224_b64u sha512_224_file sha512_224_file_hex sha512_224_file_b64 sha512_224_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHA512_256.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( sha512_256 sha512_256_hex sha512_256_b64 sha512_256_b64u sha512_256_file sha512_256_file_hex sha512_256_file_b64 sha512_256_file_b64u )] );

+1

-1

lib/Crypt/Digest/SHAKE.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	use Carp;
7	7	$Carp::Internal{(__PACKAGE__)}++;

+1

-1

lib/Crypt/Digest/Tiger192.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( tiger192 tiger192_hex tiger192_b64 tiger192_b64u tiger192_file tiger192_file_hex tiger192_file_b64 tiger192_file_b64u )] );

+1

-1

lib/Crypt/Digest/Whirlpool.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Digest Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( whirlpool whirlpool_hex whirlpool_b64 whirlpool_b64u whirlpool_file whirlpool_file_hex whirlpool_file_b64 whirlpool_file_b64u )] );

+1

-1

lib/Crypt/Digest.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( digest_data digest_data_hex digest_data_b64 digest_data_b64u digest_file digest_file_hex digest_file_b64 digest_file_b64u )] );

+1

-1

lib/Crypt/KeyDerivation.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw(pbkdf1 pbkdf2 hkdf hkdf_expand hkdf_extract)] );

+1

-1

lib/Crypt/Mac/BLAKE2b.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Mac Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2b blake2b_hex blake2b_b64 blake2b_b64u )] );

+1

-1

lib/Crypt/Mac/BLAKE2s.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Mac Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( blake2s blake2s_hex blake2s_b64 blake2s_b64u )] );

+1

-1

lib/Crypt/Mac/F9.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Mac Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( f9 f9_hex f9_b64 f9_b64u )] );

+1

-1

lib/Crypt/Mac/HMAC.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Mac Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( hmac hmac_hex hmac_b64 hmac_b64u )] );

+1

-1

lib/Crypt/Mac/OMAC.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Mac Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( omac omac_hex omac_b64 omac_b64u )] );

+1

-1

lib/Crypt/Mac/PMAC.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Mac Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( pmac pmac_hex pmac_b64 pmac_b64u )] );

+1

-1

lib/Crypt/Mac/Pelican.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Mac Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( pelican pelican_hex pelican_b64 pelican_b64u )] );

+1

-1

lib/Crypt/Mac/Poly1305.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Mac Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( poly1305 poly1305_hex poly1305_b64 poly1305_b64u )] );

+1

-1

lib/Crypt/Mac/XCBC.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use base qw(Crypt::Mac Exporter);
9	9	our %EXPORT_TAGS = ( all => [qw( xcbc xcbc_hex xcbc_b64 xcbc_b64u )] );

+1

-1

lib/Crypt/Mac.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	use Carp;
7	7	$Carp::Internal{(__PACKAGE__)}++;

+1

-1

lib/Crypt/Misc.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	use Carp 'croak';

+1

-1

lib/Crypt/Mode/CBC.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use Crypt::Cipher;
9	9

+1

-1

lib/Crypt/Mode/CFB.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use Crypt::Cipher;
9	9

+1

-1

lib/Crypt/Mode/CTR.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use Crypt::Cipher;
9	9

+1

-1

lib/Crypt/Mode/ECB.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use Crypt::Cipher;
9	9

+1

-1

lib/Crypt/Mode/OFB.pm less more

3	3
4	4	use strict;
5	5	use warnings;
6		our $VERSION = '0.076';
	6	our $VERSION = '0.077';
7	7
8	8	use Crypt::Cipher;
9	9

+1

-1

lib/Crypt/Mode.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	### not used
7	7

+1

-1

lib/Crypt/PK/DH.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( dh_shared_secret )] );

+1

-1

lib/Crypt/PK/DSA.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( dsa_encrypt dsa_decrypt dsa_sign_message dsa_verify_message dsa_sign_hash dsa_verify_hash )] );

+1

-1

lib/Crypt/PK/ECC.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( ecc_encrypt ecc_decrypt ecc_sign_message ecc_verify_message ecc_sign_hash ecc_verify_hash ecc_shared_secret )] );

+1

-1

lib/Crypt/PK/Ed25519.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( )] );

+1

-1

lib/Crypt/PK/RSA.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw(rsa_encrypt rsa_decrypt rsa_sign_message rsa_verify_message rsa_sign_hash rsa_verify_hash)] );

+1

-1

lib/Crypt/PK/X25519.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw( )] );

+1

-1

lib/Crypt/PK.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	use Carp;
7	7

+1

-1

lib/Crypt/PRNG/ChaCha20.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	use base qw(Crypt::PRNG Exporter);
7	7	our %EXPORT_TAGS = ( all => [qw(random_bytes random_bytes_hex random_bytes_b64 random_bytes_b64u random_string random_string_from rand irand)] );

+1

-1

lib/Crypt/PRNG/Fortuna.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	use base qw(Crypt::PRNG Exporter);
7	7	our %EXPORT_TAGS = ( all => [qw(random_bytes random_bytes_hex random_bytes_b64 random_bytes_b64u random_string random_string_from rand irand)] );

+1

-1

lib/Crypt/PRNG/RC4.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	use base qw(Crypt::PRNG Exporter);
7	7	our %EXPORT_TAGS = ( all => [qw(random_bytes random_bytes_hex random_bytes_b64 random_bytes_b64u random_string random_string_from rand irand)] );

+1

-1

lib/Crypt/PRNG/Sober128.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	use base qw(Crypt::PRNG Exporter);
7	7	our %EXPORT_TAGS = ( all => [qw(random_bytes random_bytes_hex random_bytes_b64 random_bytes_b64u random_string random_string_from rand irand)] );

+1

-1

lib/Crypt/PRNG/Yarrow.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	use base qw(Crypt::PRNG Exporter);
7	7	our %EXPORT_TAGS = ( all => [qw(random_bytes random_bytes_hex random_bytes_b64 random_bytes_b64u random_string random_string_from rand irand)] );

+1

-1

lib/Crypt/PRNG.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	require Exporter; our @ISA = qw(Exporter); ### use Exporter 5.57 'import';
7	7	our %EXPORT_TAGS = ( all => [qw(random_bytes random_bytes_hex random_bytes_b64 random_bytes_b64u random_string random_string_from rand irand)] );

+1

-1

lib/Crypt/Stream/ChaCha.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	use CryptX;
7	7

+1

-1

lib/Crypt/Stream/RC4.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	use CryptX;
7	7

+1

-1

lib/Crypt/Stream/Rabbit.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	use CryptX;
7	7

+1

-1

lib/Crypt/Stream/Salsa20.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	use CryptX;
7	7

+1

-1

lib/Crypt/Stream/Sober128.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	use CryptX;
7	7

+1

-1

lib/Crypt/Stream/Sosemanuk.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	use CryptX;
7	7

+1

-1

lib/CryptX.pm less more

1	1
2	2	use strict;
3	3	use warnings ;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	require XSLoader;
7	7	XSLoader::load('CryptX', $VERSION);

+79

-8

lib/Math/BigInt/LTM.pm less more

1	1
2	2	use strict;
3	3	use warnings;
4		our $VERSION = '0.076';
	4	our $VERSION = '0.077';
5	5
6	6	use CryptX;
7	7	use Carp;

146	146	$x = $_[0];
147	147	$y = ref($_[1]) ? $class -> _num($_[1]) : $_[1];
148	148	}
149		return $class -> _blsft($x, $y);
	149	return $class -> _lsft($x, $y);
150	150	},
151	151
152	152	'>>' => sub {

159	159	$x = $class -> _copy($_[0]);
160	160	$y = ref($_[1]) ? $_[1] : $class -> _new($_[1]);
161	161	}
162		return $class -> _brsft($x, $y);
	162	return $class -> _rsft($x, $y);
163	163	},
164	164
165	165	# overload key: num_comparison

308	308	'=' => sub { ref($_[0]) -> _copy($_[0]); },
309	309
310	310	;
	311
	312	### same as _from_base_num() in Math::BigInt::Lib
	313	sub _from_base_num {
	314	# Convert an array in the given base to a number.
	315	my ($class, $in, $base) = @_;
	316
	317	# Make sure the base is an object and >= 2.
	318	$base = $class -> _new($base) unless ref($base);
	319	my $two = $class -> _two();
	320	croak "base must be >= 2" unless $class -> _acmp($base, $two) >= 0;
	321
	322	# @$in = map { ref($_) ? $_ : $class -> _new($_) } @$in;
	323
	324	my $ele = $in -> [0];
	325
	326	$ele = $class -> _new($ele) unless ref($ele);
	327	my $x = $class -> _copy($ele);
	328
	329	for my $i (1 .. $#$in) {
	330	$x = $class -> _mul($x, $base);
	331	$ele = $in -> [$i];
	332	$ele = $class -> _new($ele) unless ref($ele);
	333	$x = $class -> _add($x, $ele);
	334	}
	335
	336	return $x;
	337	}
	338
	339	### same as _to_base_num() in Math::BigInt::Lib
	340	sub _to_base_num {
	341	# Convert the number to an array of integers in any base.
	342	my ($class, $x, $base) = @_;
	343
	344	# Make sure the base is an object and >= 2.
	345	$base = $class -> _new($base) unless ref($base);
	346	my $two = $class -> _two();
	347	croak "base must be >= 2" unless $class -> _acmp($base, $two) >= 0;
	348
	349	my $out = [];
	350	my $xcopy = $class -> _copy($x);
	351	my $rem;
	352
	353	# Do all except the last (most significant) element.
	354	until ($class -> _acmp($xcopy, $base) < 0) {
	355	($xcopy, $rem) = $class -> _div($xcopy, $base);
	356	unshift @$out, $rem;
	357	}
	358
	359	# Do the last (most significant element).
	360	unless ($class -> _is_zero($xcopy)) {
	361	unshift @$out, $xcopy;
	362	}
	363
	364	# $out is empty if $x is zero.
	365	unshift @$out, $class -> _zero() unless @$out;
	366
	367	return $out;
	368	}
311	369
312	370	### same as _check() in Math::BigInt::Lib
313	371	sub _check {

324	382	substr($class ->_str($x), -($n+1), 1);
325	383	}
326	384
	385	### same as _digitsum() in Math::BigInt::Lib
	386	sub _digitsum {
	387	my ($class, $x) = @_;
	388
	389	my $len = $class -> _len($x);
	390	my $sum = $class -> _zero();
	391	for (my $i = 0 ; $i < $len ; ++$i) {
	392	my $digit = $class -> _digit($x, $i);
	393	$digit = $class -> _new($digit);
	394	$sum = $class -> _add($sum, $digit);
	395	}
	396
	397	return $sum;
	398	}
	399
327	400	### same as _num() in Math::BigInt::Lib
328	401	sub _num {
329	402	my ($class, $x) = @_;
330	403	0 + $class -> _str($x);
331	404	}
332	405
333		### PATCHED _fac() from Math::BigInt::Lib
	406	### PATCHED/OLDER _fac() from Math::BigInt::Lib
334	407	sub _fac {
335	408	# factorial
336	409	my ($class, $x) = @_;

579	652	return @y;
580	653	}
581	654
582		require Scalar::Util;
583
584	655	# In scalar context use that lucas(n) = fib(n-1) + fib(n+1).
585	656	#
586	657	# Remember that _fib() behaves differently in scalar context and list

588	659
589	660	return $class -> _two() if $n == 0;
590	661
591		return $class -> _add(scalar $class -> _fib($n - 1),
592		scalar $class -> _fib($n + 1));
	662	return $class -> _add(scalar($class -> _fib($n - 1)),
	663	scalar($class -> _fib($n + 1)));
593	664	}
594	665
595	666	### same as _fib() in Math::BigInt::Lib

+0

-6

t/mbi_ltm/bigfltpm.inc less more

554	554	&bcos
555	555	1.2:10:0.3623577545
556	556	2.4:12:-0.737393715541
557		0:10:1
558		0:20:1
559	557	1:10:0.5403023059
560	558	1:12:0.540302305868
561	559

840	838	-2:-:-1
841	839	-2:+:1
842	840	2:-:-1
843		0::1
844		-2::1
845		abc::1
846		2:abc:1
847	841
848	842	&bsstr
849	843	+inf:inf

+1

-1

t/mbi_ltm_bigfltpm.t less more

6	6
7	7	BEGIN {
8	8	plan skip_all => "requires Math::BigFloat 1.999827+" unless eval { require Math::BigFloat && eval($Math::BigFloat::VERSION) >= 1.999827 };
9		plan tests => 2403 # tests in require'd file
	9	plan tests => 2391 # tests in require'd file
10	10	+ 5; # tests in this file
11	11	}
12	12

+1

-4

t/mbi_ltm_biglog.t less more

15	15
16	16	BEGIN {
17	17	plan skip_all => "requires Math::BigInt 1.9997+" unless eval { require Math::BigInt && eval($Math::BigInt::VERSION) >= 1.9997 };
18		plan tests => 71;
	18	plan tests => 70;
19	19	}
20	20
21	21	use Math::BigFloat only => 'LTM';

118	118	is ($cl->new('1.2')->bpow('0.3',10), '1.056219968');
119	119	is ($cl->new('10')->bpow('0.6',10), '3.981071706');
120	120
121		# blog should handle bigint input
122		is (Math::BigFloat::blog(Math::BigInt->new(100),10), 2, "blog(100)");
123
124	121	#############################################################################
125	122	# some integer results
126	123	is ($cl->new(2)->bpow(32)->blog(2), '32', "2 ** 32");

+39

-0

t/mbi_ltm_latest.t less more

	0	use strict;
	1	use warnings;
	2	use Test::More;
	3
	4	BEGIN {
	5	plan skip_all => "requires Math::BigInt 1.999837+" unless eval { require Math::BigInt && eval($Math::BigInt::VERSION) >= 1.999837 };
	6	plan tests => 3;
	7	}
	8
	9	use Math::BigFloat only => 'LTM';
	10	use Math::BigInt only => 'LTM';
	11
	12	my ($x, $y);
	13
	14	### https://github.com/DCIT/perl-CryptX/issues/82
	15
	16	$x = Math::BigFloat->new("0");
	17	$y = Math::BigFloat->new("20");
	18	$x->bcos($y);
	19	is($x, "1.0000000000000000000");
	20	$x = Math::BigFloat->new("0");
	21	$y = Math::BigFloat->new("20");
	22	$x->bcos($y);
	23	is($x, "1.0000000000000000000");
	24	$x = Math::BigFloat->blog(Math::BigInt->new(100),10);
	25	is($x, "2");
	26
	27	### unsolved part of https://github.com/DCIT/perl-CryptX/issues/82
	28	## t/mbi_ltm_bigfltpm.t ................ 123/2408 Argument "" isn't numeric in subtraction (-) at /home/jkeenan/testing/v5.36.0/lib/perl5/site_perl/5.36.0/Math/BigFloat.pm line 4651, <DATA> line 330.
	29	## Argument "" isn't numeric in subtraction (-) at /home/jkeenan/testing/v5.36.0/lib/perl5/site_perl/5.36.0/Math/BigFloat.pm line 4651, <DATA> line 331.
	30	## Argument "" isn't numeric in subtraction (-) at /home/jkeenan/testing/v5.36.0/lib/perl5/site_perl/5.36.0/Math/BigFloat.pm line 4651, <DATA> line 332.
	31	## Argument "abc" isn't numeric in subtraction (-) at /home/jkeenan/testing/v5.36.0/lib/perl5/site_perl/5.36.0/Math/BigFloat.pm line 4651, <DATA> line 333.
	32	#
	33	#&bone
	34	#...
	35	#-0::1
	36	#--2::1
	37	#-abc::1
	38	#-2:abc:1