diff --git a/Update-File-Find-Rule.patch b/Update-File-Find-Rule.patch
new file mode 100644
index 0000000000000000000000000000000000000000..a4e34ddefab3eb250e81e423b53a25e24b9c5303
--- /dev/null
+++ b/Update-File-Find-Rule.patch
@@ -0,0 +1,27 @@
+From ec6d5950cfcbeb22797841eceaad3a0db92d54d7 Mon Sep 17 00:00:00 2001
+From: guoxiaoqi <guoxiaoqi2@huawei.com>
+Date: Mon, 17 May 2021 15:17:22 +0800
+Subject: [PATCH] Update File Find Rule
+Update file find rule in 03_no_index_t, to fix error of checking generated file list.
+
+Signed-off-by: guoxiaoqi <guoxiaoqi2@huawei.com>
+---
+ t/03_no_index.t | 2 ++
+ 1 file changed, 2 insertions(+)
+
+diff --git a/t/03_no_index.t b/t/03_no_index.t
+index be0a3bb..b15fe78 100644
+--- a/t/03_no_index.t
++++ b/t/03_no_index.t
+@@ -38,6 +38,8 @@ SCOPE: {
+                         MYMETA.json
+ 		};
+ 		my @files = sort grep {
++                        ! /^(debug|elf).*\.list/
++                        and
+ 			! /^debian\b/
+ 			and
+ 			! /(?:^|\W)\.\w/
+-- 
+1.8.3.1
+
diff --git a/perl-File-Find-Rule-Perl.spec b/perl-File-Find-Rule-Perl.spec
index e3e38c17d1828151761df98216e73a093f8bb590..a5afe145306be8503c6b58548b16feadd73df574 100644
--- a/perl-File-Find-Rule-Perl.spec
+++ b/perl-File-Find-Rule-Perl.spec
@@ -1,12 +1,13 @@
 %global _empty_manifest_terminate_build 0
 Name:           perl-File-Find-Rule-Perl
 Version:        1.15
-Release:        1
+Release:        2
 Summary:        Common rules for searching for Perl things
 License:        GPL+ or Artistic
 Group:          Development/Libraries
 URL:            http://search.cpan.org/dist/File-Find-Rule-Perl/
 Source0:        http://www.cpan.org/authors/id/E/ET/ETHER/File-Find-Rule-Perl-%{version}.tar.gz
+Patch0:         Update-File-Find-Rule.patch
 BuildArch:      noarch
 BuildRequires:  perl >= 0:5.006
 BuildRequires:  perl-generators
@@ -33,7 +34,7 @@ I write a lot of things that muck with Perl files. And it always annoyed
 me that finding "perl files" requires a moderately complex
 File::Find::Rule pattern.
 %prep
-%setup -q -n File-Find-Rule-Perl-%{version}
+%autosetup -n File-Find-Rule-Perl-%{version} -p1
 %build
 export PERL_MM_OPT=""
 %{__perl} Makefile.PL INSTALLDIRS=vendor
@@ -80,5 +81,8 @@ rm -rf $RPM_BUILD_ROOT
 %{_mandir}/*
 
 %changelog
+* Mon May 17 2021 guoxiaoqi <guoxiaoqi2@huawei.com> - 1.15-2
+- Update file find rule to solve test failure
+
 * Wed Aug 12 2020 weidong <weidong@uniontech.com> 1.15-1
 - Initial release for OpenEuler