diff --git a/gendep.macros b/gendep.macros
index 371bead..0925cc3 100644
--- a/gendep.macros
+++ b/gendep.macros
@@ -1858,6 +1858,24 @@ Requires: perl(warnings::register) \
 Provides: perl(Text::Tabs) = 2013.0523 \
 Provides: perl(Text::Wrap) = 2013.0523 \
 %{nil}
+%global gendep_perl_Tie \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(Tie::Handle) \
+Requires: perl(Tie::StdHandle) \
+Requires: perl(integer) \
+Requires: perl(strict) \
+Provides: perl(Tie::Array) = 1.07 \
+Provides: perl(Tie::ExtraHash) \
+Provides: perl(Tie::Handle) = 4.2 \
+Provides: perl(Tie::Hash) = 1.05 \
+Provides: perl(Tie::Scalar) = 1.04 \
+Provides: perl(Tie::StdArray) \
+Provides: perl(Tie::StdHandle) = 4.6 \
+Provides: perl(Tie::StdHash) \
+Provides: perl(Tie::StdScalar) \
+Provides: perl(Tie::SubstrHash) = 1.00 \
+%{nil}
 %global gendep_perl_Tie_File \
 Requires: perl(:VERSION) >= 5.5.0 \
 Requires: perl(Carp) \
@@ -2085,8 +2103,6 @@ Requires: perl(I18N::LangTags) \
 Requires: perl(IO::File) \
 Requires: perl(Symbol) \
 Requires: perl(Text::Tabs) \
-Requires: perl(Tie::Handle) \
-Requires: perl(Tie::StdHandle) \
 Requires: perl(Unicode::Normalize) \
 Requires: perl(charnames) \
 Requires: perl(feature) \
@@ -2120,17 +2136,6 @@ Provides: perl(Pod::Functions) = 1.13 \
 Provides: perl(SelectSaver) = 1.02 \
 Provides: perl(Symbol) = 1.08 \
 Provides: perl(Thread) = 3.04 \
-Provides: perl(Tie::Array) = 1.07 \
-Provides: perl(Tie::ExtraHash) \
-Provides: perl(Tie::Handle) = 4.2 \
-Provides: perl(Tie::Hash) \
-Provides: perl(Tie::Hash) = 1.05 \
-Provides: perl(Tie::Scalar) = 1.04 \
-Provides: perl(Tie::StdArray) \
-Provides: perl(Tie::StdHandle) = 4.6 \
-Provides: perl(Tie::StdHash) \
-Provides: perl(Tie::StdScalar) \
-Provides: perl(Tie::SubstrHash) = 1.00 \
 Provides: perl(UNIVERSAL) = 1.13 \
 Provides: perl(Unicode::UCD) = 0.72 \
 Provides: perl(deprecate) = 0.04 \
diff --git a/perl.spec b/perl.spec
index c5c2ede..8f0b4dc 100644
--- a/perl.spec
+++ b/perl.spec
@@ -431,7 +431,7 @@ Requires:       perl-Text-Abbrev, perl-Text-Balanced, perl-Text-ParseWords,
 Requires:       perl-Text-Tabs+Wrap,
 Requires:       perl-Thread-Queue, perl-Thread-Semaphore,
 Requires:       perl-threads, perl-threads-shared,
-Requires:       perl-Tie-File, perl-Tie-Memoize, perl-Tie-RefHash,
+Requires:       perl-Tie, perl-Tie-File, perl-Tie-Memoize, perl-Tie-RefHash,
 Requires:       perl-Time, perl-Time-HiRes, perl-Time-Local, perl-Time-Piece,
 Requires:       perl-Unicode-Collate, perl-Unicode-Normalize, perl-User-pwent,
 Requires:       perl-version,
@@ -496,6 +496,9 @@ Obsoletes:      perl-suidperl <= 4:5.12.2
 # bug #1464903.
 Obsoletes:      perl < 4:5.26.0-395
 
+# Remove private redefinitions
+# DBM_Filter redefines Tie::Hash, but does load it.
+%global __provides_exclude %{?__provides_exclude:%__provides_exclude|}^perl\\(Tie::Hash\\)$
 
 %description interpreter
 This is a Perl interpreter as a standalone executable %{_bindir}/perl
@@ -3406,6 +3409,23 @@ This module provides thread-safe FIFO queues that can be accessed safely by
 any number of threads.
 %endif
 
+%package Tie
+Summary:        Base classes for tying variables
+License:        GPL+ or Artistic
+Epoch:          0
+# Version from Tie::StdHandle
+Version:        4.6
+BuildArch:      noarch
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Tie
+%endif
+Conflicts:      perl < 4:5.30.1-451
+
+%description Tie
+These are Perl modules that helps connecting classes with arrays, hashes,
+handles, and scalars.
+
 %package Tie-File
 Summary:        Access the lines of a disk file via a Perl array
 License:        GPLv2+ or Artistic
@@ -5169,6 +5189,21 @@ popd
 %exclude %{privlib}/Thread/Semaphore.pm
 %exclude %{_mandir}/man3/Thread::Semaphore.*
 
+# Tie
+%exclude %dir %{privlib}/Tie
+%exclude %{privlib}/Tie/Array.pm
+%exclude %{privlib}/Tie/Handle.pm
+%exclude %{privlib}/Tie/Hash.pm
+%exclude %{privlib}/Tie/Scalar.pm
+%exclude %{privlib}/Tie/StdHandle.pm
+%exclude %{privlib}/Tie/SubstrHash.pm
+%exclude %{_mandir}/man3/Tie::Array.*
+%exclude %{_mandir}/man3/Tie::Handle.*
+%exclude %{_mandir}/man3/Tie::Hash.*
+%exclude %{_mandir}/man3/Tie::Scalar.*
+%exclude %{_mandir}/man3/Tie::StdHandle.*
+%exclude %{_mandir}/man3/Tie::SubstrHash.*
+
 # Tie-File
 %exclude %{privlib}/Tie/File.pm
 %exclude %{_mandir}/man3/Tie::File.*
@@ -6523,6 +6558,21 @@ popd
 %{privlib}/Thread/Semaphore.pm
 %{_mandir}/man3/Thread::Semaphore.*
 
+%files Tie
+%dir %{privlib}/Tie
+%{privlib}/Tie/Array.pm
+%{privlib}/Tie/Handle.pm
+%{privlib}/Tie/Hash.pm
+%{privlib}/Tie/Scalar.pm
+%{privlib}/Tie/StdHandle.pm
+%{privlib}/Tie/SubstrHash.pm
+%{_mandir}/man3/Tie::Array.*
+%{_mandir}/man3/Tie::Handle.*
+%{_mandir}/man3/Tie::Hash.*
+%{_mandir}/man3/Tie::Scalar.*
+%{_mandir}/man3/Tie::StdHandle.*
+%{_mandir}/man3/Tie::SubstrHash.*
+
 %files Tie-File
 %dir %{privlib}/Tie
 %{privlib}/Tie/File.pm
@@ -6677,6 +6727,7 @@ popd
 - Subpackage Net::*ent modules into perl-Net
 - Subpackage User::* modules into perl-User-pwent
 - Subpackage Time
+- Subpackage base Tie::* modules into perl-Tie
 
 * Wed Jan 29 2020 Fedora Release Engineering <releng@fedoraproject.org> - 4:5.30.1-450
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_32_Mass_Rebuild