Changeset 55


Ignore:
Timestamp:
Aug 30, 2007, 3:11:58 PM (13 years ago)
Author:
Bruno Cornec
Message:

was Still not good

File:
1 edited

Legend:

Unmodified
Added
Removed
  • devel/pb/bin/pb

    r54 r55  
    133133        while (<D>) {
    134134            my $d = $_;
    135             my ($dir,$ver) = split(/_/,$d);
     135            my ($ndir,$ver) = split(/_/,$d);
    136136            chomp($ver);
    137             my ($ddir, $dver, $dfam, $dtype, $dsuf) = distro_init($dir,$ver);
     137            my ($ddir, $dver, $dfam, $dtype, $dsuf) = distro_init($ndir,$ver);
    138138            print $LOG "DEBUG: distro tuple: ".Dumper($ddir, $dver, $dfam, $dtype, $dsuf)."\n" if ($debug >= 1);
    139139            print $LOG "DEBUG Filtering PBDATE => $pbdate, PBTAG => $pbtag, PBVER => $pbver\n" if ($debug >= 1);
     
    226226                }
    227227                foreach my $f (keys %filteredfiles) {
     228                    # Skip file not belonging to that pkg
     229                    next if ($f !~ /^$dir\//);
    228230                    my $target = $f;
    229231                    $target =~ s|^$dir/||;
Note: See TracChangeset for help on using the changeset viewer.