From 92d7c476fb251dea9ce6aee2f800563fb9e5bcd6 Mon Sep 17 00:00:00 2001 From: Clifford Wolf Date: Mon, 13 Jun 2005 14:42:47 +0000 Subject: [PATCH] Clifford Wolf: Added 'likely wrong dep' auto-detection to Check-Deps-2 git-svn-id: http://www.rocklinux.org/svn/rock-linux/trunk@6117 c5f82cb5-29bc-0310-9cd0-bff59a50e3bc --- scripts/Check-Deps-2 | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/scripts/Check-Deps-2 b/scripts/Check-Deps-2 index ed5adac76..1cd3ebe3f 100755 --- a/scripts/Check-Deps-2 +++ b/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";