From 32e12aa64ca635aedf9bdd028856a196ffa77867 Mon Sep 17 00:00:00 2001
From: "git@daemon.de" <git@daemon.de>
Date: Mon, 14 Mar 2016 08:35:49 +0100
Subject: [PATCH] fixed rt.cpan.org#112975

---
 lib/Crypt/PWSafe3.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/lib/Crypt/PWSafe3.pm b/lib/Crypt/PWSafe3.pm
index a49e2e7..6a68d01 100644
--- a/lib/Crypt/PWSafe3.pm
+++ b/lib/Crypt/PWSafe3.pm
@@ -1,5 +1,5 @@
 #
-# Copyright (c) 2011-2015 T.v.Dein <tlinden |AT| cpan.org>.
+# Copyright (c) 2011-2016 T.v.Dein <tlinden |AT| cpan.org>.
 #
 # Licensed under the terms of the Artistic License 2.0
 # see: http://www.perlfoundation.org/artistic_license_2_0
@@ -178,6 +178,7 @@ sub create {
 
   # encrypt b1 .. b4
   my $crypt = Crypt::ECB->new;
+  $crypt->padding('none');
   $crypt->cipher('Twofish');
   $crypt->key( $this->strechedpw() );
   $this->b1( $crypt->encrypt( $this->random(16) ) );
@@ -245,6 +246,7 @@ sub read {
   $this->b4( $this->readbytes(16) );
 
   my $crypt = Crypt::ECB->new;
+  $crypt->padding('none');
   $crypt->cipher('Twofish') || die $crypt->errstring;
   $crypt->key( $this->strechedpw() );
 
@@ -393,6 +395,7 @@ sub save {
   $this->writebytes($this->b4);
 
   my $crypt = Crypt::ECB->new;
+  $crypt->padding('none');
   $crypt->cipher('Twofish');
   $crypt->key( $this->strechedpw() );
 
@@ -994,7 +997,7 @@ in this module are his ideas ported to perl.
 
 =head1 COPYRIGHT
 
-Copyright (c) 2011-2015 by T.v.Dein <tlinden@cpan.org>.
+Copyright (c) 2011-2016 by T.v.Dein <tlinden@cpan.org>.
 
 =head1 LICENSE