diff --git a/gedcom b/gedcom index 9f47410..829232a 100755 --- a/gedcom +++ b/gedcom @@ -148,6 +148,7 @@ BEGIN { ($warning !~ /Subroutine Gedcom::Individual::relationship redefined at/)) { if(($warning =~ /^Use of uninitialized value/) || ($warning =~ /Wide/) || + ($warning =~ /masks earlier declaration in same scope/) || ($warning =~ /: attempt to add consecutive punctuation/) || ($warning =~ /isn't numeric in numeric eq /i)) { die $warning;