diff --git a/Authen-SASL-2.16.tar.gz b/Authen-SASL-2.16.tar.gz
deleted file mode 100644
index fe41672..0000000
Binary files a/Authen-SASL-2.16.tar.gz and /dev/null differ
diff --git a/Authen-SASL-2.1700.tar.gz b/Authen-SASL-2.1700.tar.gz
new file mode 100644
index 0000000..c82b884
Binary files /dev/null and b/Authen-SASL-2.1700.tar.gz differ
diff --git a/Authen-SASL-RT85294-Fix-WRITE.patch b/Authen-SASL-RT85294-Fix-WRITE.patch
deleted file mode 100644
index 0093ad2..0000000
--- a/Authen-SASL-RT85294-Fix-WRITE.patch
+++ /dev/null
@@ -1,13 +0,0 @@
-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 a8f116f..cc51147 100644
--- a/perl-Authen-SASL.spec
+++ b/perl-Authen-SASL.spec
@@ -1,15 +1,14 @@
 Name:           perl-Authen-SASL
-Version:        2.16
-Release:        16
+Version:        2.1700
+Release:        1
 Summary:        Perl's SASL authentication framework
-License:        GPL+ or Artistic
+License:        GPL-1.0-or-later OR Artistic-1.0-Perl
 URL:            https://metacpan.org/release/Authen-SASL
-Source0:        https://cpan.metacpan.org/authors/id/G/GB/GBARR/Authen-SASL-%{version}.tar.gz
-Patch0001:      Authen-SASL-RT85294-Fix-WRITE.patch
+Source0:        https://cpan.metacpan.org/authors/id/E/EH/EHUELS/Authen-SASL-%{version}.tar.gz
 BuildArch:      noarch
 
-BuildRequires:  coreutils findutils make perl-interpreter perl-generators perl(inc::Module::Install)
-BuildRequires:  perl(Module::Install::Makefile) perl(Module::Install::Metadata) perl(Module::Install::WriteAll)
+BuildRequires:  coreutils findutils make perl-interpreter perl-generators
+BuildRequires:  perl(:VERSION) >= 5.6 perl(ExtUtils::MakeMaker)
 BuildRequires:  perl(strict) perl(warnings) sed perl(bytes) perl(Carp) perl(Digest::HMAC_MD5) perl(Digest::MD5)
 BuildRequires:  perl(GSSAPI) perl(Tie::Handle) perl(vars) perl(FindBin) perl(Test::More)
 Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
@@ -27,8 +26,6 @@ Documentation for perl-Authen-SASL.
 %prep
 %autosetup -n Authen-SASL-%{version} -p1
 
-rm -r inc
-sed -i -e '/^inc\// d' MANIFEST
 chmod -c a-x example_pl
 
 %build
@@ -47,9 +44,12 @@ make test
 %{perl_vendorlib}/*
 
 %files help
-%doc api.txt Changes example_pl
+%doc api.txt Changes example_pl README
 %{_mandir}/man3/*
 
 %changelog
+* Tue Feb 06 2024 wangkai <13474090681@163.com> - 2.1700-1
+- Update to 2.1700
+
 * Tue Nov 26 2019 fengbing <fengbing7@huawei.com> - 2.16-16
 - Package init