Changeset 57 in ProjectBuilder

Timestamp:

Aug 30, 2007, 7:18:34 PM (17 years ago)

Author:

Bruno Cornec

Message:

Fix the interface for filter_file

File:

• devel/pb/bin/pb (modified) (2 diffs)

devel/pb/bin/pb

@@ -223 +223 @@
             if (defined $ptr) {
                 foreach my $f (values %bfiles) {
-                    filter_file($f,$ptr,"$dest/pbconf/$ddir-$dver/".basename($f),$pbpkg,$dtype,$dsuf);
+                    filter_file("$ENV{'PBROOT'}/$f",$ptr,"$dest/pbconf/$ddir-$dver/".basename($f),$pbpkg,$dtype,$dsuf);
                 }
                 foreach my $f (split(/,/,$filteredfiles{$dir})) {
-                    filter_file($dir.$f,$ptr,"$dest/".$f,$pbpkg,$dtype,$dsuf);
+                    filter_file("$ENV{'PBROOT'}/$dir/$f",$ptr,"$dest/$f",$pbpkg,$dtype,$dsuf);
                 }
             }
@@ -333 +333 @@
 pbmkdir_p(dirname($destfile)) if (! -d dirname($destfile));
 open(DEST,"> $destfile") || die "Unable to create $destfile";
-open(FILE,"$ENV{'PBROOT'}/$f") || die "Unable to open $f: $!";
+open(FILE,"$f") || die "Unable to open $f: $!";
 while (<FILE>) {
     my $line = $_;