Skip to content

Commit 16d8e38

Browse files
committed
Fix and require 5.14
Fixed issues breaking on perl 5.14 Bumped minimum version to 5.14. I did this because I cannot install all required dependency on older perls. It *may* work on older perls, but I cannot easily test them, so I am cutting things off at 5.14. If anyone needs this module on older perls I will accept patches.
1 parent a37957d commit 16d8e38

File tree

4 files changed

+7
-1
lines changed

4 files changed

+7
-1
lines changed

Changes

+3
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,8 @@
11
{{$NEXT}}
22

3+
- Fix 5.14
4+
- Bump min perl to 5.14
5+
36
2.000001 2024-07-31 09:30:20-07:00 America/Los_Angeles (TRIAL RELEASE)
47

58
- Fix some test issues

dist.ini

+1-1
Original file line numberDiff line numberDiff line change
@@ -61,7 +61,7 @@ repository.url = https://github.com/Test-More/Test2-Harness/
6161
repository.type = git
6262

6363
[Prereqs]
64-
perl = 5.010000
64+
perl = 5.014000
6565
base = 0
6666
constant = 0
6767
goto::file = 0.005

lib/App/Yath.pm

+1
Original file line numberDiff line numberDiff line change
@@ -484,6 +484,7 @@ sub process_args {
484484
for my $set (['yath', 'plugins', 'App::Yath::Plugin'], ['renderer', 'classes', 'App::Yath::Renderer'], ['resource', 'classes', 'App::Yath::Resource']) {
485485
my ($group, $field, $type) = @$set;
486486
next unless $module->isa($type);
487+
$settings->$group->option($field => {}) unless $settings->$group->$field;
487488
my $args = $settings->$group->$field->{$module} //= [];
488489
next unless $module->can('args_from_settings');
489490
push @$args => $module->args_from_settings(settings => $settings, args => $args, group => $group, field => $field, type => $type);

lib/App/Yath/Plugin/Cover.pm

+2
Original file line numberDiff line numberDiff line change
@@ -126,11 +126,13 @@ sub post_process {
126126
my $cover_class = $cover->class // 'Test2::Plugin::Cover';
127127

128128
eval { require(mod2file($cover_class)); 1 } or die "Could not enable file coverage, could not load '$cover_class': $@";
129+
$tests->option(load_import => {}) unless $tests->load_import;
129130
push @{$tests->load_import->{'@'}} => $cover_class;
130131
$tests->load_import->{$cover_class} = [];
131132

132133
if ($settings->check_group('runner')) {
133134
my $runner = $settings->runner;
135+
$runner->option(preload_early => {}) unless $runner->preload_early;
134136
unshift @{$runner->preload_early->{'@'}} => $cover_class;
135137
$runner->preload_early->{$cover_class} = [disabled => 1];
136138
}

0 commit comments

Comments
 (0)