Changeset 1364

Timestamp:

07/06/15 18:32:44 (9 years ago)

Author:

nanardon

Message:

Fix Unescaped left brace in regex

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Objects.pm

@@ -302 +302 @@
     $fmt =~ s/\\n/\n/g;
     $fmt =~ s!
-        (?:%{([^:}]*)(?::([^}]+))?})
+        (?:%\{([^:}]*)(?::([^}]+))?\})
         !
         my $val = $self->get_c_field($1);