Tree - rpms/perl-Authen-SASL - CentOS Git server

Blob History Raw

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