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
