diff options
Diffstat (limited to 'bin/MakeProjectCreator/modules/GNUACEProjectCreator.pm')
-rw-r--r-- | bin/MakeProjectCreator/modules/GNUACEProjectCreator.pm | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/bin/MakeProjectCreator/modules/GNUACEProjectCreator.pm b/bin/MakeProjectCreator/modules/GNUACEProjectCreator.pm index 4445ef417ec..d716f565e40 100644 --- a/bin/MakeProjectCreator/modules/GNUACEProjectCreator.pm +++ b/bin/MakeProjectCreator/modules/GNUACEProjectCreator.pm @@ -52,6 +52,7 @@ sub fill_value { my($self) = shift; my($name) = shift; my($value) = undef; + my($names) = $self->{'source_files'}; if ($name eq 'mpc_files') { my(@mpc_files) = $self->list_mpc_files($self->get_inheritance_tree()); @@ -59,10 +60,15 @@ sub fill_value { } elsif ($name eq 'vpath') { my(%vpath) = (); - foreach my $item ($self->get_component_list('source_files')) { - my($dname) = $self->relative($self->mpc_dirname($item)); - if ($dname ne '.') { - $vpath{$dname} = 1; + foreach my $name (keys %$names) { + my($comps) = $$names{$name}; + foreach my $key (keys %$comps) { + foreach my $item (@{$$comps{$key}}) { + my($dname) = $self->relative($self->mpc_dirname($item)); + if ($dname ne '.') { + $vpath{$dname} = 1; + } + } } } my($str) = join(':', keys %vpath); |