diff options
author | pierre <none@none> | 2006-04-05 15:35:09 +0000 |
---|---|---|
committer | pierre <none@none> | 2006-04-05 15:35:09 +0000 |
commit | 0b6804ee481a635e192f47ac811197e96fa05ecd (patch) | |
tree | 6b27a42482c143d2b70fb1157e55e847838f7318 /src/bdftogd | |
parent | 3d209b2ed96d2386b70cba65aaec6755654abc60 (diff) | |
download | libgd-0b6804ee481a635e192f47ac811197e96fa05ecd.tar.gz |
- sync to 1.5.0GD_1_5_0
Diffstat (limited to 'src/bdftogd')
-rwxr-xr-x | src/bdftogd | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/bdftogd b/src/bdftogd index 97d4754..a726b4a 100755 --- a/src/bdftogd +++ b/src/bdftogd @@ -136,22 +136,22 @@ $info char ${gdname}Data[] = { EOF -my($i); +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"; - my($line); + my ($line); for $line (0 .. $height - 1) { print FILEC join ',', split(//, substr($data[$i], $line * $width, $width)), "\n"; } print FILEC "\n"; next; - my($line); - for $line (0 .. $height - 1) + + for my $line (0 .. $height - 1) { print substr($data[$i], $line * $width, $width), "\n"; } } |