Use Clone backend for Hash::Merge, not Storable (#58)

Use Clone backend for Hash::Merge, not Storable

5 files changed, 8 insertions, 2 deletions

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{.*/}{};