diff options
| author | Phong Truong <phongtruongit@gmail.com> | 2019-04-16 08:34:18 +0700 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-04-16 08:34:18 +0700 |
| commit | c9abf7108f3bd2bde0a7fa2a54eaec6898710195 (patch) | |
| tree | 18f6c4655e24652319c4b25945cc243b8504759b /tools | |
| parent | ab81d4012eac5c2c00c485971fc9b89bf69761be (diff) | |
| download | hercules-c9abf7108f3bd2bde0a7fa2a54eaec6898710195.tar.gz hercules-c9abf7108f3bd2bde0a7fa2a54eaec6898710195.tar.bz2 hercules-c9abf7108f3bd2bde0a7fa2a54eaec6898710195.tar.xz hercules-c9abf7108f3bd2bde0a7fa2a54eaec6898710195.zip | |
Fixed issue with Perl v5.26.1
Issue:
- Unescaped left brace in regex is illegal here in regex;
Diffstat (limited to 'tools')
| -rwxr-xr-x | tools/itemdbconverter.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tools/itemdbconverter.pl b/tools/itemdbconverter.pl index 58cb08bc1..fe30ce24e 100755 --- a/tools/itemdbconverter.pl +++ b/tools/itemdbconverter.pl @@ -109,9 +109,9 @@ sub parsedb (@) { (?<eLV>[0-9]*)[^,:]*(?<hasmaxlv>:[\s\t]*(?<eLVmax>[0-9]*))?[^,]*,[\s\t]* (?<Refineable>[0-9]*)[^,]*,[\s\t]* (?<View>[0-9]*)[^,]*,[\s\t]* - {(?<Script>.*)}, - {(?<OnEquip>.*)}, - {(?<OnUnequip>.*)} + \{(?<Script>.*)}, + \{(?<OnEquip>.*)}, + \{(?<OnUnequip>.*)} /x ) { my %cols = map { $_ => $+{$_} } keys %+; print "/*\n" if $cols{prefix}; |