sma backtracking (smart will be later ;)

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

diff --git a/lib/DX/Utils.pm b/lib/DX/Utils.pm
index fe1990c..74ff1e7 100644 (file)
--- a/lib/DX/Utils.pm
+++ b/lib/DX/Utils.pm
@@ -69,7 +69,7 @@ sub format_deps {
 sub compact_deps {
   my ($deps) = @_;
   my @sorted = sort_by { join "\0", @{$_->[0]} }
-                 map { [ [ join("\0", @{$_}[1..$#$_]), $${$_->[0]} ], $_ ] } @$deps;
+                 map { [ [ join("\0", @{$_}[1..$#$_], ''), $${$_->[0]} ], $_ ] } @$deps;
   my @compacted;
   while (my $s = shift @sorted) {
     my ($path, $type) = @{$s->[0]};