When replacing named captures for Perl 5.8 compatibility,
need to make sure regex groups that shouldn't capture
are marked as such.
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
sub stow_record_data {
# get tag data if we're looking at it
my $tag = 0;
- if ($record[$ptr] =~ m/<(control|data)field tag="(.{3})"/) {
+ if ($record[$ptr] =~ m/<(?:control|data)field tag="(.{3})"/) {
$recmeta{tag} = $1;
$tag = $recmeta{tag};
$record[$ptr] =~ m/ind1="(.)"/;