@@ -215,10 +215,9 @@ BEGIN
215215);
216216
217217
218- # %sig
218+ # %vtable_conf
219219#
220220# This hash is mainly concerned with populating the vtable.
221- # (despite the name it has nothing to do with signals!)
222221#
223222# These have a subtly different "namespace" from the magic types.
224223#
@@ -247,9 +246,9 @@ BEGIN
247246# dup
248247# local
249248# For each specified method, add a vtable function pointer
250- # of the form "Perl_magic_$sig {foo}{get}" etc
249+ # of the form "Perl_magic_$vtable_conf {foo}{get}" etc
251250
252- my %sig =
251+ my %vtable_conf =
253252 (
254253 ' sv' => {get => ' get' , set => ' set' },
255254 ' env' => {set => ' set_all_env' , clear => ' clear_all_env' },
@@ -455,9 +454,9 @@ BEGIN
455454}
456455
457456
458- # Process %sig - everything goes to mg_vtable.h
457+ # Process %vtable_conf - everything goes to mg_vtable.h
459458
460- my @names = sort keys %sig ;
459+ my @names = sort keys %vtable_conf ;
461460{
462461 my $want = join " ,\n " , (map {" want_vtbl_$_ " } @names ), ' magic_vtable_max' ;
463462 my $names = join qq{ ",\n "} , @names ;
@@ -505,7 +504,7 @@ BEGIN
505504my @aliases ;
506505
507506while (my $name = shift @names ) {
508- my $data = $sig {$name };
507+ my $data = $vtable_conf {$name };
509508 push @vtable_names , $name ;
510509 my @funcs = map {
511510 $data -> {$_ } ? " Perl_magic_$data ->{$_ }" : 0;
0 commit comments