From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sun, 13 Oct 2013 23:10:13 +0000 (+0200)
Subject: support all indicators: 0-9, space and #
X-Git-Url: http://git.rot13.org/?p=MARC-Fast;a=commitdiff_plain;h=b83a57c7a40df9fceda21790c46ebec7f1a2faac;hp=3c02257514b1f105c8a3b3aec9b7e0dfdd932f96

support all indicators: 0-9, space and #
---

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;