test suite: Parse Dgit: field properly (look for initial \w+ only)

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/tests/lib b/tests/lib
index 993ec36b647a44953d1a67d59cb536b7ca5a8969..62e47ddac839fac8a177c7de22a54c38dd6746a8 100644 (file)
--- 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"
 }