This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
intrpvar.h: Use #define instead of hard-coded number
authorKarl Williamson <public@khwilliamson.com>
Sun, 9 Dec 2012 04:42:23 +0000 (21:42 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sun, 9 Dec 2012 16:47:17 +0000 (09:47 -0700)
The number 12 is mysterious as to why we are using it otherwise.

intrpvar.h

index 52b45ba..96d9e5a 100644 (file)
@@ -634,7 +634,7 @@ PERLVAR(I, utf8_charname_continue, SV *)
 PERLVAR(I, last_swash_hv, HV *)
 PERLVAR(I, last_swash_tmps, U8 *)
 PERLVAR(I, last_swash_slen, STRLEN)
-PERLVARA(I, last_swash_key,12, U8)
+PERLVARA(I, last_swash_key,UTF8_MAXBYTES-1, U8)
 PERLVAR(I, last_swash_klen, U8)                /* Only needs to store 0-12  */
 
 #ifdef FCRYPT