$architecture="";
$binexplain=0;
-$edosoptions = "-failures -explain";
+$edosoptions = "-failures -explain -quiet";
while ( $arg = shift @ARGV ) {
if ( $arg eq '-a' || $arg eq '--architecture' ) {
if ($#ARGV == -1) {
print "Edos options: $edosoptions\n";
}
+# check that all stanzas in the binary package file have the same
+# architecture.
$packagearch="";
open(P,$packagefile);
while (<P>) {
while (<RESULT>) {
if (/^\s+/) {
if ($sourcestanza) {
- s/^(\s*)$sourceprefix(.*)(depends on|conflicts with)/$1$2build-$3/o;
+ s/^(\s*)$sourceprefix(.*)depends on/$1$2build-depends on/o;
+ s/^(\s*)$sourceprefix(.*) and (.*) conflict/$1$2 build-conflicts with $3/o;
print;
if (/depends on ([^\s]*) .*\{.*\}/) {
push(@binqueue,$1);
$explanation .= $_;
}
} else {
+ if ($sourcestanza) {
+ print "\n";
+ $sourcestanza=0;
+ }
if ($binpackage ne ""){
$binfailures{$binpackage} = $explanation;
$binpackage="";
}
- if (/^$sourceprefix.*: FAILED/o) {
- s/^$sourceprefix//o;
- print;
-
- $_=<RESULT>;
- print;
-
+ if (/^$sourceprefix(.*) \(.*\): FAILED/o) {
+ print "Package: $1\n";
+ print "Failed-Why:\n";
$sourcestanza=1;
} elsif (/^([^\s]*) .*: FAILED/) {
$binpackage=$1;