diff --git a/perl-File-Path.spec b/perl-File-Path.spec
index f613245..7328bf0 100644
--- a/perl-File-Path.spec
+++ b/perl-File-Path.spec
@@ -1,6 +1,6 @@
 Name:           perl-File-Path
 Version:        2.16
-Release:        3
+Release:        4
 Summary:        Create or remove directory trees
 License:        GPL+ or Artistic
 URL:            https://metacpan.org/pod/File::Path
@@ -32,6 +32,7 @@ perl Makefile.PL INSTALLDIRS=vendor NO_PERLLOCAL=1 NO_PACKLIST=1
 
 %install
 %make_install
+%{_fixperms} %{buildroot}/*
 
 %check
 make test
@@ -47,6 +48,9 @@ make test
 %{_mandir}/man3/*
 
 %changelog
+* Sat Dec 21 2019 openEuler Buildteam <buildteam@openeuler.org> - 2.16-4
+- Change the mod of file
+
 * Sat Aug 31 2019 openEuler Buildteam <buildteam@openeuler.org> - 2.16-3
 - rebuild package