member_at starting to work

[scpubgit/DX.git] / lib / DX / DependencyMap.pm

diff --git a/lib/DX/DependencyMap.pm b/lib/DX/DependencyMap.pm
index 1b55b93..1d58d1a 100644 (file)
--- a/lib/DX/DependencyMap.pm
+++ b/lib/DX/DependencyMap.pm
@@ -78,7 +78,7 @@ sub _mangle_deps {
 sub _expand_deps {
   my ($self, $deps) = @_;
   my @exp;
-  DEP: foreach my $dep (@$deps) {
+  DEP: foreach my $dep (map @{$_}[1..$#$_], @$deps) {
     my ($type, @path) = @$dep;
     push @exp, [
       $type,