X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=Equinox-Migration%2Flib%2FEquinox%2FMigration%2FSubfieldMapper.pm;h=7d6f0690f85f96ec62899de1204570e6843ac4f2;hp=285b465549889ad4914ac74535ba3b1d2fbda50b;hb=1ecfdd5907dbf766425b1c32ebdd1db58243fd72;hpb=4495f74d3455a46ed17503a3dfc7550ebe2322ca

diff --git a/Equinox-Migration/lib/Equinox/Migration/SubfieldMapper.pm b/Equinox-Migration/lib/Equinox/Migration/SubfieldMapper.pm
index 285b465..7d6f069 100644
--- a/Equinox-Migration/lib/Equinox/Migration/SubfieldMapper.pm
+++ b/Equinox-Migration/lib/Equinox/Migration/SubfieldMapper.pm
@@ -228,7 +228,7 @@ sub validate {
      unless ($toks->{field} =~ /^[a-zA-z]/);
 
     die "Invalid tag (line $.)\n"
-      if ($toks->{tag} =~ /\D/ or $toks->{tag} < 0 or $toks->{tag} > 999);
+      if ($toks->{tag} =~ /[^\d\-]/ or $toks->{tag} < 0 or $toks->{tag} > 999);
 
     die "Invalid subfield code (line $.)\n"
       if (length $toks->{sub} != 1 or $toks->{sub} =~ /[^a-zA-Z0-9]/);