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

Timestamp:

06/01/08 17:21:45 (5 years ago)

Author:

bruno

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|;