Allow more char's in breaktable names

This commit is contained in:
Andrew Johnson
2022-01-24 12:25:57 -06:00
parent 43b623d80e
commit 7017e54930
2 changed files with 22 additions and 0 deletions
+8
View File
@@ -16,6 +16,14 @@ should also be read to understand what has changed since earlier releases.
<!-- Insert new items immediately below here ... -->
### Breakpoint Table Names
The names of breakpoint tables were made unnecessarily strict when DBD file
processing was moved to Perl for the 3.15 release series. Table names may now
contain the special characters `_` `-` `:` `;` `.` `[` `]` `<` `>` in addition
to letters and digits.
### Fix for `undefined` in configure/RELEASE files
Prevents `Use of uninitialized value` warnings from convertRelease.pl.
@@ -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!"