6 my $suite = "unstable";
11 open F, "/org/wanna-build/tmp/Sources.$suite-old";
13 if (s/^Build-Depends:// or (/^\s/ and $in_bd)) {
14 foreach my $pkg (split/,|\|/) {
17 $pkg =~ s/^\s*(\S+)\s*/$1/;
18 $dep{$pkg} = 1 if $pkg ne "\n";
27 open F, "/org/wanna-build/tmp/Packages.$suite.$arch-old";
30 if (s/^Depends:// or (/^\s/ and $in_bd)) {
31 foreach my $pkg (split/,|\|/) {
34 $pkg =~ s/^\s*(\S+)\s*/$1/;
35 $dep{$pkg} = 1 if $pkg ne "\n";
44 print join ("\n",sort keys %dep);