Modified: contrib/port-depgraph/port-depgraph (69194 => 69195)
--- contrib/port-depgraph/port-depgraph 2010-06-28 09:14:20 UTC (rev 69194)
+++ contrib/port-depgraph/port-depgraph 2010-06-28 09:34:29 UTC (rev 69195)
@@ -106,8 +106,14 @@
}
}
+ set portSpec ${portName}
+ foreach {variantName variantFlag} ${variantInfo} {
+ append portSpec { } ${variantFlag}${variantName}
+ }
+ set caption [format {Dependencies of %s} ${portSpec}]
+
puts "strict digraph \"$portName\" \{"
- puts [format {graph [label="%s"]} [format {Dependencies of %s} $portName]]
+ puts [format {graph [label="%s"]} ${caption}]
print_dependencies portDependencies $portName $verbose