X-Git-Url: http://git.ipfire.org/?a=blobdiff_plain;f=perl-Authen-SASL%2Fpatches%2FAuthen-SASL-RT85294-Fix-WRITE.patch;fp=perl-Authen-SASL%2Fpatches%2FAuthen-SASL-RT85294-Fix-WRITE.patch;h=0093ad22e5333ff04380fcb5808cf1f74df4cb11;hb=f192186c76356d9127f12e9a7074fa638cd497c0;hp=0000000000000000000000000000000000000000;hpb=f766f0d337331f09ae44aeabc9ab32f70942ca5d;p=people%2Fstevee%2Fipfire-3.x.git

diff --git a/perl-Authen-SASL/patches/Authen-SASL-RT85294-Fix-WRITE.patch b/perl-Authen-SASL/patches/Authen-SASL-RT85294-Fix-WRITE.patch
new file mode 100644
index 000000000..0093ad22e
--- /dev/null
+++ b/perl-Authen-SASL/patches/Authen-SASL-RT85294-Fix-WRITE.patch
@@ -0,0 +1,13 @@
+diff -up Authen-SASL-2.16/lib/Authen/SASL/Perl.pm.orig Authen-SASL-2.16/lib/Authen/SASL/Perl.pm
+--- Authen-SASL-2.16/lib/Authen/SASL/Perl.pm.orig	2012-09-04 18:00:31.000000000 +0200
++++ Authen-SASL-2.16/lib/Authen/SASL/Perl.pm	2014-06-04 09:51:34.654310724 +0200
+@@ -323,6 +323,9 @@ sub securesocket {
+ 
+     my $fh = $self->{fh};
+ 
++    # Fix for BZ#965739, RT#85294
++    $len = length($_[1]) if $len > length($_[1]);
++
+     # put on wire in peer-sized chunks
+     my $bsz = $self->{sndbufsz};
+     while ($len > 0) {