From: Steve Hancock <perltidy@users.sourceforge.net>
Date: Sat, 16 Nov 2024 18:18:44 +0000 (-0800)
Subject: add sub bad_pattern
X-Git-Tag: 20240903.07~17
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=287d8a9889bd3a7bbf2eaff2a64bbd8eca639e17;p=perltidy.git

add sub bad_pattern
---

diff --git a/lib/Perl/Tidy/Tokenizer.pm b/lib/Perl/Tidy/Tokenizer.pm
index 9325f07b..a875bf8a 100644
--- 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"
         );