Select Code to Download

--- Graph/Writer/Dot.pm_original    Fri Jun 14 01:54:05 2002
+++ Graph/Writer/Dot.pm    Mon Nov 15 10:31:35 2004
...
     %attributes = $graph->get_attributes($from, $to);
     @keys = grep(exists $attributes{$_}, @{$valid_attributes{'edge'}}
+);
     if (@keys > 0)

#!/usr/bin/perl
use warnings 'all';
...
foreach my $area (@areas) {
  $writer->write_graph($graph{$area}, "$area.dot");
}