X-Git-Url: http://git.rot13.org/?p=MARC-Fast;a=blobdiff_plain;f=lib%2FMARC%2FFast.pm;h=389a821941754e277a452b8a158fd99da14d909e;hp=3aa4c66d5a5564e912f7518ea12ae0d36e8486aa;hb=b83a57c7a40df9fceda21790c46ebec7f1a2faac;hpb=3c02257514b1f105c8a3b3aec9b7e0dfdd932f96;ds=sidebyside

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;