Skip to content

Commit

Permalink
Run perltidy again
Browse files Browse the repository at this point in the history
Signed-off-by: Stefan Hermes <[email protected]>
  • Loading branch information
sh85 committed Jul 8, 2020
1 parent 4c4c857 commit 8ea9ff0
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 6 deletions.
4 changes: 2 additions & 2 deletions Sandbox/Tumble.pm
Original file line number Diff line number Diff line change
Expand Up @@ -16,7 +16,7 @@ sub tumble
my ($class, $output_dir) = @_;

my $template_dir = Cwd::abs_path(File::Spec->catdir($FindBin::RealBin, "t"));
my $test_writer = Test::WriteVariants->new();
my $test_writer = Test::WriteVariants->new();
$test_writer->allow_dir_overwrite(1);
$test_writer->allow_file_overwrite(1);

Expand All @@ -42,7 +42,7 @@ sub provider
my $warnings = $context->new_module_use(warnings => ['all']);

# statically generate both at dist authoring stage and decide about tests to run at configure stage
$variants->{Auto} = $context->new($warnings, $strict,);
$variants->{Auto} = $context->new($warnings, $strict,);
$variants->{Clone} = $context->new(
$context->new_env_var(
CLONE_CHOOSE_PREFERRED_BACKEND => "Clone",
Expand Down
8 changes: 4 additions & 4 deletions lib/Hash/Merge.pm
Original file line number Diff line number Diff line change
Expand Up @@ -79,13 +79,13 @@ sub _init

'RETAINMENT_PRECEDENT' => {
'SCALAR' => {
'SCALAR' => sub { [$_[0], $_[1]] },
'ARRAY' => sub { [$_[0], @{$_[1]}] },
'SCALAR' => sub { [$_[0], $_[1]] },
'ARRAY' => sub { [$_[0], @{$_[1]}] },
'HASH' => sub { $weak->_merge_hashes($weak->_hashify($_[0]), $_[1]) },
},
'ARRAY' => {
'SCALAR' => sub { [@{$_[0]}, $_[1]] },
'ARRAY' => sub { [@{$_[0]}, @{$_[1]}] },
'SCALAR' => sub { [@{$_[0]}, $_[1]] },
'ARRAY' => sub { [@{$_[0]}, @{$_[1]}] },
'HASH' => sub { $weak->_merge_hashes($weak->_hashify($_[0]), $_[1]) },
},
'HASH' => {
Expand Down

0 comments on commit 8ea9ff0

Please sign in to comment.