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

Timestamp:

Jun 1, 2008, 5:21:45 PM (16 years ago)

Author:

Bruno Cornec

Message:

• Support perl eol separator ($/) in macros. (Useful for PBDESC)

File:

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

devel/pb/lib/ProjectBuilder/Filter.pm

@@ -179 +179 @@
         if ($tmp =~ /\$/) {
             eval { $tmp =~ s/(\$\w+)/$1/eeg };
+            eval { $tmp =~ s/(\$\/)/$1/eeg };
         # special case for ChangeLog only for pb
         } elsif (($s =~ /^PBLOG$/) && ($line =~ /^PBLOG$/)) {
@@ -286 +287 @@
         if ($tmp =~ /\$/) {
             eval { $tmp =~ s/(\$\w+)/$1/eeg };
+            eval { $tmp =~ s/(\$\/)/$1/eeg };
         }
         $line =~ s|$s|$tmp|;