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 @@ -763,10 +763,7 @@ sub ACTION_config_data {
763763 }
764764
765765 sub hash_properties {
766- for (shift -> _mb_classes) {
767- return @{$additive_properties {$_ }-> {' HASH' }}
768- if exists $additive_properties {$_ }-> {' HASH' };
769- }
766+ map { exists $additive_properties {$_ }-> {HASH } ? @{$additive_properties {$_ }-> {HASH }} : () } shift -> _mb_classes;
770767 }
771768
772769 sub add_property {
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( ' hash_property' => {});
13+ }
14+
15+ ok grep { $_ eq ' install_path' } My::Build::Prop-> hash_properties, " has install_path even after adding another hash property" ;
16+
You can’t perform that action at this time.
0 commit comments