diff --git a/Build.PL b/Build.PL index 6e4c553..06e57ab 100644 --- a/Build.PL +++ b/Build.PL @@ -61,6 +61,7 @@ my $build = Module::Build->new( 'Carp' => 0, 'IO::File' => 0, 'Hash::Merge' => 0, + 'Clone' => 0, }, script_files => [ 'bin/stow', 'bin/chkstow' ], all_from => 'lib/Stow.pm.in', diff --git a/META.json b/META.json index d7cdd28..1a9e06f 100644 --- a/META.json +++ b/META.json @@ -29,6 +29,7 @@ "runtime" : { "requires" : { "Carp" : "0", + "Clone" : "0", "Hash::Merge" : "0", "IO::File" : "0", "perl" : "5.006" diff --git a/META.yml b/META.yml index ad00b1b..0215317 100644 --- a/META.yml +++ b/META.yml @@ -24,6 +24,7 @@ provides: version: v2.3.0 requires: Carp: '0' + Clone: '0' Hash::Merge: '0' IO::File: '0' perl: '5.006' diff --git a/Makefile.am b/Makefile.am index 9917653..a6311d4 100644 --- a/Makefile.am +++ b/Makefile.am @@ -105,7 +105,7 @@ MAINTAINERCLEANFILES = $(dist_man_MANS) $(HTML) $(PDF) ChangeLog clean-local: -rm -rf $(TESTS_OUT) maintainer-clean-local: - -rm -rf doc/manual-split + -rm -rf doc/manual-split cover_db # this is more explicit and reliable than the config file trick edit = sed -e 's|[@]PERL[@]|$(PERL)|g' \ diff --git a/bin/stow.in b/bin/stow.in index 1699bc0..355bbc9 100755 --- a/bin/stow.in +++ b/bin/stow.in @@ -462,7 +462,10 @@ use Getopt::Long qw(GetOptionsFromArray); use Stow; use Stow::Util qw(parent error); -use Hash::Merge qw( merge ); +# Need to avoid Storable backend, since it can't deal with regexps: +# https://rt.perl.org/Public/Bug/Display.html?id=50608 +use Clone::Choose qw(:Clone); +use Hash::Merge qw(merge); my $ProgramName = $0; $ProgramName =~ s{.*/}{};