Allow more char's in breaktable names
This commit is contained in:
@@ -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!"
|
||||
|
||||
Reference in New Issue
Block a user