Ignore:
Timestamp:
Mar 11, 2011, 7:16:11 PM (9 years ago)
Author:
bruno
Message:
  • Fix bug #95 Personalized FILTER accessing an item in an hash of a hash
File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/lib/ProjectBuilder/Filter.pm

    r1218 r1252  
    173173            pb_log(3,"*** Filtering variable in $tmp ***\n");
    174174            # Order is important as we need to handle hashes refs before simple vars
    175             eval { $tmp =~ s/(\$\w+-\>\{\'\w+\'\})/$1/eeg };
    176             eval { $tmp =~ s/(\$\w+)/$1/eeg };
     175            # (?: introduce a Non-capturing groupings cf man perlretut
     176            eval { $tmp =~ s/(\$\w+(?:-\>\{\'\w+\'\})*)/$1/eeg };
    177177            if (($s =~ /^PBDESC$/) && ($line =~ /^ PBDESC/)) {
    178178                # if on debian, we need to preserve the space before each desc line
Note: See TracChangeset for help on using the changeset viewer.