projects
/
MARC-Fast
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
3c02257
)
support all indicators: 0-9, space and #
master
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 13 Oct 2013 23:10:13 +0000
(
01:10
+0200)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 13 Oct 2013 23:10:13 +0000
(
01:10
+0200)
lib/MARC/Fast.pm
patch
|
blob
|
history
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/^([0
1 #])([01
#])\x1F/\x1F/);
+ ($val->{'i1'},$val->{'i2'}) = ($1,$2) if ($l =~ s/^([0
-9 #])([0-9
#])\x1F/\x1F/);
my $sf_usage;
my @subfields;