r25744 - in /trunk/libcrypt-cbc-perl: CBC.pm META.yml debian/changelog t/preexisting.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Wed Oct 1 21:58:52 UTC 2008
Author: gregoa
Date: Wed Oct 1 21:58:48 2008
New Revision: 25744
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25744
Log:
New upstream release.
Modified:
trunk/libcrypt-cbc-perl/CBC.pm
trunk/libcrypt-cbc-perl/META.yml
trunk/libcrypt-cbc-perl/debian/changelog
trunk/libcrypt-cbc-perl/t/preexisting.t
Modified: trunk/libcrypt-cbc-perl/CBC.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcrypt-cbc-perl/CBC.pm?rev=25744&op=diff
==============================================================================
--- trunk/libcrypt-cbc-perl/CBC.pm (original)
+++ trunk/libcrypt-cbc-perl/CBC.pm Wed Oct 1 21:58:48 2008
@@ -5,7 +5,7 @@
use strict;
use bytes;
use vars qw($VERSION);
-$VERSION = '2.29';
+$VERSION = '2.30';
use constant RANDOM_DEVICE => '/dev/urandom';
Modified: trunk/libcrypt-cbc-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcrypt-cbc-perl/META.yml?rev=25744&op=diff
==============================================================================
--- trunk/libcrypt-cbc-perl/META.yml (original)
+++ trunk/libcrypt-cbc-perl/META.yml Wed Oct 1 21:58:48 2008
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Crypt-CBC
-version: 2.29
+version: 2.30
abstract: ~
license: ~
author: ~
Modified: trunk/libcrypt-cbc-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcrypt-cbc-perl/debian/changelog?rev=25744&op=diff
==============================================================================
--- trunk/libcrypt-cbc-perl/debian/changelog (original)
+++ trunk/libcrypt-cbc-perl/debian/changelog Wed Oct 1 21:58:48 2008
@@ -1,3 +1,9 @@
+libcrypt-cbc-perl (2.30-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Wed, 01 Oct 2008 23:58:08 +0200
+
libcrypt-cbc-perl (2.29-1) unstable; urgency=low
* New upstream release.
Modified: trunk/libcrypt-cbc-perl/t/preexisting.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libcrypt-cbc-perl/t/preexisting.t?rev=25744&op=diff
==============================================================================
--- trunk/libcrypt-cbc-perl/t/preexisting.t (original)
+++ trunk/libcrypt-cbc-perl/t/preexisting.t Wed Oct 1 21:58:48 2008
@@ -15,7 +15,7 @@
for my $mod (@mods) {
if (eval "use Crypt::$mod(); 1") {
- $cipherclass = "Crypt::$mod";
+ $cipherclass = $mod eq 'IDEA' ? $mod : "Crypt::$mod";
warn "Using $cipherclass for test\n";
last;
}
@@ -49,7 +49,8 @@
my $ks = eval{$cipherclass->keysize} || $bs;
my $key = Crypt::CBC->_get_random_bytes($ks);
-my $cipher = $cipherclass eq 'Crypt::Eksblowfish' ? $cipherclass->new(8,Crypt::CBC->_get_random_bytes(16),$key) : $cipherclass->new($key);
+my $cipher = $cipherclass eq 'Crypt::Eksblowfish' ? $cipherclass->new(8,Crypt::CBC->_get_random_bytes(16),$key)
+ :$cipherclass->new($key);
test(2,$i = Crypt::CBC->new(-cipher=>$cipher),"Couldn't create new object");
test(3,$c = $i->encrypt($test_data),"Couldn't encrypt");
More information about the Pkg-perl-cvs-commits
mailing list