diff --git a/Authen-SASL-RT85294-Fix-WRITE.patch b/Authen-SASL-RT85294-Fix-WRITE.patch
new file mode 100644
index 0000000..0093ad2
--- /dev/null
+++ b/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/perl-Authen-SASL.spec b/perl-Authen-SASL.spec
index eae1a83..5b2924d 100644
--- a/perl-Authen-SASL.spec
+++ b/perl-Authen-SASL.spec
@@ -1,12 +1,15 @@
 Name:           perl-Authen-SASL
 Version:        2.16
-Release:        1%{?dist}
+Release:        2%{?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
+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 -c a-x example_pl
 
@@ -50,6 +54,9 @@ rm -rf $RPM_BUILD_ROOT
 %{_mandir}/man3/*
 
 %changelog
+* Wed Jun 04 2014 Jitka Plesnikova <jplesnik@redhat.com> - 2.16-2
+- Fixed SASL and GSSAPI error (RT#85294)
+
 * Tue Oct  1 2013 Paul Howarth <paul@city-fan.org> - 2.16-1
 - Update to 2.16
   - SASL.pod: fix typo