Changeset 57


Ignore:
Timestamp:
Aug 30, 2007, 7:18:34 PM (12 years ago)
Author:
bruno
Message:

Fix the interface for filter_file

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/bin/pb

    r56 r57  
    223223            if (defined $ptr) {
    224224                foreach my $f (values %bfiles) {
    225                     filter_file($f,$ptr,"$dest/pbconf/$ddir-$dver/".basename($f),$pbpkg,$dtype,$dsuf);
     225                    filter_file("$ENV{'PBROOT'}/$f",$ptr,"$dest/pbconf/$ddir-$dver/".basename($f),$pbpkg,$dtype,$dsuf);
    226226                }
    227227                foreach my $f (split(/,/,$filteredfiles{$dir})) {
    228                     filter_file($dir.$f,$ptr,"$dest/".$f,$pbpkg,$dtype,$dsuf);
     228                    filter_file("$ENV{'PBROOT'}/$dir/$f",$ptr,"$dest/$f",$pbpkg,$dtype,$dsuf);
    229229                }
    230230            }
     
    333333pbmkdir_p(dirname($destfile)) if (! -d dirname($destfile));
    334334open(DEST,"> $destfile") || die "Unable to create $destfile";
    335 open(FILE,"$ENV{'PBROOT'}/$f") || die "Unable to open $f: $!";
     335open(FILE,"$f") || die "Unable to open $f: $!";
    336336while (<FILE>) {
    337337    my $line = $_;
Note: See TracChangeset for help on using the changeset viewer.