912d2d
diff -up Authen-SASL-2.16/lib/Authen/SASL/Perl.pm.orig Authen-SASL-2.16/lib/Authen/SASL/Perl.pm
912d2d
--- Authen-SASL-2.16/lib/Authen/SASL/Perl.pm.orig	2012-09-04 18:00:31.000000000 +0200
912d2d
+++ Authen-SASL-2.16/lib/Authen/SASL/Perl.pm	2014-06-04 09:51:34.654310724 +0200
912d2d
@@ -323,6 +323,9 @@ sub securesocket {
912d2d
 
912d2d
     my $fh = $self->{fh};
912d2d
 
912d2d
+    # Fix for BZ#965739, RT#85294
912d2d
+    $len = length($_[1]) if $len > length($_[1]);
912d2d
+
912d2d
     # put on wire in peer-sized chunks
912d2d
     my $bsz = $self->{sndbufsz};
912d2d
     while ($len > 0) {