X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=blobdiff_plain;f=tests%2Ftests%2Fdpkgsourceignores-docs;h=a71e7f97e3701783ef90734c0e4b27afb2d76a53;hb=bcca6a6dfc34e624274055ed1dd3fc3371a539a4;hp=397b7834e5fa10651986f7d01917b406aaa4e94e;hpb=3e0e30a2fab1b5770c770bbc4df3d55bef611d20;p=dgit.git

diff --git a/tests/tests/dpkgsourceignores-docs b/tests/tests/dpkgsourceignores-docs
index 397b7834..a71e7f97 100755
--- a/tests/tests/dpkgsourceignores-docs
+++ b/tests/tests/dpkgsourceignores-docs
@@ -2,7 +2,7 @@
 set -e
 . tests/lib
 
-t-restriction-x-dgit-intree-only
+t-restrict x-dgit-intree-only
 # we need the .pod source, which is not shipped
 
 cd $tmp
@@ -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 -----