r25742 - in /branches/upstream/libcrypt-cbc-perl/current: CBC.pm META.yml t/preexisting.t

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Wed Oct  1 21:57:53 2008
New Revision: 25742

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=25742
Log:
[svn-upgrade] Integrating new upstream version, libcrypt-cbc-perl (2.30)

Modified:
    branches/upstream/libcrypt-cbc-perl/current/CBC.pm
    branches/upstream/libcrypt-cbc-perl/current/META.yml
    branches/upstream/libcrypt-cbc-perl/current/t/preexisting.t

Modified: branches/upstream/libcrypt-cbc-perl/current/CBC.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcrypt-cbc-perl/current/CBC.pm?rev=25742&op=diff
==============================================================================
--- branches/upstream/libcrypt-cbc-perl/current/CBC.pm (original)
+++ branches/upstream/libcrypt-cbc-perl/current/CBC.pm Wed Oct  1 21:57:53 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: branches/upstream/libcrypt-cbc-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcrypt-cbc-perl/current/META.yml?rev=25742&op=diff
==============================================================================
--- branches/upstream/libcrypt-cbc-perl/current/META.yml (original)
+++ branches/upstream/libcrypt-cbc-perl/current/META.yml Wed Oct  1 21:57:53 2008
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Crypt-CBC
-version:             2.29
+version:             2.30
 abstract:            ~
 license:             ~
 author:              ~

Modified: branches/upstream/libcrypt-cbc-perl/current/t/preexisting.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libcrypt-cbc-perl/current/t/preexisting.t?rev=25742&op=diff
==============================================================================
--- branches/upstream/libcrypt-cbc-perl/current/t/preexisting.t (original)
+++ branches/upstream/libcrypt-cbc-perl/current/t/preexisting.t Wed Oct  1 21:57:53 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");