diff --git a/modules/database/src/tools/DBD/Breaktable.pm b/modules/database/src/tools/DBD/Breaktable.pm
index 54e699131..06dae996c 100644
--- a/modules/database/src/tools/DBD/Breaktable.pm
+++ b/modules/database/src/tools/DBD/Breaktable.pm
@@ -20,6 +20,20 @@ sub init {
return $this;
}
+# Override, breaktable names are not 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!"