epics/epics-base
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

capr.pl: Fetch link fields as long strings

Browse Source
This commit is contained in:
Andrew Johnson
2022-12-28 12:43:38 -06:00
parent c2364d9d1c
commit c068fe3525
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
modules/ca/src/perl/capr.pl
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"