Changeset 1252 in ProjectBuilder for devel/pb/lib/ProjectBuilder/Filter.pm

Timestamp:

Mar 11, 2011, 7:16:11 PM (13 years ago)

Author:

Bruno Cornec

Message:

• Fix bug #95 Personalized FILTER accessing an item in an hash of a hash

File:

• devel/pb/lib/ProjectBuilder/Filter.pm (modified) (1 diff)

devel/pb/lib/ProjectBuilder/Filter.pm

@@ -173 +173 @@
             pb_log(3,"*** Filtering variable in $tmp ***\n");
             # Order is important as we need to handle hashes refs before simple vars
-            eval { $tmp =~ s/(\$\w+-\>\{\'\w+\'\})/$1/eeg };
-            eval { $tmp =~ s/(\$\w+)/$1/eeg };
+            # (?: introduce a Non-capturing groupings cf man perlretut
+            eval { $tmp =~ s/(\$\w+(?:-\>\{\'\w+\'\})*)/$1/eeg };
             if (($s =~ /^PBDESC$/) && ($line =~ /^ PBDESC/)) {
                 # if on debian, we need to preserve the space before each desc line