From e8ab8fbf9b504c0fd2f140cc50f90d65439a5e55 Mon Sep 17 00:00:00 2001
From: CentOS Sources <bugs@centos.org>
Date: Oct 22 2014 07:27:45 +0000
Subject: import perl-Authen-SASL-2.15-10.el7


---

diff --git a/SOURCES/Authen-SASL-RT85294-Fix-WRITE.patch b/SOURCES/Authen-SASL-RT85294-Fix-WRITE.patch
new file mode 100644
index 0000000..0093ad2
--- /dev/null
+++ b/SOURCES/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) {
diff --git a/SPECS/perl-Authen-SASL.spec b/SPECS/perl-Authen-SASL.spec
index 2729d4d..8e6f50f 100644
--- a/SPECS/perl-Authen-SASL.spec
+++ b/SPECS/perl-Authen-SASL.spec
@@ -1,12 +1,15 @@
 Name:           perl-Authen-SASL
 Version:        2.15
-Release:        9%{?dist}
+Release:        10%{?dist}
 Summary:        SASL Authentication framework for Perl
 License:        GPL+ or Artistic
 Group:          Development/Libraries
 URL:            http://search.cpan.org/dist/Authen-SASL/
 Source0:        http://www.cpan.org/authors/id/G/GB/GBARR/Authen-SASL-%{version}.tar.gz
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
+# Update the function WRITE to properly handle string which is shorter than
+# provided length, bug #1084010, CPAN RT#85294
+Patch0:         Authen-SASL-RT85294-Fix-WRITE.patch
 BuildArch:      noarch
 BuildRequires:  perl(ExtUtils::MakeMaker)
 BuildRequires:  perl(Carp)
@@ -25,6 +28,7 @@ protocols should be able to share.
 
 %prep
 %setup -q -n Authen-SASL-%{version}
+%patch0 -p1
 
 chmod a-x example_pl
 
@@ -55,6 +59,9 @@ rm -rf $RPM_BUILD_ROOT
 %{_mandir}/man3/*
 
 %changelog
+* Tue Aug 05 2014 Petr Pisar <ppisar@redhat.com> - 2.15-10
+- Fix SASL and GSSAPI error (bug #1084010)
+
 * Fri Dec 27 2013 Daniel Mach <dmach@redhat.com> - 2.15-9
 - Mass rebuild 2013-12-27
 
@@ -128,7 +135,7 @@ rm -rf $RPM_BUILD_ROOT
 * Tue Apr 26 2005 Jose Pedro Oliveira <jpo at di.uminho.pt> - 2.09-2
 - Update to 2.09.
 
-* Fri Apr  7 2005 Michael Schwendt <mschwendt[AT]users.sf.net>
+* Fri Apr  8 2005 Michael Schwendt <mschwendt[AT]users.sf.net>
 - rebuilt
 
 * Mon Apr  4 2005 Ville Skyttä <ville.skytta at iki.fi> - 2.08-1