diff options
author | Peter Wu <peter@lekensteyn.nl> | 2015-06-23 00:27:11 +0200 |
---|---|---|
committer | Peter Wu <peter@lekensteyn.nl> | 2015-06-22 22:44:36 +0000 |
commit | e34e6c6fc06fd95b4f42ca2d230aaa743387e1bb (patch) | |
tree | a77d6a0aeafa1f1d19d4eeea3365f19e4bce29c3 /epan/wslua | |
parent | 8aa91b31b90e6ba2ab7391c0395548a3901df9d0 (diff) |
Fix "Unescaped left brace in regex is deprecated"
This got reported with Perl 5.22:
Unescaped left brace in regex is deprecated, passed through in
regex; marked by <-- HERE in m/^typedef enum { <-- HERE / at
epan/wslua/make-init-lua.pl line 228.
The perldelta manual page says this about it:
"[..] a future version of Perl (tentatively v5.26) will consider
this to be a syntax error."
Change-Id: I7f23cc10dc3311a35d8c15faa4337e4d50d0bd61
Reviewed-on: https://code.wireshark.org/review/9034
Reviewed-by: Peter Wu <peter@lekensteyn.nl>
Diffstat (limited to 'epan/wslua')
-rwxr-xr-x | epan/wslua/make-init-lua.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/epan/wslua/make-init-lua.pl b/epan/wslua/make-init-lua.pl index 457d5331b5..d1d55badbb 100755 --- a/epan/wslua/make-init-lua.pl +++ b/epan/wslua/make-init-lua.pl @@ -225,7 +225,7 @@ open STAT_GROUPS, "< $WSROOT/epan/stat_groups.h" or die "cannot open '$WSROOT/ep my $foundit = 0; while(<STAT_GROUPS>) { # need to skip matching words in comments, and get to the enum - if (/^typedef enum {/) { $foundit = 1; } + if (/^typedef enum \{/) { $foundit = 1; } # the problem here is we need to pick carefully, so we don't break existing scripts if ($foundit && /REGISTER_([A-Z]+)_GROUP_(CONVERSATION|RESPONSE|ENDPOINT|[A-Z_]+)/) { $menu_groups .= "MENU_$1_$2 = $menu_i\n"; |