Help for this page
my $mode = $cw->cget('-validate'); if ($mode =~ /match/) { $cw->configure(-validate => 'none'); }
my $mode = $cw->cget('-validate'); if (defined $mode && $mode =~ /match/) { # <== change $cw->configure(-validate => 'none'); }