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

Use Clone backend for Hash::Merge, not Storable

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',

META.json

@@ -29,6 +29,7 @@
       "runtime" : {
          "requires" : {
             "Carp" : "0",
+            "Clone" : "0",
             "Hash::Merge" : "0",
             "IO::File" : "0",
             "perl" : "5.006"

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'

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'       \

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