From 00c92076d906f9dab665ac547ed9fca6fd7dbc67 Mon Sep 17 00:00:00 2001
From: Adam Spiers <stow@adamspiers.org>
Date: Fri, 28 Jun 2019 21:11:58 +0100
Subject: [PATCH] Use Clone backend for Hash::Merge, not Storable

Need to avoid Storable backend, since it can't deal with regexps:

    https://rt.perl.org/Public/Bug/Display.html?id=50608

This should fix the Docker builds.
---
 Build.PL    | 1 +
 META.json   | 1 +
 META.yml    | 1 +
 bin/stow.in | 5 ++++-
 4 files changed, 7 insertions(+), 1 deletion(-)

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