diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-05-15 13:21:09 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-06-11 10:39:59 +0200 |
| commit | 6f83ef0e5a45c465f83de3304c5818ba44492250 (patch) | |
| tree | 6b5a754cde4ee86baf633e6415f18b5fd8e721ff /t | |
| parent | 546efe9fbd6c3c651c39b369e97d0835230a0f9f (diff) | |
| download | perl-6f83ef0e5a45c465f83de3304c5818ba44492250.tar.gz | |
Create a lookup table for magic vtables from magic type, PL_magic_data.
Use it to eliminate the large switch statement in Perl_sv_magic().
As the table needs to be keyed on magic type, which is expressed as C character
constants, the order depends on the compiler's character set. Frustratingly,
EBCDIC variants don't agree on the code points for '~' and ']', which we use
here. Instead of having (at least) 4 tables, get the local runtime to sort the
table for us. Hence the regen script writes out the (unsorted) mg_raw.h, which
generate_uudmap sorts to generate mg_data.h
Diffstat (limited to 't')
| -rw-r--r-- | t/porting/regen.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/porting/regen.t b/t/porting/regen.t index 0e052dd853..b644d700ad 100644 --- a/t/porting/regen.t +++ b/t/porting/regen.t @@ -27,7 +27,7 @@ if ( $^O eq "VMS" ) { skip_all( "- regen.pl needs porting." ); } -my $in_regen_pl = 18; # I can't see a clean way to calculate this automatically. +my $in_regen_pl = 19; # I can't see a clean way to calculate this automatically. my @files = qw(perly.act perly.h perly.tab keywords.c keywords.h uconfig.h); my @progs = qw(Porting/makemeta regen/regcharclass.pl regen/mk_PL_charclass.pl); |