Make the use of perl more consistent

[openssl.git] / crypto / asn1 / charmap.pl

diff --git a/crypto/asn1/charmap.pl b/crypto/asn1/charmap.pl
index 2875c5986728c917875d5d0852b65cf7a56a0bb4..878504f9c37ae6558af9406e0e01a1fe23edd728 100644 (file)
--- a/crypto/asn1/charmap.pl
+++ b/crypto/asn1/charmap.pl
@@ -1,5 +1,8 @@
 #!/usr/local/bin/perl -w
 
+# Written by Dr Stephen N Henson (steve@openssl.org).
+# Licensed under the terms of the OpenSSL license.
+
 use strict;
 
 my ($i, @arr);
@@ -68,7 +71,7 @@ print <<EOF;
  * Mask of various character properties
  */
 
-static unsigned char char_type[] = {
+static const unsigned char char_type[] = {
 EOF
 
 for($i = 0; $i < 128; $i++) {