diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-05-15 16:33:02 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-06-11 10:40:00 +0200 |
| commit | 23cfd2fcc891e2298c078e093010af5bdb902cc6 (patch) | |
| tree | 6bef879b1327a93bb53e0ca3d4d8718870ba7834 /mg_names.c | |
| parent | 52f4950575a77c74948f90dd3e24ac66b684eb4a (diff) | |
| download | perl-23cfd2fcc891e2298c078e093010af5bdb902cc6.tar.gz | |
Sort magic and magic vtable names in files generated by mg_vtable.pl
Magic is sorted case insensitively, with upper case before lower case.
vtable names are all lowercase letters.
Diffstat (limited to 'mg_names.c')
| -rw-r--r-- | mg_names.c | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/mg_names.c b/mg_names.c index 1287a00212..ff73b9e38e 100644 --- a/mg_names.c +++ b/mg_names.c @@ -7,10 +7,16 @@ */ { PERL_MAGIC_sv, "sv(\\0)" }, + { PERL_MAGIC_arylen, "arylen(#)" }, + { PERL_MAGIC_rhash, "rhash(%)" }, + { PERL_MAGIC_pos, "pos(.)" }, + { PERL_MAGIC_symtab, "symtab(:)" }, + { PERL_MAGIC_backref, "backref(<)" }, + { PERL_MAGIC_arylen_p, "arylen_p(@)" }, { PERL_MAGIC_overload, "overload(A)" }, { PERL_MAGIC_overload_elem, "overload_elem(a)" }, - { PERL_MAGIC_overload_table, "overload_table(c)" }, { PERL_MAGIC_bm, "bm(B)" }, + { PERL_MAGIC_overload_table, "overload_table(c)" }, { PERL_MAGIC_regdata, "regdata(D)" }, { PERL_MAGIC_regdatum, "regdatum(d)" }, { PERL_MAGIC_env, "env(E)" }, @@ -36,18 +42,12 @@ { PERL_MAGIC_taint, "taint(t)" }, { PERL_MAGIC_uvar, "uvar(U)" }, { PERL_MAGIC_uvar_elem, "uvar_elem(u)" }, - { PERL_MAGIC_vec, "vec(v)" }, { PERL_MAGIC_vstring, "vstring(V)" }, + { PERL_MAGIC_vec, "vec(v)" }, { PERL_MAGIC_utf8, "utf8(w)" }, { PERL_MAGIC_substr, "substr(x)" }, { PERL_MAGIC_defelem, "defelem(y)" }, - { PERL_MAGIC_arylen, "arylen(#)" }, - { PERL_MAGIC_pos, "pos(.)" }, - { PERL_MAGIC_backref, "backref(<)" }, - { PERL_MAGIC_symtab, "symtab(:)" }, - { PERL_MAGIC_rhash, "rhash(%)" }, - { PERL_MAGIC_arylen_p, "arylen_p(@)" }, - { PERL_MAGIC_ext, "ext(~)" }, { PERL_MAGIC_checkcall, "checkcall(])" }, + { PERL_MAGIC_ext, "ext(~)" }, /* ex: set ro: */ |