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.
This commit is contained in:
Adam Spiers 2019-06-28 21:11:58 +01:00
parent 089151c116
commit 00c92076d9
4 changed files with 7 additions and 1 deletions

View file

@ -61,6 +61,7 @@ my $build = Module::Build->new(
'Carp' => 0, 'Carp' => 0,
'IO::File' => 0, 'IO::File' => 0,
'Hash::Merge' => 0, 'Hash::Merge' => 0,
'Clone' => 0,
}, },
script_files => [ 'bin/stow', 'bin/chkstow' ], script_files => [ 'bin/stow', 'bin/chkstow' ],
all_from => 'lib/Stow.pm.in', all_from => 'lib/Stow.pm.in',

View file

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

View file

@ -24,6 +24,7 @@ provides:
version: v2.3.0 version: v2.3.0
requires: requires:
Carp: '0' Carp: '0'
Clone: '0'
Hash::Merge: '0' Hash::Merge: '0'
IO::File: '0' IO::File: '0'
perl: '5.006' perl: '5.006'

View file

@ -462,7 +462,10 @@ use Getopt::Long qw(GetOptionsFromArray);
use Stow; use Stow;
use Stow::Util qw(parent error); 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; my $ProgramName = $0;
$ProgramName =~ s{.*/}{}; $ProgramName =~ s{.*/}{};