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 = '';
       }