Skip to content

Commit 567a365

Browse files
committed
regen/mg_vtable.pl - rename confusing var %sig to %vtable_conf
1 parent 6ae8209 commit 567a365

File tree

1 file changed

+6
-7
lines changed

1 file changed

+6
-7
lines changed

regen/mg_vtable.pl

Lines changed: 6 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -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
505504
my @aliases;
506505

507506
while (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

Comments
 (0)