From b83a57c7a40df9fceda21790c46ebec7f1a2faac Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Mon, 14 Oct 2013 01:10:13 +0200 Subject: [PATCH] support all indicators: 0-9, space and # --- lib/MARC/Fast.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/MARC/Fast.pm b/lib/MARC/Fast.pm index 3aa4c66..389a821 100644 --- a/lib/MARC/Fast.pm +++ b/lib/MARC/Fast.pm @@ -327,7 +327,7 @@ sub to_hash { my $val; # has identifiers? - ($val->{'i1'},$val->{'i2'}) = ($1,$2) if ($l =~ s/^([01 #])([01 #])\x1F/\x1F/); + ($val->{'i1'},$val->{'i2'}) = ($1,$2) if ($l =~ s/^([0-9 #])([0-9 #])\x1F/\x1F/); my $sf_usage; my @subfields; -- 2.20.1