forked from osmocom/wireshark
make-taps.pl: Remove perl >= 5.14 requirement
Follow up to 2226802826
.
Change-Id: Icd199a692f13bf30a68f655e30d7353987b22a6c
Reviewed-on: https://code.wireshark.org/review/14942
Petri-Dish: João Valverde <j@v6e.pt>
Tested-by: Petri Dish Buildbot <buildbot-no-reply@wireshark.org>
Reviewed-by: João Valverde <j@v6e.pt>
This commit is contained in:
parent
b43108acb2
commit
dd6d57a56a
|
@ -130,10 +130,13 @@ sub dotap {
|
|||
|
||||
for my $n (sort keys %elems) {
|
||||
my $fmt = $types{$elems{$n}};
|
||||
my $lua_type;
|
||||
|
||||
if ($fmt) {
|
||||
$code .= "\tlua_pushstring(L,\"$n\");\n\t";
|
||||
$code .= $fmt =~ s/\bSTR\b/$n/rg . "\n\tlua_settable(L,-3);\n";
|
||||
($lua_type = $fmt) =~ s/\bSTR\b/$n/g;
|
||||
$code .= $lua_type;
|
||||
$code .= "\n\tlua_settable(L,-3);\n";
|
||||
$doc .= "\t$n: $comments{$elems{$n}}\n";
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue