X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=Equinox-Migration%2Flib%2FEquinox%2FMigration%2FSubfieldMapper.pm;fp=Equinox-Migration%2Flib%2FEquinox%2FMigration%2FSubfieldMapper.pm;h=8716b18635c89cf6a9b2b938f0991d96438438c0;hp=d67d11c8216b4b8415d32d3432a32dea70c4cda9;hb=bb822592362a1681654bd04bc7ed3112be315b5d;hpb=0b30967a52114d24dbe09fe07e5df77090a2bf4d

diff --git a/Equinox-Migration/lib/Equinox/Migration/SubfieldMapper.pm b/Equinox-Migration/lib/Equinox/Migration/SubfieldMapper.pm
index d67d11c..8716b18 100644
--- a/Equinox-Migration/lib/Equinox/Migration/SubfieldMapper.pm
+++ b/Equinox-Migration/lib/Equinox/Migration/SubfieldMapper.pm
@@ -245,7 +245,7 @@ sub generate {
         $map->{tag}   = shift @tokens;
         while (defined (my $tok = shift @tokens)) {
             last if ($tok =~ m/^#/);
-            if ($tok =~ m/^[a-z]:'/ and $tok !~ /^'$/) {
+            if ($tok =~ m/^[a-zA-Z]:'/ and $tok !~ /^'$/) {
                 $tok .= ' ' . shift @tokens
                   until ($tokens[0] =~ m/'$/);
                 $tok .= ' ' . shift @tokens;