Changeset 2445

Timestamp:

10/13/20 10:39:02 (4 years ago)

Author:

nanardon

Message:

Allow to end operator using \ char

File:

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

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm

@@ -1123 +1123 @@
         # attr=foo => no extra white space !
         # \W is false, it is possible to have two char
-        my ($OpFilter, $attr, $attrref, $operator, $val) = $item =~ /^([\!\+\-]?)(\w+)(?:\.([\.\w]+))?(?:([^\w*]+)(.+))?$/ or next;
+        my ($OpFilter, $attr, $attrref, $operator, $val) = $item =~ /^([\!\+\-]?)(\w+)(?:\.([\.\w]+))?(?:([^\w*\\]+)(.+))?$/ or next;
         if (!$operator) {
             $operator = '~';