- $h->parse(\*STDIN,"dsc");
- my $ref = $h->{"Dgit"},"\n";
- die unless $ref =~ m/^\w+\b/;
- print $ref,"\n";
- ' <$tmp/incoming/$dsc`
+ $h->parse(\*STDIN,"'"$file"'");
+ my $val = $h->{"'$field'"},"\n";
+ die "'"$file $field"'" unless defined $val;
+ print $val,"\n";
+ ' <$file
+}
+
+t-ref-dsc-dgit () {
+ local dsc=${p}_${v}.dsc
+ local val=`t-822-field $tmp/incoming/$dsc Dgit`
+ perl -e '$_=shift @ARGV; die "$dsc Dgit $_ ?" unless m/^\w+\b/;' "$val"