Changeset 55

Timestamp:

08/30/07 15:11:58 (6 years ago)

Author:

bruno

Message:

was Still not good

File:

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

devel/pb/bin/pb

@@ -133 +133 @@
         while (<D>) {
             my $d = $_;
-            my ($dir,$ver) = split(/_/,$d);
+            my ($ndir,$ver) = split(/_/,$d);
             chomp($ver);
-            my ($ddir, $dver, $dfam, $dtype, $dsuf) = distro_init($dir,$ver);
+            my ($ddir, $dver, $dfam, $dtype, $dsuf) = distro_init($ndir,$ver);
             print $LOG "DEBUG: distro tuple: ".Dumper($ddir, $dver, $dfam, $dtype, $dsuf)."\n" if ($debug >= 1);
             print $LOG "DEBUG Filtering PBDATE => $pbdate, PBTAG => $pbtag, PBVER => $pbver\n" if ($debug >= 1);
@@ -226 +226 @@
                 }
                 foreach my $f (keys %filteredfiles) {
+                    # Skip file not belonging to that pkg
+                    next if ($f !~ /^$dir\//);
                     my $target = $f;
                     $target =~ s|^$dir/||;