Clifford Wolf:

scripts/Check-Deps-2

@@ -156,10 +156,21 @@ for $iteration (1..99) {
 	print F "digraph \"Cross-Dependencies Graph\" {\n";
 	print F "	Package_X -> Has_X_in_Dep_List;\n";
 	foreach my $p (sort keys %crossdeps) {
-		foreach my $d (sort keys %{$crossdeps{$p}}) {
+		foreach my $d (sort keys %{$crossdeps{$p}})
+		{
+			my $pt = `gawk '/^.TIMESTAMP/ && !/ERROR/ { print \$2; exit; }' package/*/$p/*.cache 2> /dev/null`;
+			my $dt = `gawk '/^.TIMESTAMP/ && !/ERROR/ { print \$2; exit; }' package/*/$d/*.cache 2> /dev/null`;
+			chomp $pt; chomp $dt;
+
 			my $p_ = $p; $p_ =~ s/[^a-z0-9]/_/g;
 			my $d_ = $d; $d_ =~ s/[^a-z0-9]/_/g;
-			print F "\t$p_ -> $d_;\n";
+
+			if ( $pt eq "" || $dt eq "" || $pt < $dt ) {
+				print F "\t$p_ -> $d_;\n";
+			} else {
+				print F "#\t$p = ($pt), $d = ($dt)\n";
+				print F "\t$p_ -> $d_ [color=red];\n";
+			}
 		}
 	}
 	print F "}\n";