Changeset 56 in ProjectBuilder for devel/pb

Timestamp:

Aug 30, 2007, 3:19:04 PM (17 years ago)

Author:

Bruno Cornec

Message:

filteredfiles have to be handled by package

File:

• devel/pb/bin/pb (modified) (1 diff)

devel/pb/bin/pb

@@ -225 +225 @@
                     filter_file($f,$ptr,"$dest/pbconf/$ddir-$dver/".basename($f),$pbpkg,$dtype,$dsuf);
                 }
-                foreach my $f (keys %filteredfiles) {
-                    # Skip file not belonging to that pkg
-                    next if ($f !~ /^$dir\//);
-                    my $target = $f;
-                    $target =~ s|^$dir/||;
-                    filter_file($f,$ptr,"$dest/".$target,$pbpkg,$dtype,$dsuf);
+                foreach my $f (split(/,/,$filteredfiles{$dir})) {
+                    filter_file($dir.$f,$ptr,"$dest/".$f,$pbpkg,$dtype,$dsuf);
                 }
             }