]> git.donarmstrong.com Git - wannabuild.git/commitdiff
fix squeeze-breakness
authorAndreas Barth <aba@not.so.argh.org>
Sat, 30 Apr 2011 20:42:01 +0000 (20:42 +0000)
committerAndreas Barth <aba@not.so.argh.org>
Sat, 30 Apr 2011 20:42:01 +0000 (20:42 +0000)
bin/wanna-build

index 8065a2ced78debbcd9df4ca0be1c90f5d93cdf5a..560a3d98307b1d421e2df33e016de2da9f6a9294 100755 (executable)
@@ -1561,7 +1561,7 @@ sub build_deplist {
 
 sub filterarch {
     return "" unless $_[0];
-    return Dpkg::Deps::parse($_[0], ("reduce_arch" => 1, "host_arch" => $_[1]))->dump();
+    return Dpkg::Deps::deps_parse($_[0], ("reduce_arch" => 1, "host_arch" => $_[1]))->output();
 }
 
 sub wb_edos_builddebcheck {
@@ -1608,9 +1608,9 @@ sub wb_edos_builddebcheck {
         }   
     }
 
-    print "calling: edos-debcheck $edosoptions < $sourcesfile ".join('', map {" '-base FILE' ".$_ } @$packagefiles)."\n";
+    print "calling: edos-debcheck $edosoptions < $sourcesfile ".join('', map {" -I ".$_ } @$packagefiles)."\n";
     open(my $result_cmd, '-|',
-        "edos-debcheck $edosoptions < $sourcesfile ".join('', map {" '-base FILE' ".$_ } @$packagefiles));
+        "edos-debcheck $edosoptions < $sourcesfile ".join('', map {" -I ".$_ } @$packagefiles));
 
     my $explanation="";
     my $result={};