diff --git a/Sub-Quote-2.006008.tar.gz b/Sub-Quote-2.006008.tar.gz
deleted file mode 100644
index bdf687636dc0ff090c3070bef5be62fec7ac1cd1..0000000000000000000000000000000000000000
Binary files a/Sub-Quote-2.006008.tar.gz and /dev/null differ
diff --git a/Sub-Quote-2.006009.tar.gz b/Sub-Quote-2.006009.tar.gz
new file mode 100644
index 0000000000000000000000000000000000000000..7f59452c0ba8a5b6b8612cff7dbe4f9817dc1272
Binary files /dev/null and b/Sub-Quote-2.006009.tar.gz differ
diff --git a/perl-Sub-Quote.spec b/perl-Sub-Quote.spec
index 54fb30046fc9167533047aea35658123e5e674ec..58870b710b78329ec1f46e6394a1a29d7e625258 100644
--- a/perl-Sub-Quote.spec
+++ b/perl-Sub-Quote.spec
@@ -1,5 +1,5 @@
 Name:           perl-Sub-Quote
-Version:        2.006008
+Version:        2.006009
 Release:        1
 Summary:        Efficient generation of subroutines via string eval
 License:        GPL-1.0-or-later OR Artistic-1.0-Perl
@@ -9,7 +9,7 @@ BuildArch:      noarch
 
 BuildRequires:  perl-generators, perl-interpreter, perl(:VERSION) >= 5.6.0
 BuildRequires:  perl(ExtUtils::MakeMaker) >= 6.76, perl(strict), perl(warnings)
-BuildRequires:  perl(B), perl(Carp), perl(Exporter), perl(Scalar::Util)
+BuildRequires:  perl(Carp), perl(Exporter), perl(Scalar::Util)
 BuildRequires:  perl(Config), perl(constant), perl(Data::Dumper), perl(File::Spec)
 BuildRequires:  perl(lib), perl(overload), perl(POSIX), perl(Test::Builder)
 BuildRequires:  perl(Test::Fatal) >= 0.003, perl(Test::More) >= 0.94, perl(threads)
@@ -47,6 +47,11 @@ make test
 %{_mandir}/man*/*
 
 %changelog
+* Fri Aug 22 2025 xieyanlong <xieyanlong@kylinos.cn> - 2.006009-1
+- fix new warning for bare \ in qw()
+- fix documentation for hintshash option
+- fix author tests with newer perl versions
+
 * Tue Aug 05 2025  openeuler_bot <infra@openeuler.sh> - 2.006008-1
 - drop Test::Fatal prereq (version:2.006008).