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..86d5f2a5a8fac397b3f7487dfad62d77857d5033 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
@@ -47,6 +47,9 @@ make test
 %{_mandir}/man*/*
 
 %changelog
+* Fri Aug 22 2025  openeuler_bot <infra@openeuler.sh> - 2.006009-1
+- fix new warning for bare \ in qw() (version:2.006009).
+
 * Tue Aug 05 2025  openeuler_bot <infra@openeuler.sh> - 2.006008-1
 - drop Test::Fatal prereq (version:2.006008).