Hello community, here is the log from the commit of package perl-Crypt-Rijndael for openSUSE:Factory checked in at 2019-06-17 10:31:15 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Comparing /work/SRC/openSUSE:Factory/perl-Crypt-Rijndael (Old) and /work/SRC/openSUSE:Factory/.perl-Crypt-Rijndael.new.4811 (New) ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Crypt-Rijndael" Mon Jun 17 10:31:15 2019 rev:15 rq:710111 version:1.14 Changes: -------- --- /work/SRC/openSUSE:Factory/perl-Crypt-Rijndael/perl-Crypt-Rijndael.changes 2015-06-16 14:05:20.000000000 +0200 +++ /work/SRC/openSUSE:Factory/.perl-Crypt-Rijndael.new.4811/perl-Crypt-Rijndael.changes 2019-06-17 10:31:17.465329601 +0200 @@ -1,0 +2,6 @@ +Sat Jun 15 05:06:12 UTC 2019 - Stephan Kulow <co...@suse.com> + +- updated to 1.14 + see /usr/share/doc/packages/perl-Crypt-Rijndael/Changes + +------------------------------------------------------------------- Old: ---- Crypt-Rijndael-1.13.tar.gz New: ---- Crypt-Rijndael-1.14.tar.gz ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Other differences: ------------------ ++++++ perl-Crypt-Rijndael.spec ++++++ --- /var/tmp/diff_new_pack.7F5bXA/_old 2019-06-17 10:31:19.193328647 +0200 +++ /var/tmp/diff_new_pack.7F5bXA/_new 2019-06-17 10:31:19.197328645 +0200 @@ -1,7 +1,7 @@ # # spec file for package perl-Crypt-Rijndael # -# Copyright (c) 2015 SUSE LINUX GmbH, Nuernberg, Germany. +# Copyright (c) 2019 SUSE LINUX GmbH, Nuernberg, Germany. # # All modifications and additions to the file contributed by third parties # remain the property of their copyright owners, unless otherwise agreed @@ -12,19 +12,20 @@ # license that conforms to the Open Source Definition (Version 1.9) # published by the Open Source Initiative. -# Please submit bugfixes or comments via http://bugs.opensuse.org/ +# Please submit bugfixes or comments via https://bugs.opensuse.org/ # Name: perl-Crypt-Rijndael -Version: 1.13 +Version: 1.14 Release: 0 +#Upstream: SUSE-Public-Domain %define cpan_name Crypt-Rijndael Summary: Crypt::CBC compliant Rijndael encryption module -License: LGPL-3.0 +License: LGPL-3.0-only Group: Development/Libraries/Perl -Url: http://search.cpan.org/dist/Crypt-Rijndael/ -Source0: http://www.cpan.org/authors/id/L/LE/LEONT/%{cpan_name}-%{version}.tar.gz +Url: https://metacpan.org/release/%{cpan_name} +Source0: https://cpan.metacpan.org/authors/id/L/LE/LEONT/%{cpan_name}-%{version}.tar.gz Source1: cpanspec.yml BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRequires: perl @@ -37,53 +38,52 @@ * keysize - Returns the keysize, which is 32 (bytes). The Rijndael cipher actually - supports keylengths of 16, 24 or 32 bytes, but there is no way to - communicate this to 'Crypt::CBC'. +Returns the keysize, which is 32 (bytes). The Rijndael cipher actually +supports keylengths of 16, 24 or 32 bytes, but there is no way to +communicate this to 'Crypt::CBC'. * blocksize - The blocksize for Rijndael is 16 bytes (128 bits), although the algorithm - actually supports any blocksize that is any multiple of our bytes. 128 - bits, is however, the AES-specified block size, so this is all we - support. +The blocksize for Rijndael is 16 bytes (128 bits), although the algorithm +actually supports any blocksize that is any multiple of our bytes. 128 +bits, is however, the AES-specified block size, so this is all we support. * $cipher = Crypt::Rijndael->new( $key [, $mode] ) - Create a new 'Crypt::Rijndael' cipher object with the given key (which - must be 128, 192 or 256 bits long). The additional '$mode' argument is - the encryption mode, either 'MODE_ECB' (electronic codebook mode, the - default), 'MODE_CBC' (cipher block chaining, the same that 'Crypt::CBC' - does), 'MODE_CFB' (128-bit cipher feedback), 'MODE_OFB' (128-bit output - feedback), or 'MODE_CTR' (counter mode). +Create a new 'Crypt::Rijndael' cipher object with the given key (which must +be 128, 192 or 256 bits long). The additional '$mode' argument is the +encryption mode, either 'MODE_ECB' (electronic codebook mode, the default), +'MODE_CBC' (cipher block chaining, the same that 'Crypt::CBC' does), +'MODE_CFB' (128-bit cipher feedback), 'MODE_OFB' (128-bit output feedback), +or 'MODE_CTR' (counter mode). - ECB mode is very insecure (read a book on cryptography if you don't know - why!), so you should probably use CBC mode. +ECB mode is very insecure (read a book on cryptography if you don't know +why!), so you should probably use CBC mode. * $cipher->set_iv($iv) - This allows you to change the initial value vector used by the chaining - modes. It is not relevant for ECB mode. +This allows you to change the initial value vector used by the chaining +modes. It is not relevant for ECB mode. * $cipher->encrypt($data) - Encrypt data. The size of '$data' must be a multiple of 'blocksize' (16 - bytes), otherwise this function will croak. Apart from that, it can be of - (almost) any length. +Encrypt data. The size of '$data' must be a multiple of 'blocksize' (16 +bytes), otherwise this function will croak. Apart from that, it can be of +(almost) any length. * $cipher->decrypt($data) - Decrypts '$data'. +Decrypts '$data'. %prep %setup -q -n %{cpan_name}-%{version} %build -%{__perl} Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}" -%{__make} %{?_smp_mflags} +perl Makefile.PL INSTALLDIRS=vendor OPTIMIZE="%{optflags}" +make %{?_smp_mflags} %check -%{__make} test +make test %install %perl_make_install @@ -92,6 +92,7 @@ %files -f %{name}.files %defattr(-,root,root,755) -%doc Changes COPYING LICENSE NEWS README +%doc Changes NEWS README +%license COPYING LICENSE %changelog ++++++ Crypt-Rijndael-1.13.tar.gz -> Crypt-Rijndael-1.14.tar.gz ++++++ diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Crypt-Rijndael-1.13/Changes new/Crypt-Rijndael-1.14/Changes --- old/Crypt-Rijndael-1.13/Changes 2015-05-23 14:47:21.000000000 +0200 +++ new/Crypt-Rijndael-1.14/Changes 2019-06-14 19:58:33.000000000 +0200 @@ -1,6 +1,9 @@ Revision history for Perl module Crypt::Rijndael -1.13 +1.14 - 2019-06-14 + * Fix UINT32 and UINT8 for musl libc + +1.13 - 2015-05-23 * Correctly null-terminate encoded/decoded strings (RT 769/#5) 1.12 - 2014-01-03 diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Crypt-Rijndael-1.13/MANIFEST new/Crypt-Rijndael-1.14/MANIFEST --- old/Crypt-Rijndael-1.13/MANIFEST 2015-05-22 18:07:25.000000000 +0200 +++ new/Crypt-Rijndael-1.14/MANIFEST 2015-05-28 01:57:38.000000000 +0200 @@ -5,22 +5,15 @@ Makefile.PL MANIFEST This list of files MANIFEST.SKIP +META.json Module JSON meta-data (added by MakeMaker) +META.yml Module YAML meta-data (added by MakeMaker) NEWS ppport.h +README rijndael.h Rijndael.pm Rijndael.xs t/00_load.t -t/blocksize.t -t/cbc.t -t/cfb.t -t/ctr.t -t/ecb.t -t/lib/mode.pl -t/ofb.t -t/pcbc.t +t/modes.t t/rt/27632.t typemap -META.yml Module YAML meta-data (added by MakeMaker) -META.json Module JSON meta-data (added by MakeMaker) -README diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Crypt-Rijndael-1.13/META.json new/Crypt-Rijndael-1.14/META.json --- old/Crypt-Rijndael-1.13/META.json 2015-05-23 14:54:44.000000000 +0200 +++ new/Crypt-Rijndael-1.14/META.json 2019-06-14 19:59:17.000000000 +0200 @@ -6,7 +6,7 @@ "Leon Timmermans <le...@cpan.org>" ], "dynamic_config" : 0, - "generated_by" : "ExtUtils::MakeMaker version 7.02, CPAN::Meta::Converter version 2.143240", + "generated_by" : "ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150005", "license" : [ "open_source" ], @@ -55,5 +55,6 @@ "web" : "https://github.com/leont/crypt-rijndael" } }, - "version" : "1.13" + "version" : "1.14", + "x_serialization_backend" : "JSON::PP version 2.27300" } diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Crypt-Rijndael-1.13/META.yml new/Crypt-Rijndael-1.14/META.yml --- old/Crypt-Rijndael-1.13/META.yml 2015-05-23 14:54:44.000000000 +0200 +++ new/Crypt-Rijndael-1.14/META.yml 2019-06-14 19:59:17.000000000 +0200 @@ -10,7 +10,7 @@ configure_requires: ExtUtils::MakeMaker: '0' dynamic_config: 0 -generated_by: 'ExtUtils::MakeMaker version 7.02, CPAN::Meta::Converter version 2.143240' +generated_by: 'ExtUtils::MakeMaker version 7.24, CPAN::Meta::Converter version 2.150005' license: open_source meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html @@ -26,4 +26,5 @@ bugtracker: https://github.com/leont/crypt-rijndael/issues homepage: https://github.com/leont/crypt-rijndael repository: https://github.com/leont/crypt-rijndael.git -version: '1.13' +version: '1.14' +x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Crypt-Rijndael-1.13/README new/Crypt-Rijndael-1.14/README --- old/Crypt-Rijndael-1.13/README 2015-05-23 14:54:44.000000000 +0200 +++ new/Crypt-Rijndael-1.14/README 2019-06-14 19:59:17.000000000 +0200 @@ -2,7 +2,7 @@ Crypt::Rijndael - Crypt::CBC compliant Rijndael encryption module VERSION - Version 1.13 + Version 1.14 SYNOPSIS use Crypt::Rijndael; diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Crypt-Rijndael-1.13/Rijndael.pm new/Crypt-Rijndael-1.14/Rijndael.pm --- old/Crypt-Rijndael-1.13/Rijndael.pm 2015-05-23 14:47:21.000000000 +0200 +++ new/Crypt-Rijndael-1.14/Rijndael.pm 2019-06-14 19:57:20.000000000 +0200 @@ -3,7 +3,7 @@ use strict; use warnings; -our $VERSION = '1.13'; +our $VERSION = '1.14'; use XSLoader; @@ -19,7 +19,7 @@ =head1 VERSION -Version 1.13 +Version 1.14 =head1 SYNOPSIS diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Crypt-Rijndael-1.13/rijndael.h new/Crypt-Rijndael-1.14/rijndael.h --- old/Crypt-Rijndael-1.13/rijndael.h 2015-04-30 17:41:28.000000000 +0200 +++ new/Crypt-Rijndael-1.14/rijndael.h 2019-06-14 19:56:29.000000000 +0200 @@ -72,6 +72,13 @@ typedef u_char UINT8; #endif +/* Systems with musl libc have a sys/types.h with these definitions. */ +#if ! defined(_CRYPT_RIJNDAEL_H_TYPES) && defined(__DEFINED_uint32_t) && defined(__DEFINED_uint8_t) + #define _CRYPT_RIJNDAEL_H_TYPES + typedef uint32_t UINT32; + typedef uint8_t UINT8; +#endif + /* I expect this to be the usual case */ #if ! defined(_CRYPT_RIJNDAEL_H_TYPES) && ( defined(_SYS_TYPES_H) || defined(_SYS_TYPES_H_) ) #define _CRYPT_RIJNDAEL_H_TYPES diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Crypt-Rijndael-1.13/t/blocksize.t new/Crypt-Rijndael-1.14/t/blocksize.t --- old/Crypt-Rijndael-1.13/t/blocksize.t 2015-04-30 17:41:28.000000000 +0200 +++ new/Crypt-Rijndael-1.14/t/blocksize.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,9 +0,0 @@ -#!/usr/bin/perl - -use Test::More 'no_plan'; - -use_ok( 'Crypt::Rijndael' ); - -ok( defined &Crypt::Rijndael::blocksize ); - -is( Crypt::Rijndael->blocksize, 16 ); \ No newline at end of file diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Crypt-Rijndael-1.13/t/cbc.t new/Crypt-Rijndael-1.14/t/cbc.t --- old/Crypt-Rijndael-1.13/t/cbc.t 2015-04-30 17:41:28.000000000 +0200 +++ new/Crypt-Rijndael-1.14/t/cbc.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,19 +0,0 @@ -#!/usr/bin/perl - -use Cwd; -use File::Spec; -use Test::More 'no_plan'; - -require_ok( File::Spec->catfile( cwd(), qw( t lib mode.pl ) ) ); - -use_ok( 'Crypt::Rijndael' ); - -ok( defined &Crypt::Rijndael::MODE_CBC ); -diag( "MODE_CBC is @{ [Crypt::Rijndael::MODE_CBC()] }" ) if $ENV{DEBUG}; - -foreach my $a ( 0 .. 10 ) - { - my $hash = crypt_decrypt( Crypt::Rijndael::MODE_CBC() ); - - is( $hash->{plain}, $hash->{data}, "Decrypted text matches plain text" ); - } \ No newline at end of file diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Crypt-Rijndael-1.13/t/cfb.t new/Crypt-Rijndael-1.14/t/cfb.t --- old/Crypt-Rijndael-1.13/t/cfb.t 2015-04-30 17:41:28.000000000 +0200 +++ new/Crypt-Rijndael-1.14/t/cfb.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,19 +0,0 @@ -#!/usr/bin/perl - -use Cwd; -use File::Spec; -use Test::More 'no_plan'; - -require_ok( File::Spec->catfile( cwd(), qw( t lib mode.pl ) ) ); - -use_ok( 'Crypt::Rijndael' ); - -ok( defined &Crypt::Rijndael::MODE_CFB ); -diag( "MODE_CBFB is @{ [Crypt::Rijndael::MODE_CFB()] }" ) if $ENV{DEBUG}; - -foreach my $a ( 0 .. 10 ) - { - my $hash = crypt_decrypt( Crypt::Rijndael::MODE_CFB() ); - - is( $hash->{plain}, $hash->{data}, "Decrypted text matches plain text" ); - } \ No newline at end of file diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Crypt-Rijndael-1.13/t/ctr.t new/Crypt-Rijndael-1.14/t/ctr.t --- old/Crypt-Rijndael-1.13/t/ctr.t 2015-04-30 17:41:28.000000000 +0200 +++ new/Crypt-Rijndael-1.14/t/ctr.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,19 +0,0 @@ -#!/usr/bin/perl - -use Cwd; -use File::Spec; -use Test::More 'no_plan'; - -require_ok( File::Spec->catfile( cwd(), qw( t lib mode.pl ) ) ); - -use_ok( 'Crypt::Rijndael' ); - -ok( defined &Crypt::Rijndael::MODE_CTR ); -diag( "MODE_CTR is @{ [Crypt::Rijndael::MODE_CTR()] }" ) if $ENV{DEBUG}; - -foreach my $a ( 0 .. 10 ) - { - my $hash = crypt_decrypt( Crypt::Rijndael::MODE_CTR() ); - - is( $hash->{plain}, $hash->{data}, "Decrypted text matches plain text" ); - } \ No newline at end of file diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Crypt-Rijndael-1.13/t/ecb.t new/Crypt-Rijndael-1.14/t/ecb.t --- old/Crypt-Rijndael-1.13/t/ecb.t 2015-04-30 17:41:28.000000000 +0200 +++ new/Crypt-Rijndael-1.14/t/ecb.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,19 +0,0 @@ -#!/usr/bin/perl - -use Cwd; -use File::Spec; -use Test::More 'no_plan'; - -require_ok( File::Spec->catfile( cwd(), qw( t lib mode.pl ) ) ); - -use_ok( 'Crypt::Rijndael' ); - -ok( defined &Crypt::Rijndael::MODE_ECB ); -diag( "MODE_ECB is @{ [Crypt::Rijndael::MODE_ECB()] }" ) if $ENV{DEBUG}; - -foreach my $a ( 0 .. 10 ) - { - my $hash = crypt_decrypt( Crypt::Rijndael::MODE_ECB() ); - - is( $hash->{plain}, $hash->{data}, "Decrypted text matches plain text" ); - } \ No newline at end of file diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Crypt-Rijndael-1.13/t/lib/mode.pl new/Crypt-Rijndael-1.14/t/lib/mode.pl --- old/Crypt-Rijndael-1.13/t/lib/mode.pl 2015-04-30 17:41:28.000000000 +0200 +++ new/Crypt-Rijndael-1.14/t/lib/mode.pl 1970-01-01 01:00:00.000000000 +0100 @@ -1,35 +0,0 @@ -use Crypt::Rijndael; - -sub crypt_decrypt - { - my( $mode ) = @_; - - my $key = make_string( 32 ); - my $c = Crypt::Rijndael->new( $key, $mode ); - - my $data = make_string( 32 * int( rand(16) + 1 ) ); - - my $cipher = $c->encrypt( $data ); - my $plain = $c->decrypt( $cipher ); - - return { - data => $data, - cipher => $cipher, - plain => $plain, - }; - } - -sub make_string { - my $size = shift; - - my $res; - - while( $size-- > 0 ) - { - $res .= pack 'C', rand 256; - } - - $res; - } - -1; \ No newline at end of file diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Crypt-Rijndael-1.13/t/modes.t new/Crypt-Rijndael-1.14/t/modes.t --- old/Crypt-Rijndael-1.13/t/modes.t 1970-01-01 01:00:00.000000000 +0100 +++ new/Crypt-Rijndael-1.14/t/modes.t 2015-12-04 01:05:15.000000000 +0100 @@ -0,0 +1,65 @@ +#!/usr/bin/perl + +use Test::More tests => 68; + +use Crypt::Rijndael; + +ok(defined &Crypt::Rijndael::blocksize); +is(Crypt::Rijndael->blocksize, 16); + +foreach my $a ( 0 .. 10 ) { + my $hash = crypt_decrypt(Crypt::Rijndael::MODE_CBC); + is($hash->{plain}, $hash->{data}, "Decrypted text matches plain text for cbc-$a"); +} + +foreach my $a ( 0 .. 10 ) { + my $hash = crypt_decrypt(Crypt::Rijndael::MODE_CFB); + is($hash->{plain}, $hash->{data}, "Decrypted text matches plain text for cfb-$a"); +} + +foreach my $a ( 0 .. 10 ) { + my $hash = crypt_decrypt(Crypt::Rijndael::MODE_CTR); + is($hash->{plain}, $hash->{data}, "Decrypted text matches plain text for ctr-$a"); +} + +foreach my $a ( 0 .. 10 ) { + my $hash = crypt_decrypt(Crypt::Rijndael::MODE_ECB); + is($hash->{plain}, $hash->{data}, "Decrypted text matches plain text for ecb-$a"); +} + +foreach my $a ( 0 .. 10 ) { + my $hash = crypt_decrypt(Crypt::Rijndael::MODE_OFB ); + is($hash->{plain}, $hash->{data}, "Decrypted text matches plain text for ofb-$a"); +} + +TODO: { + todo_skip "PCBC is not a legal mode (yet)", 11; + + foreach my $a ( 0 .. 10 ) { + my $hash = crypt_decrypt(Crypt::Rijndael::MODE_PCBC); + is($hash->{plain}, $hash->{data}, "Decrypted text matches plain text"); + } + +}; + +sub crypt_decrypt { + my $mode = shift; + + my $key = make_string(32); + my $c = Crypt::Rijndael->new($key, $mode); + my $data = make_string(32 * int rand(16) + 1); + + my $cipher = $c->encrypt($data); + my $plain = $c->decrypt($cipher); + + return { + data => $data, + cipher => $cipher, + plain => $plain, + }; +} + +sub make_string { + my $size = shift; + return pack 'C*', map { rand 256 } 1 .. $size; +} diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Crypt-Rijndael-1.13/t/ofb.t new/Crypt-Rijndael-1.14/t/ofb.t --- old/Crypt-Rijndael-1.13/t/ofb.t 2015-04-30 17:41:28.000000000 +0200 +++ new/Crypt-Rijndael-1.14/t/ofb.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,19 +0,0 @@ -#!/usr/bin/perl - -use Cwd; -use File::Spec; -use Test::More 'no_plan'; - -require_ok( File::Spec->catfile( cwd(), qw( t lib mode.pl ) ) ); - -use_ok( 'Crypt::Rijndael' ); - -ok( defined &Crypt::Rijndael::MODE_OFB ); -diag( "MODE_OFB is @{ [Crypt::Rijndael::MODE_OFB()] }" ) if $ENV{DEBUG}; - -foreach my $a ( 0 .. 10 ) - { - my $hash = crypt_decrypt( Crypt::Rijndael::MODE_OFB() ); - - is( $hash->{plain}, $hash->{data}, "Decrypted text matches plain text" ); - } \ No newline at end of file diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn' '--exclude=.svnignore' old/Crypt-Rijndael-1.13/t/pcbc.t new/Crypt-Rijndael-1.14/t/pcbc.t --- old/Crypt-Rijndael-1.13/t/pcbc.t 2015-04-30 17:41:28.000000000 +0200 +++ new/Crypt-Rijndael-1.14/t/pcbc.t 1970-01-01 01:00:00.000000000 +0100 @@ -1,26 +0,0 @@ -#!/usr/bin/perl - -use Cwd; -use File::Spec; -use Test::More 'no_plan'; - -require_ok( File::Spec->catfile( cwd(), qw( t lib mode.pl ) ) ); - -use_ok( 'Crypt::Rijndael' ); - -ok( defined &Crypt::Rijndael::MODE_PCBC ); -diag( "MODE_PCBC is @{ [Crypt::Rijndael::MODE_PCBC()] }" ) if $ENV{DEBUG}; - -TODO: { - local $TODO = "PCBC is not a legal mode (yet)"; - -my $value = eval { - foreach my $a ( 0 .. 10 ) - { - my $hash = crypt_decrypt( Crypt::Rijndael::MODE_PCBC() ); - - is( $hash->{plain}, $hash->{data}, "Decrypted text matches plain text" ); - } - }; - -}; \ No newline at end of file