support all indicators: 0-9, space and #

[MARC-Fast] / lib / MARC / Fast.pm

diff --git a/lib/MARC/Fast.pm b/lib/MARC/Fast.pm
index 3aa4c66..389a821 100644 (file)
--- 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;