From 7d67dfb772254f771ef9cb80f98e516cef6e27ef Mon Sep 17 00:00:00 2001 From: Andreas Barth Date: Sat, 30 Apr 2011 20:42:01 +0000 Subject: [PATCH] fix squeeze-breakness --- bin/wanna-build | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/bin/wanna-build b/bin/wanna-build index 8065a2c..560a3d9 100755 --- a/bin/wanna-build +++ b/bin/wanna-build @@ -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={}; -- 2.39.2