diff options
author | João Valverde <joao.valverde@tecnico.ulisboa.pt> | 2016-04-16 19:24:17 +0100 |
---|---|---|
committer | João Valverde <j@v6e.pt> | 2016-04-17 01:34:56 +0000 |
commit | dd6d57a56ae890208c48aaf6592401b61e9f8805 (patch) | |
tree | 5bc7cad18cd76d1b8f0ea72d59e672e22f4375e5 /epan/wslua | |
parent | b43108acb2cf60fcf0ad93ca07430c7b88d13202 (diff) |
make-taps.pl: Remove perl >= 5.14 requirement
Follow up to 2226802826c4ba802696d5df274094cec3818af1.
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>
Diffstat (limited to 'epan/wslua')
-rwxr-xr-x | epan/wslua/make-taps.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/epan/wslua/make-taps.pl b/epan/wslua/make-taps.pl index 5faaa925d9..e2d6bd2c91 100755 --- a/epan/wslua/make-taps.pl +++ b/epan/wslua/make-taps.pl @@ -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"; } |