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:
João Valverde 2016-04-16 19:24:17 +01:00 committed by João Valverde
parent b43108acb2
commit dd6d57a56a
1 changed files with 4 additions and 1 deletions

View File

@ -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";
}