- sync to 1.4.0GD_1_4_0

1 files changed, 6 insertions, 4 deletions

diff --git a/src/bdftogd b/src/bdftogd
index adf34cf..97d4754 100755
--- a/src/bdftogd
+++ b/src/bdftogd
@@ -136,20 +136,22 @@ $info
 char ${gdname}Data[] = {
 EOF
 
-for my $i (0 .. 255)
+my($i);
+for $i (0 .. 255)
 	{
 	$data[$i] = '' unless defined $data[$i];
 	$data[$i] = '0' x ($width * $height - length $data[$i]) . $data[$i];
 	
 	print FILEC "/* Char $i */\n";
-	for my $line (0 .. $height - 1)
+	my($line);
+	for $line (0 .. $height - 1)
 		{ print FILEC join ',', split(//, substr($data[$i], $line * $width, $width)), "\n"; }
 
 	print FILEC "\n";
 
 	next;
-	
-	for my $line (0 .. $height - 1)
+	my($line);	
+	for $line (0 .. $height - 1)
 		{ print substr($data[$i], $line * $width, $width), "\n"; }
 	}