capr.pl: Fetch link fields as long strings

This commit is contained in:
Andrew Johnson
2022-12-28 12:43:38 -06:00
parent c2364d9d1c
commit c068fe3525

View File

@@ -150,6 +150,7 @@ sub parseDbd {
$thisField = $1;
$thisType = $2;
$isAfield = 1;
$thisSize = 1024 if $thisType =~ m/^ DBF_(IN|OUT|FWD)LINK $/x;
}
elsif ( m/interest \s* \( \s* (\w+) \s* \)/x ) {
die "File format error at line $i of file\n $opt_d\n"