add sub bad_pattern

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 9325f07beedad8736b8bd5a600e1f0419b9d3994..a875bf8a9d73a664efae09fc2904720dce0cbc4d 100644 (file)
--- a/lib/Perl/Tidy/Tokenizer.pm
+++ b/lib/Perl/Tidy/Tokenizer.pm
@@ -338,6 +338,15 @@ EOM
     croak "unexpected return from sub Die";
 } ## end sub Fault
 
+sub bad_pattern {
+    my ($pattern) = @_;
+
+    # Return true if a regex pattern has an error
+    # Note: Formatter.pm also has a copy of this
+    my $regex_uu = eval { qr/$pattern/ };
+    return $EVAL_ERROR;
+} ## end sub bad_pattern
+
 sub make_skipping_pattern {
     my ( $rOpts, $opt_name, $default ) = @_;
 
@@ -351,7 +360,7 @@ sub make_skipping_pattern {
 
     # Note that the ending \s will match a newline
     my $pattern = '^\s*' . $param . '\s';
-    if ( Perl::Tidy::Formatter::bad_pattern($pattern) ) {
+    if ( bad_pattern($pattern) ) {
         Die(
 "ERROR: the $opt_name parameter '$param' causes the invalid regex '$pattern'\n"
         );