| Subject: | Compile warning when using Lingua::Romana::Perligata with new perl |
When using new perl 'use Lingua::Romana::Perligata;' cause compile warning:
Unescaped left brace in regex is deprecated here, passed through in regex; marked by <-- HERE in m/^[\$%@]{ <-- HERE $/ at lib/Lingua/Romana/Perligata.pm line 1222.
Following patch fixes this problem:
--- lib/Lingua/Romana/Perligata.pm 2016-07-07 02:32:48.000000000 +0200
+++ lib/Lingua/Romana/Perligata.pm 2016-11-26 18:14:06.143056909 +0100
@@ -1219,7 +1219,7 @@ sub STATEMENT::translate {
elsif ($_[0]{V}{diamond}) {
$result = "<" . substr($dative,1) . ">";
}
- elsif ($verb =~ /^[\$%@]{$/) {
+ elsif ($verb =~ /^[\$%@]\{$/) {
$result = $verb . $_[0]{A}[0]->translate . '}';
}
elsif (! $_[0]{V}{operator}) {
Please fix it, so Lingua::Romana::Perligata can be used also with new perl versions.