From 843ecf112fb7dee351815608b8e07a8f2175691d Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Sat, 22 Dec 2018 05:18:46 +0900
Subject: [PATCH] make ignore check a bit stricter

---
 util/SQLiteUtil.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/util/SQLiteUtil.pm b/util/SQLiteUtil.pm
index 3256132..be8f2be 100644
--- a/util/SQLiteUtil.pm
+++ b/util/SQLiteUtil.pm
@@ -229,7 +229,7 @@ sub extract_constants {
       $tag =~ s/[ \-]+/_/g;
       ($tag) = $tag =~ /^(\w+)/;
       $tag =~ s/_$//;
-      if ($tag =~ /$ignore_tag_re/) {
+      if ($tag =~ /^($ignore_tag_re)/) {
         print "$tag is ignored\n" if $VERBOSE;
         $tag = '';
       }