From 287d8a9889bd3a7bbf2eaff2a64bbd8eca639e17 Mon Sep 17 00:00:00 2001 From: Steve Hancock Date: Sat, 16 Nov 2024 10:18:44 -0800 Subject: [PATCH] add sub bad_pattern --- lib/Perl/Tidy/Tokenizer.pm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) 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" ); -- 2.39.5