Changeset 1434 in ProjectBuilder for devel/pb/lib/ProjectBuilder

Timestamp:

Mar 18, 2012, 5:07:43 PM (12 years ago)

Author:

Bruno Cornec

Message:

r4577@localhost: bruno | 2012-03-18 16:37:37 +0100

• Fix a syntex bug in pbmkbm

File:

• devel/pb/lib/ProjectBuilder/Filter.pm (modified) (2 diffs)

devel/pb/lib/ProjectBuilder/Filter.pm

@@ -176 +176 @@
             # Order is important as we need to handle hashes refs before simple vars
             # (?: introduce a Non-capturing groupings cf man perlretut
+            # We need to avoid handling other VARs (Makefile e.g) so restrict here to $pb type of vars.
             eval { $tmp =~ s/(\$\w+(?:-\>\{\'\w+\'\})*)/$1/eeg };
             if (($s =~ /^PBDESC$/) && ($line =~ /^ PBDESC/)) {
@@ -183 +184 @@
                 pb_log(3,"*** tmp:$tmp ***\n");
             }
+            # Support $/ vars
             eval { $tmp =~ s/(\$\/)/$1/eeg };
         } elsif (($s =~ /^PBLOG$/) && ($line =~ /^PBLOG$/)) {