diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-06-26 15:52:01 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-06-26 16:20:58 -0600 |
| commit | 43fdf692884d7d7101eac00b3deb3bf5766fe378 (patch) | |
| tree | 1d594c36e6aacb41af9039f5b9ec16f8cdd6e39a | |
| parent | 9f98c7fe7c73db3c1a2e4d2f78db562655b69cc0 (diff) | |
| download | perl-43fdf692884d7d7101eac00b3deb3bf5766fe378.tar.gz | |
regen/genpacksizetables.pl: Add comment
| -rw-r--r-- | regen/genpacksizetables.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/regen/genpacksizetables.pl b/regen/genpacksizetables.pl index da500fb06b..b9ede5577e 100644 --- a/regen/genpacksizetables.pl +++ b/regen/genpacksizetables.pl @@ -65,6 +65,10 @@ my @lines = grep { } <DATA>; my %asciimap = map {chr $_, chr $_} 0..255; + +# Currently, all things generated by this on EBCDIC are alphabetics, whose +# positions are all the same regardless of code page, so any EBCDIC encoding +# will work; just choose one my %ebcdicmap = map {chr $_, Encode::encode("posix-bc", chr $_)} 0..255; my $fh = open_new('packsizetables.c', '>', { by => $0, from => 'its data'}); |