File tree Expand file tree Collapse file tree 2 files changed +17
-4
lines changed Expand file tree Collapse file tree 2 files changed +17
-4
lines changed Original file line number Diff line number Diff line change @@ -756,10 +756,7 @@ sub ACTION_config_data {
756756 }
757757
758758 sub array_properties {
759- for (shift -> _mb_classes) {
760- return @{$additive_properties {$_ }-> {ARRAY }}
761- if exists $additive_properties {$_ }-> {ARRAY };
762- }
759+ map { exists $additive_properties {$_ }-> {ARRAY } ? @{$additive_properties {$_ }-> {ARRAY }} : () } shift -> _mb_classes;
763760 }
764761
765762 sub hash_properties {
Original file line number Diff line number Diff line change 1+ # !/usr/bin/perl -w
2+
3+ use strict;
4+ use lib ' t/lib' ;
5+ use MBTest tests => 1;
6+
7+ blib_load ' Module::Build' ;
8+
9+ ADDPROP: {
10+ package My::Build::Prop ;
11+ use base ' Module::Build' ;
12+ __PACKAGE__ -> add_property( ' list_property' => []);
13+ }
14+
15+ ok grep { $_ eq ' bundle_inc' } My::Build::Prop-> array_properties, " has bundle_inc even after adding another array property" ;
16+
You can’t perform that action at this time.
0 commit comments