mirror of
https://github.com/DBD-SQLite/DBD-SQLite
synced 2025-06-07 14:19:10 -04:00
make ignore check a bit stricter
This commit is contained in:
parent
f16117c342
commit
843ecf112f
1 changed files with 1 additions and 1 deletions
|
@ -229,7 +229,7 @@ sub extract_constants {
|
||||||
$tag =~ s/[ \-]+/_/g;
|
$tag =~ s/[ \-]+/_/g;
|
||||||
($tag) = $tag =~ /^(\w+)/;
|
($tag) = $tag =~ /^(\w+)/;
|
||||||
$tag =~ s/_$//;
|
$tag =~ s/_$//;
|
||||||
if ($tag =~ /$ignore_tag_re/) {
|
if ($tag =~ /^($ignore_tag_re)/) {
|
||||||
print "$tag is ignored\n" if $VERBOSE;
|
print "$tag is ignored\n" if $VERBOSE;
|
||||||
$tag = '';
|
$tag = '';
|
||||||
}
|
}
|
||||||
|
|
Loading…
Add table
Reference in a new issue