Allow more char's in breaktable names

2022-01-24 12:25:57 -06:00
parent 43b623d80e
commit 7017e54930
2 changed files with 22 additions and 0 deletions
@@ -20,6 +20,20 @@ sub init {
    return $this;
 }

+# Override, breaktable names don't have to be strict
+sub identifier {
+    my ($this, $id, $what) = @_;
+    confess "DBD::Breaktable::identifier: $what undefined!"
+        unless defined $id;
+    if ($id !~ m/^$RXname$/) {
+        my @message;
+        push @message, "A $what should contain only letters, digits and these",
+            "special characters: _ - : . [ ] < > ;" unless $warned++;
+        warnContext("Deprecated $what '$id'", @message);
+    }
+    return $id;
+}
+
 sub add_point {
    my ($this, $raw, $eng) = @_;
    confess "DBD::Breaktable::add_point: Raw value undefined!"