X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=tests%2Ftests%2Fdpkgsourceignores-docs;fp=tests%2Ftests%2Fdpkgsourceignores-docs;h=7638925d390b8a63de1e490ff9139c36c095460f;hb=36a39bc425000c2e60d126ea46f35b3e9965787e;hp=397b7834e5fa10651986f7d01917b406aaa4e94e;hpb=072eebfbdd8d6da31e5e89212ca6669b50993ea1;p=dgit.git

diff --git a/tests/tests/dpkgsourceignores-docs b/tests/tests/dpkgsourceignores-docs
index 397b7834..7638925d 100755
--- a/tests/tests/dpkgsourceignores-docs
+++ b/tests/tests/dpkgsourceignores-docs
@@ -40,18 +40,12 @@ chmod +x doc.sh
 
 : ----- extract args from dgit -----
 
-perl -ne '
-	next unless m/^\s*our\s+\@dpkg_source_ignores\s*=/;
-	print;
-' $root/dgit >dgit.pl
+args=$( t-dgit print-dpkg-source-ignores )
 
-cat >>dgit.pl <<'END'
-	foreach my $arg (@dpkg_source_ignores) {
-		print $arg, "\n" or die $!;
-	}
-END
-
-perl dgit.pl >dgit.args
+>dgit.args
+for arg in $args; do
+	printf >>dgit.args "%s\n" "$arg"
+done
 
 : ----- compare -----