diff --git a/perl-constant.spec b/perl-constant.spec
index e8e93fb..3b69c16 100644
--- a/perl-constant.spec
+++ b/perl-constant.spec
@@ -1,13 +1,13 @@
 Name:     perl-constant
-Version:  1.33   
-Release:  420 
-Summary:  Perl pragma to declare constants         
+Version:  1.33
+Release:  421
+Summary:  Perl pragma to declare constants
 License:  GPL+ or Artistic
 URL:      https://metacpan.org/release/constant
 Source0:  https://cpan.metacpan.org/authors/id/R/RJ/RJBS/constant-%{version}.tar.gz
 BuildArch:noarch
 
-BuildRequires:  perl-interpreter perl-generators perl(ExtUtils::MakeMaker) perl(strict) 
+BuildRequires:  perl-interpreter perl-generators perl(ExtUtils::MakeMaker) perl(strict)
 BuildRequires:  perl(Carp) perl(vars) perl(warnings::register)
 BuildRequires:  perl(Test::More) perl(utf8) perl(warnings)
 Requires: perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version)) perl(Carp)
@@ -22,17 +22,18 @@ away if the constant is false.
 %package_help
 
 %prep
-%autosetup -n constant-%{version} -p1 
+%autosetup -n constant-%{version} -p1
 
 %build
 perl Makefile.PL INSTALLDIRS=vendor NO_PERLLOCAL=1 NO_PACKLIST=1
 %make_build
 
 %install
-%make_install 
+%make_install
+%{_fixperms} %{buildroot}/*
 
 %check
-make test 
+make test
 
 %pre
 
@@ -52,7 +53,13 @@ make test
 %{_mandir}/*/*.gz
 
 %changelog
-* Fri Sep 27 2019 openEuler Buildteam <buildteam@openeuler.org> - 1.33-420 
+* Sat Dec 21 2019 openEuler Buildteam <buildteam@openeuler.org> - 1.33-421
+- Type:enhancement
+- ID:NA
+- SUG:NA
+- DESC:change mod of file
+
+* Fri Sep 27 2019 openEuler Buildteam <buildteam@openeuler.org> - 1.33-420
 - Type:enhancement
 - ID:NA
 - SUG:NA