From c068fe35255041da54ea27b2b672762a272a5639 Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@anl.gov>
Date: Wed, 28 Dec 2022 12:43:38 -0600
Subject: [PATCH] capr.pl: Fetch link fields as long strings

---
 modules/ca/src/perl/capr.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/modules/ca/src/perl/capr.pl b/modules/ca/src/perl/capr.pl
index daaa88260..fdb85dc7f 100644
--- a/modules/ca/src/perl/capr.pl
+++ b/modules/ca/src/perl/capr.pl
@@ -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"