From a724362d178cf58fbe5d6671493bde1c2784a4ed Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sat, 7 Jan 2017 16:37:43 +0000
Subject: test suite: Parse Dgit: field properly (look for initial \w+ only)

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 tests/lib | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/tests/lib b/tests/lib
index 993ec36..62e47dd 100644
--- a/tests/lib
+++ b/tests/lib
@@ -851,7 +851,11 @@ t-incoming-dsc () {
 t-ref-dsc-dgit () {
 	t-incoming-dsc
 	local val; val=`t-822-field $incoming_dsc Dgit`
-	perl -e '$_=shift @ARGV; die "Dgit $_ ?" unless m/^\w+\b/;' "$val"
+	val=$( perl -e '
+		$_=shift @ARGV;
+		die "Dgit $_ ?" unless m/^\w+\b/;
+		print $&,"\n" or die $!;
+	' "$val")
 	t-ref-same-val $incoming_dsc "$val"
 }
 
-- 
cgit v1.2.3