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

Timestamp:

Feb 14, 2011, 4:35:54 AM (13 years ago)

Author:

Bruno Cornec

Message:

• Allow pb_filter_file to manage undefined filter hash

File:

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

devel/pb/lib/ProjectBuilder/Filter.pm

@@ -126 +126 @@
 
 The first parameter is the file to filter.
-The second parameter is the pointer on the hash of filters.
+The second parameter is the pointer on the hash of filters. If undefined no filtering will occur.
 The third parameter is the destination file after filtering.
 The fourth parameter is the pointer on the hash of variables to filter (tag, ver, ...)
@@ -136 +136 @@
 my $f=shift;
 my $ptr=shift;
-my %filter=%$ptr;
+my %filter;
+if (defined $ptr) {
+    %filter=%$ptr;
+} else {
+    %filter = ();
+}
 my $destfile=shift;
 my $pb=shift;
@@ -225 +230 @@
 
 my $ptr=shift;
-my %filter=%$ptr;
 my $destfile=shift;
 my $pb=shift;