fix problem where all lines are suddenly dashed

by moving the variables into a different scope
13 years ago · 1574f6203e
parent ef3058d2c3
commit 1574f6203e
1 changed files with 1 additions and 1 deletions
--- a/gen_ladder.pl
+++ b/gen_ladder.pl
@ -137,9 +137,9 @@ sub entity_left_of($$)
 sub gen_edges()
 {
 	my $count = 1;
-	my $l; my $r; my $dir; my $attr = "";

 	foreach my $m (@cfg_messages) {
+		my $l; my $r; my $dir; my $attr = "";
 		if (entity_left_of($$m{'src'}, $$m{'dst'})) {
 			$l = $$m{'src'};
 			$r = $$m{'dst'};