diff --git a/BibTeX-Parser-1.03-Remove-a-debugging-output-from-BibTeX-Parser-Entry-t.patch b/BibTeX-Parser-1.03-Remove-a-debugging-output-from-BibTeX-Parser-Entry-t.patch
new file mode 100644
index 0000000..c317d38
--- /dev/null
+++ b/BibTeX-Parser-1.03-Remove-a-debugging-output-from-BibTeX-Parser-Entry-t.patch
@@ -0,0 +1,29 @@
+From 34bfd99697b006987fef14590d755d54ca338893 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Tue, 9 Feb 2021 10:41:46 +0100
+Subject: [PATCH] Remove a debugging output from
+ BibTeX::Parser::Entry::to_string()
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ lib/BibTeX/Parser/Entry.pm | 1 -
+ 1 file changed, 1 deletion(-)
+
+diff --git a/lib/BibTeX/Parser/Entry.pm b/lib/BibTeX/Parser/Entry.pm
+index 7297089..f748101 100644
+--- a/lib/BibTeX/Parser/Entry.pm
++++ b/lib/BibTeX/Parser/Entry.pm
+@@ -248,7 +248,6 @@ sub to_string {
+ 	    $type = ucfirst lc $type;
+ 	}
+     }
+-    print STDERR $self->key, "\n";
+     $result .= '@'.$type."{".$self->key.",\n";    
+     foreach my $field (@fields) {
+ 	my $value = $self->field($field);
+-- 
+2.26.2
+
diff --git a/BibTeX-Parser-1.04.tar.gz b/BibTeX-Parser-1.04.tar.gz
new file mode 100644
index 0000000..8649706
Binary files /dev/null and b/BibTeX-Parser-1.04.tar.gz differ
diff --git a/perl-BibTeX-Parser.spec b/perl-BibTeX-Parser.spec
index 163cf80..fe9efbb 100644
--- a/perl-BibTeX-Parser.spec
+++ b/perl-BibTeX-Parser.spec
@@ -1,23 +1,36 @@
 %global _empty_manifest_terminate_build 0
 Name:           perl-BibTeX-Parser
-Version:        1.03
-Release:        2
+Version:        1.04
+Release:        1
 Summary:        BibTeX::Parser Perl module
 License:        Artistic-1.0 or GPL-1.0-or-later
 Group:          Development/Libraries
 URL:            http://search.cpan.org/dist/BibTeX-Parser/
 Source0:        http://www.cpan.org/authors/id/B/BO/BORISV/BibTeX-Parser-%{version}.tar.gz
+# Remove a strayed debugging output, CPAN RT#134350, proposed to the upstream
+Patch0:         BibTeX-Parser-1.03-Remove-a-debugging-output-from-BibTeX-Parser-Entry-t.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 BuildArch:      noarch
 BuildRequires:  perl(ExtUtils::MakeMaker)
 BuildRequires:  perl(File::Spec)
 BuildRequires:  perl(IO::String)
-BuildRequires:  perl(LaTeX::ToUnicode) >= 0.02
+BuildRequires:  perl(LaTeX::ToUnicode) >= 0.11
 BuildRequires:  perl(Test::More) >= 0.88
 BuildRequires:  perl-generators
+BuildRequires:  coreutils
+BuildRequires:  make
+BuildRequires:  perl-interpreter
+BuildRequires:  perl(strict)
+BuildRequires:  perl(warnings)
+BuildRequires:  perl(overload)
+# Tests:
+BuildRequires:  perl(constant)
+BuildRequires:  perl(IO::File)
+BuildRequires:  perl(utf8)
+
 Requires:       perl(File::Spec)
 Requires:       perl(IO::String)
-Requires:       perl(LaTeX::ToUnicode) >= 0.02
+Requires:       perl(LaTeX::ToUnicode) >= 0.11
 Requires:       perl(Test::More)
 Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
 %description
@@ -27,48 +40,55 @@ Summary : BibTeX::Parser Perl module
 Provides: perl-BibTeX-Parser-doc
 %description help
 BibTeX::Parser Perl module
+
 %prep
 %autosetup -n BibTeX-Parser-%{version} -p1
+
+# Remove skipped tests
+for F in t/08-parse_large.t t/release-pod-*.t \
+; do
+    rm "$F"
+    perl -i -ne 'print $_ unless m{^\Q'"$F"'\E}' MANIFEST
+done
+# Correct the permissions
+chmod a+x t/*.t
+
 %build
-export PERL_MM_OPT=""
-%{__perl} Makefile.PL INSTALLDIRS=vendor
-make %{?_smp_mflags}
+perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 NO_PERLLOCAL=1
+%{make_build}
 
 %install
-export PERL_MM_OPT=""
-rm -rf $RPM_BUILD_ROOT
+%{make_install}
+%{_fixperms} %{buildroot}/*
+# Install tests
+mkdir -p %{buildroot}%{_libexecdir}/%{name}
+cp -a t %{buildroot}%{_libexecdir}/%{name}
+cat > %{buildroot}%{_libexecdir}/%{name}/test << 'EOF'
+#!/bin/sh
+cd %{_libexecdir}/%{name} && exec prove -I . -j "$(getconf _NPROCESSORS_ONLN)"
+EOF
+chmod +x %{buildroot}%{_libexecdir}/%{name}/test
 
-make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT
-
-find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} \;
-find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;
-
-%{_fixperms} $RPM_BUILD_ROOT/*
-
-pushd %{buildroot}
-touch filelist.lst
-if [ -d usr/bin ];then
-    find usr/bin -type f -printf "/%h/%f\n" >> filelist.lst
-fi
-if [ -d usr/sbin ];then
-    find usr/bin -type f -printf "/%h/%f\n" >> filelist.lst
-fi
-popd
-mv %{buildroot}/filelist.lst .
 %check
+export HARNESS_OPTIONS=j$(perl -e 'if ($ARGV[0] =~ /.*-j([0-9][0-9]*).*/) {print $1} else {print 1}' -- '%{?_smp_mflags}')
 make test
 
 %clean
 rm -rf $RPM_BUILD_ROOT
 
-%files -f filelist.lst
-%defattr(-,root,root,-)
-%doc Changes dist.ini LICENSE META.json notes README
+%files
+%license LICENSE
+%doc Changes README
 %{perl_vendorlib}/*
+%{_libexecdir}/%{name}
+
 %files help
 %{_mandir}/*
 
 %changelog
+* Mon Sep 11 2023 chenchen <chen_aka_jan@163.com> - 1.04-1
+- Upgrade to version 1.04
+
 * Fri Sep 02 2022 yaoxin <yaoxin30@h-partners.com> - 1.03-2
 - License compliance rectification