diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-11-27 22:35:17 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-30 11:48:42 -0800 |
| commit | 93fa278758aa71f9c91078585c82898a9c7b8eb6 (patch) | |
| tree | ecb4e0df516f4f2f96b02ccc244a4391f16dd60c | |
| parent | 307a54be0900ed9b37ec2967bff2a57d4874e280 (diff) | |
| download | perl-93fa278758aa71f9c91078585c82898a9c7b8eb6.tar.gz | |
Remove proto magic type
It is no longer in use, as of two commits ago.
| -rw-r--r-- | mg_names.c | 1 | ||||
| -rw-r--r-- | mg_raw.h | 2 | ||||
| -rw-r--r-- | mg_vtable.h | 1 | ||||
| -rw-r--r-- | pod/perlguts.pod | 1 | ||||
| -rw-r--r-- | regen/mg_vtable.pl | 1 |
5 files changed, 0 insertions, 6 deletions
diff --git a/mg_names.c b/mg_names.c index 237dfc5b9c..57d52db298 100644 --- a/mg_names.c +++ b/mg_names.c @@ -9,7 +9,6 @@ { PERL_MAGIC_sv, "sv(\\0)" }, { PERL_MAGIC_arylen, "arylen(#)" }, { PERL_MAGIC_rhash, "rhash(%)" }, - { PERL_MAGIC_proto, "proto(&)" }, { PERL_MAGIC_debugvar, "debugvar(*)" }, { PERL_MAGIC_pos, "pos(.)" }, { PERL_MAGIC_symtab, "symtab(:)" }, @@ -12,8 +12,6 @@ "/* arylen '#' Array length ($#ary) */" }, { '%', "magic_vtable_max | PERL_MAGIC_VALUE_MAGIC", "/* rhash '%' Extra data for restricted hashes */" }, - { '&', "magic_vtable_max", - "/* proto '&' my sub prototype CV */" }, { '*', "want_vtbl_debugvar", "/* debugvar '*' $DB::single, signal, trace vars */" }, { '.', "want_vtbl_pos | PERL_MAGIC_VALUE_MAGIC", diff --git a/mg_vtable.h b/mg_vtable.h index c0bb820551..c71a988cf7 100644 --- a/mg_vtable.h +++ b/mg_vtable.h @@ -15,7 +15,6 @@ #define PERL_MAGIC_sv '\0' /* Special scalar variable */ #define PERL_MAGIC_arylen '#' /* Array length ($#ary) */ #define PERL_MAGIC_rhash '%' /* Extra data for restricted hashes */ -#define PERL_MAGIC_proto '&' /* my sub prototype CV */ #define PERL_MAGIC_debugvar '*' /* $DB::single, signal, trace vars */ #define PERL_MAGIC_pos '.' /* pos() lvalue */ #define PERL_MAGIC_symtab ':' /* Extra data for symbol tables */ diff --git a/pod/perlguts.pod b/pod/perlguts.pod index 60f74c1194..2b589fb709 100644 --- a/pod/perlguts.pod +++ b/pod/perlguts.pod @@ -1168,7 +1168,6 @@ will be lost. # PERL_MAGIC_arylen vtbl_arylen Array length ($#ary) % PERL_MAGIC_rhash (none) Extra data for restricted hashes - & PERL_MAGIC_proto (none) my sub prototype CV * PERL_MAGIC_debugvar vtbl_debugvar $DB::single, signal, trace vars . PERL_MAGIC_pos vtbl_pos pos() lvalue diff --git a/regen/mg_vtable.pl b/regen/mg_vtable.pl index 7eda5e135a..46dce97c91 100644 --- a/regen/mg_vtable.pl +++ b/regen/mg_vtable.pl @@ -94,7 +94,6 @@ my %mg = desc => "Shadow \"foreach\" iterator variable /\nsmart parameter vivification" }, arylen => { char => '#', vtable => 'arylen', value_magic => 1, desc => 'Array length ($#ary)' }, - proto => { char => '&', desc => 'my sub prototype CV' }, pos => { char => '.', vtable => 'pos', value_magic => 1, desc => 'pos() lvalue' }, backref => { char => '<', vtable => 'backref', value_magic => 1, |