diff -pruN 0.088-1/Changes 0.089-1/Changes
--- 0.088-1/Changes	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/Changes	2025-05-18 19:35:35.000000000 +0000
@@ -1,3 +1,12 @@
+0.089		2025-05-18	T. R. Wyant
+    The /x modifier should not affect the parse of the replacement
+    string in a substitution operator. That is, the '#' in s/x/#/x does
+    NOT introdice a comment.
+
+    Correct POD link in PPIx::Regexp::Token::Literal.
+
+    Annotate sub class(), since with Perl 5.38 it is a built-in.
+
 0.088		2023-02-28	T. R. Wyant
     Remove support for (**{ ... code ... }).  This was introduced in
     Perl 5.37.8 along with a single-splat version.  The double-splat
diff -pruN 0.088-1/META.json 0.089-1/META.json
--- 0.088-1/META.json	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/META.json	2025-05-18 19:35:35.000000000 +0000
@@ -4,7 +4,7 @@
       "Thomas R. Wyant, III F<wyant at cpan dot org>"
    ],
    "dynamic_config" : 1,
-   "generated_by" : "Module::Build version 0.4232",
+   "generated_by" : "Module::Build version 0.4234",
    "license" : [
       "perl_5"
    ],
@@ -60,7 +60,7 @@
    "provides" : {
       "PPIx::Regexp" : {
          "file" : "lib/PPIx/Regexp.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Constant" : {
          "file" : "lib/PPIx/Regexp/Constant.pm",
@@ -68,259 +68,259 @@
       },
       "PPIx::Regexp::Constant::Inf" : {
          "file" : "lib/PPIx/Regexp/Constant.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Dumper" : {
          "file" : "lib/PPIx/Regexp/Dumper.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Element" : {
          "file" : "lib/PPIx/Regexp/Element.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Lexer" : {
          "file" : "lib/PPIx/Regexp/Lexer.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Node" : {
          "file" : "lib/PPIx/Regexp/Node.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Node::Range" : {
          "file" : "lib/PPIx/Regexp/Node/Range.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Node::Unknown" : {
          "file" : "lib/PPIx/Regexp/Node/Unknown.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Structure" : {
          "file" : "lib/PPIx/Regexp/Structure.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Structure::Assertion" : {
          "file" : "lib/PPIx/Regexp/Structure/Assertion.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Structure::Atomic_Script_Run" : {
          "file" : "lib/PPIx/Regexp/Structure/Atomic_Script_Run.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Structure::BranchReset" : {
          "file" : "lib/PPIx/Regexp/Structure/BranchReset.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Structure::Capture" : {
          "file" : "lib/PPIx/Regexp/Structure/Capture.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Structure::CharClass" : {
          "file" : "lib/PPIx/Regexp/Structure/CharClass.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Structure::Code" : {
          "file" : "lib/PPIx/Regexp/Structure/Code.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Structure::Main" : {
          "file" : "lib/PPIx/Regexp/Structure/Main.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Structure::Modifier" : {
          "file" : "lib/PPIx/Regexp/Structure/Modifier.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Structure::NamedCapture" : {
          "file" : "lib/PPIx/Regexp/Structure/NamedCapture.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Structure::Quantifier" : {
          "file" : "lib/PPIx/Regexp/Structure/Quantifier.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Structure::RegexSet" : {
          "file" : "lib/PPIx/Regexp/Structure/RegexSet.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Structure::Regexp" : {
          "file" : "lib/PPIx/Regexp/Structure/Regexp.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Structure::Replacement" : {
          "file" : "lib/PPIx/Regexp/Structure/Replacement.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Structure::Script_Run" : {
          "file" : "lib/PPIx/Regexp/Structure/Script_Run.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Structure::Subexpression" : {
          "file" : "lib/PPIx/Regexp/Structure/Subexpression.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Structure::Switch" : {
          "file" : "lib/PPIx/Regexp/Structure/Switch.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Structure::Unknown" : {
          "file" : "lib/PPIx/Regexp/Structure/Unknown.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Support" : {
          "file" : "lib/PPIx/Regexp/Support.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token" : {
          "file" : "lib/PPIx/Regexp/Token.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Assertion" : {
          "file" : "lib/PPIx/Regexp/Token/Assertion.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Backreference" : {
          "file" : "lib/PPIx/Regexp/Token/Backreference.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Backtrack" : {
          "file" : "lib/PPIx/Regexp/Token/Backtrack.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::CharClass" : {
          "file" : "lib/PPIx/Regexp/Token/CharClass.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::CharClass::POSIX" : {
          "file" : "lib/PPIx/Regexp/Token/CharClass/POSIX.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::CharClass::POSIX::Unknown" : {
          "file" : "lib/PPIx/Regexp/Token/CharClass/POSIX/Unknown.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::CharClass::Simple" : {
          "file" : "lib/PPIx/Regexp/Token/CharClass/Simple.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Code" : {
          "file" : "lib/PPIx/Regexp/Token/Code.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Comment" : {
          "file" : "lib/PPIx/Regexp/Token/Comment.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Condition" : {
          "file" : "lib/PPIx/Regexp/Token/Condition.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Control" : {
          "file" : "lib/PPIx/Regexp/Token/Control.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Delimiter" : {
          "file" : "lib/PPIx/Regexp/Token/Delimiter.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Greediness" : {
          "file" : "lib/PPIx/Regexp/Token/Greediness.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::GroupType" : {
          "file" : "lib/PPIx/Regexp/Token/GroupType.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::GroupType::Assertion" : {
          "file" : "lib/PPIx/Regexp/Token/GroupType/Assertion.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::GroupType::Atomic_Script_Run" : {
          "file" : "lib/PPIx/Regexp/Token/GroupType/Atomic_Script_Run.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::GroupType::BranchReset" : {
          "file" : "lib/PPIx/Regexp/Token/GroupType/BranchReset.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::GroupType::Code" : {
          "file" : "lib/PPIx/Regexp/Token/GroupType/Code.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::GroupType::Modifier" : {
          "file" : "lib/PPIx/Regexp/Token/GroupType/Modifier.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::GroupType::NamedCapture" : {
          "file" : "lib/PPIx/Regexp/Token/GroupType/NamedCapture.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::GroupType::Script_Run" : {
          "file" : "lib/PPIx/Regexp/Token/GroupType/Script_Run.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::GroupType::Subexpression" : {
          "file" : "lib/PPIx/Regexp/Token/GroupType/Subexpression.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::GroupType::Switch" : {
          "file" : "lib/PPIx/Regexp/Token/GroupType/Switch.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Interpolation" : {
          "file" : "lib/PPIx/Regexp/Token/Interpolation.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Literal" : {
          "file" : "lib/PPIx/Regexp/Token/Literal.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Modifier" : {
          "file" : "lib/PPIx/Regexp/Token/Modifier.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::NoOp" : {
          "file" : "lib/PPIx/Regexp/Token/NoOp.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Operator" : {
          "file" : "lib/PPIx/Regexp/Token/Operator.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Quantifier" : {
          "file" : "lib/PPIx/Regexp/Token/Quantifier.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Recursion" : {
          "file" : "lib/PPIx/Regexp/Token/Recursion.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Reference" : {
          "file" : "lib/PPIx/Regexp/Token/Reference.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Structure" : {
          "file" : "lib/PPIx/Regexp/Token/Structure.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Unknown" : {
          "file" : "lib/PPIx/Regexp/Token/Unknown.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Unmatched" : {
          "file" : "lib/PPIx/Regexp/Token/Unmatched.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Token::Whitespace" : {
          "file" : "lib/PPIx/Regexp/Token/Whitespace.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Tokenizer" : {
          "file" : "lib/PPIx/Regexp/Tokenizer.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       },
       "PPIx::Regexp::Util" : {
          "file" : "lib/PPIx/Regexp/Util.pm",
-         "version" : "0.088"
+         "version" : "0.089"
       }
    },
    "release_status" : "stable",
@@ -338,6 +338,6 @@
          "web" : "https://github.com/trwyant/perl-PPIx-Regexp"
       }
    },
-   "version" : "0.088",
+   "version" : "0.089",
    "x_serialization_backend" : "JSON::PP version 4.16"
 }
diff -pruN 0.088-1/META.yml 0.089-1/META.yml
--- 0.088-1/META.yml	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/META.yml	2025-05-18 19:35:35.000000000 +0000
@@ -12,7 +12,7 @@ configure_requires:
   strict: '0'
   warnings: '0'
 dynamic_config: 1
-generated_by: 'Module::Build version 0.4232, CPAN::Meta::Converter version 2.150010'
+generated_by: 'Module::Build version 0.4234, CPAN::Meta::Converter version 2.150010'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -28,202 +28,202 @@ no_index:
 provides:
   PPIx::Regexp:
     file: lib/PPIx/Regexp.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Constant:
     file: lib/PPIx/Regexp/Constant.pm
     version: 0.085_04
   PPIx::Regexp::Constant::Inf:
     file: lib/PPIx/Regexp/Constant.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Dumper:
     file: lib/PPIx/Regexp/Dumper.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Element:
     file: lib/PPIx/Regexp/Element.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Lexer:
     file: lib/PPIx/Regexp/Lexer.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Node:
     file: lib/PPIx/Regexp/Node.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Node::Range:
     file: lib/PPIx/Regexp/Node/Range.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Node::Unknown:
     file: lib/PPIx/Regexp/Node/Unknown.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Structure:
     file: lib/PPIx/Regexp/Structure.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Structure::Assertion:
     file: lib/PPIx/Regexp/Structure/Assertion.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Structure::Atomic_Script_Run:
     file: lib/PPIx/Regexp/Structure/Atomic_Script_Run.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Structure::BranchReset:
     file: lib/PPIx/Regexp/Structure/BranchReset.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Structure::Capture:
     file: lib/PPIx/Regexp/Structure/Capture.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Structure::CharClass:
     file: lib/PPIx/Regexp/Structure/CharClass.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Structure::Code:
     file: lib/PPIx/Regexp/Structure/Code.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Structure::Main:
     file: lib/PPIx/Regexp/Structure/Main.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Structure::Modifier:
     file: lib/PPIx/Regexp/Structure/Modifier.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Structure::NamedCapture:
     file: lib/PPIx/Regexp/Structure/NamedCapture.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Structure::Quantifier:
     file: lib/PPIx/Regexp/Structure/Quantifier.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Structure::RegexSet:
     file: lib/PPIx/Regexp/Structure/RegexSet.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Structure::Regexp:
     file: lib/PPIx/Regexp/Structure/Regexp.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Structure::Replacement:
     file: lib/PPIx/Regexp/Structure/Replacement.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Structure::Script_Run:
     file: lib/PPIx/Regexp/Structure/Script_Run.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Structure::Subexpression:
     file: lib/PPIx/Regexp/Structure/Subexpression.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Structure::Switch:
     file: lib/PPIx/Regexp/Structure/Switch.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Structure::Unknown:
     file: lib/PPIx/Regexp/Structure/Unknown.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Support:
     file: lib/PPIx/Regexp/Support.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token:
     file: lib/PPIx/Regexp/Token.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Assertion:
     file: lib/PPIx/Regexp/Token/Assertion.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Backreference:
     file: lib/PPIx/Regexp/Token/Backreference.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Backtrack:
     file: lib/PPIx/Regexp/Token/Backtrack.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::CharClass:
     file: lib/PPIx/Regexp/Token/CharClass.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::CharClass::POSIX:
     file: lib/PPIx/Regexp/Token/CharClass/POSIX.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::CharClass::POSIX::Unknown:
     file: lib/PPIx/Regexp/Token/CharClass/POSIX/Unknown.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::CharClass::Simple:
     file: lib/PPIx/Regexp/Token/CharClass/Simple.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Code:
     file: lib/PPIx/Regexp/Token/Code.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Comment:
     file: lib/PPIx/Regexp/Token/Comment.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Condition:
     file: lib/PPIx/Regexp/Token/Condition.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Control:
     file: lib/PPIx/Regexp/Token/Control.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Delimiter:
     file: lib/PPIx/Regexp/Token/Delimiter.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Greediness:
     file: lib/PPIx/Regexp/Token/Greediness.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::GroupType:
     file: lib/PPIx/Regexp/Token/GroupType.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::GroupType::Assertion:
     file: lib/PPIx/Regexp/Token/GroupType/Assertion.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::GroupType::Atomic_Script_Run:
     file: lib/PPIx/Regexp/Token/GroupType/Atomic_Script_Run.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::GroupType::BranchReset:
     file: lib/PPIx/Regexp/Token/GroupType/BranchReset.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::GroupType::Code:
     file: lib/PPIx/Regexp/Token/GroupType/Code.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::GroupType::Modifier:
     file: lib/PPIx/Regexp/Token/GroupType/Modifier.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::GroupType::NamedCapture:
     file: lib/PPIx/Regexp/Token/GroupType/NamedCapture.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::GroupType::Script_Run:
     file: lib/PPIx/Regexp/Token/GroupType/Script_Run.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::GroupType::Subexpression:
     file: lib/PPIx/Regexp/Token/GroupType/Subexpression.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::GroupType::Switch:
     file: lib/PPIx/Regexp/Token/GroupType/Switch.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Interpolation:
     file: lib/PPIx/Regexp/Token/Interpolation.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Literal:
     file: lib/PPIx/Regexp/Token/Literal.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Modifier:
     file: lib/PPIx/Regexp/Token/Modifier.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::NoOp:
     file: lib/PPIx/Regexp/Token/NoOp.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Operator:
     file: lib/PPIx/Regexp/Token/Operator.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Quantifier:
     file: lib/PPIx/Regexp/Token/Quantifier.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Recursion:
     file: lib/PPIx/Regexp/Token/Recursion.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Reference:
     file: lib/PPIx/Regexp/Token/Reference.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Structure:
     file: lib/PPIx/Regexp/Token/Structure.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Unknown:
     file: lib/PPIx/Regexp/Token/Unknown.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Unmatched:
     file: lib/PPIx/Regexp/Token/Unmatched.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Token::Whitespace:
     file: lib/PPIx/Regexp/Token/Whitespace.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Tokenizer:
     file: lib/PPIx/Regexp/Tokenizer.pm
-    version: '0.088'
+    version: '0.089'
   PPIx::Regexp::Util:
     file: lib/PPIx/Regexp/Util.pm
-    version: '0.088'
+    version: '0.089'
 requires:
   Carp: '0'
   Encode: '0'
@@ -243,5 +243,5 @@ resources:
   bugtracker: https://rt.cpan.org/Public/Dist/Display.html?Name=PPIx-Regexp
   license: http://dev.perl.org/licenses/
   repository: git://github.com/trwyant/perl-PPIx-Regexp.git
-version: '0.088'
-x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
+version: '0.089'
+x_serialization_backend: 'CPAN::Meta::YAML version 0.020'
diff -pruN 0.088-1/README 0.089-1/README
--- 0.088-1/README	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/README	2025-05-18 19:35:35.000000000 +0000
@@ -1,4 +1,4 @@
-PPIx-Regexp is Copyright (C) 2009-2023 by Thomas R. Wyant, III
+PPIx-Regexp is Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 DESCRIPTION
 
diff -pruN 0.088-1/debian/changelog 0.089-1/debian/changelog
--- 0.088-1/debian/changelog	2023-03-05 20:04:42.000000000 +0000
+++ 0.089-1/debian/changelog	2025-08-18 14:43:57.000000000 +0000
@@ -1,3 +1,13 @@
+libppix-regexp-perl (0.089-1) unstable; urgency=medium
+
+  * Import upstream version 0.089.
+  * Update copyright years for upstream files
+  * Update copyright years for debian/* packaging files
+  * Declare compliance with Debian policy 4.7.2
+  * Make versioned (Build-)Depends(-Indep) on libppi-perl unversioned
+
+ -- Salvatore Bonaccorso <carnil@debian.org>  Mon, 18 Aug 2025 16:43:57 +0200
+
 libppix-regexp-perl (0.088-1) unstable; urgency=medium
 
   * Import upstream version 0.088.
diff -pruN 0.088-1/debian/control 0.089-1/debian/control
--- 0.088-1/debian/control	2023-03-05 20:04:42.000000000 +0000
+++ 0.089-1/debian/control	2025-08-18 14:43:57.000000000 +0000
@@ -9,9 +9,9 @@ Build-Depends: debhelper-compat (= 13),
                libmodule-build-perl,
                perl
 Build-Depends-Indep: liblist-moreutils-perl <!nocheck>,
-                     libppi-perl (>= 1.238) <!nocheck>,
+                     libppi-perl <!nocheck>,
                      libtask-weaken-perl <!nocheck>
-Standards-Version: 4.6.2
+Standards-Version: 4.7.2
 Vcs-Browser: https://salsa.debian.org/perl-team/modules/packages/libppix-regexp-perl
 Vcs-Git: https://salsa.debian.org/perl-team/modules/packages/libppix-regexp-perl.git
 Homepage: https://metacpan.org/release/PPIx-Regexp
@@ -21,7 +21,7 @@ Package: libppix-regexp-perl
 Architecture: all
 Depends: ${misc:Depends},
          ${perl:Depends},
-         libppi-perl (>= 1.238),
+         libppi-perl,
          libtask-weaken-perl
 Description: module to parse regular expressions
  PPIx::Regexp is a Perl module that parses regular expressions in a manner
diff -pruN 0.088-1/debian/copyright 0.089-1/debian/copyright
--- 0.088-1/debian/copyright	2023-03-05 20:04:42.000000000 +0000
+++ 0.089-1/debian/copyright	2025-08-18 14:43:57.000000000 +0000
@@ -4,14 +4,14 @@ Upstream-Contact: Tom Wyant <wyant@cpan.
 Source: https://metacpan.org/release/PPIx-Regexp
 
 Files: *
-Copyright: 2009-2023, Tom Wyant <wyant@cpan.org>
+Copyright: 2009-2025, Tom Wyant <wyant@cpan.org>
 License: Artistic or GPL-1+
 
 Files: debian/*
 Copyright: 2009, 2010, Jonathan Yu <jawnsy@cpan.org>
            2009, Jose Luis Rivas <ghostbar@debian.org>
            2010, Ansgar Burchardt <ansgar@debian.org>
-           2010-2023, Salvatore Bonaccorso <carnil@debian.org>
+           2010-2025, Salvatore Bonaccorso <carnil@debian.org>
            2022, Nick Morrott <nickm@debian.org>
 License: Artistic or GPL-1+
 
diff -pruN 0.088-1/eg/find-variable-length-lookarounds 0.089-1/eg/find-variable-length-lookarounds
--- 0.088-1/eg/find-variable-length-lookarounds	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/eg/find-variable-length-lookarounds	2025-05-18 19:35:35.000000000 +0000
@@ -12,7 +12,7 @@ use Pod::Usage;
 use PPI::Document;
 use PPIx::Regexp;
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 my %opt;
 
@@ -216,7 +216,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2019-2023 by Thomas R. Wyant, III
+Copyright (C) 2019-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/eg/interpolated 0.089-1/eg/interpolated
--- 0.088-1/eg/interpolated	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/eg/interpolated	2025-05-18 19:35:35.000000000 +0000
@@ -115,7 +115,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2010-2023 by Thomas R. Wyant, III
+Copyright (C) 2010-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/eg/preaccepts 0.089-1/eg/preaccepts
--- 0.088-1/eg/preaccepts	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/eg/preaccepts	2025-05-18 19:35:35.000000000 +0000
@@ -9,7 +9,7 @@ use Getopt::Long 2.33 qw{ :config auto_v
 use Pod::Usage;
 use PPIx::Regexp;
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 my %opt;
 
@@ -65,7 +65,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2017-2023 by Thomas R. Wyant, III
+Copyright (C) 2017-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/eg/predump 0.089-1/eg/predump
--- 0.088-1/eg/predump	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/eg/predump	2025-05-18 19:35:35.000000000 +0000
@@ -21,7 +21,7 @@ use Scalar::Util qw{ refaddr };
 
 use vars qw{ $VERSION };
 
-$VERSION = '0.088';
+$VERSION = '0.089';
 
 my %opt = (
     default_modifiers => [],
@@ -332,7 +332,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/eg/prenav 0.089-1/eg/prenav
--- 0.088-1/eg/prenav	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/eg/prenav	2025-05-18 19:35:35.000000000 +0000
@@ -247,7 +247,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/eg/preslurp 0.089-1/eg/preslurp
--- 0.088-1/eg/preslurp	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/eg/preslurp	2025-05-18 19:35:35.000000000 +0000
@@ -14,7 +14,7 @@ use PPIx::Regexp;
 use PPIx::Regexp::Dumper;
 use PPIx::Regexp::Tokenizer;
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 my %opt = (
     verbose	=> 0,
@@ -308,7 +308,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/inc/My/Module/Build.pm 0.089-1/inc/My/Module/Build.pm
--- 0.088-1/inc/My/Module/Build.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/inc/My/Module/Build.pm	2025-05-18 19:35:35.000000000 +0000
@@ -6,7 +6,7 @@ use warnings;
 use Module::Build;
 our @ISA = qw{ Module::Build };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 use Carp;
 
@@ -81,7 +81,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/inc/My/Module/Meta.pm 0.089-1/inc/My/Module/Meta.pm
--- 0.088-1/inc/My/Module/Meta.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/inc/My/Module/Meta.pm	2025-05-18 19:35:35.000000000 +0000
@@ -349,7 +349,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2010-2023 by Thomas R. Wyant, III
+Copyright (C) 2010-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/inc/My/Module/Mock_Tokenizer.pm 0.089-1/inc/My/Module/Mock_Tokenizer.pm
--- 0.088-1/inc/My/Module/Mock_Tokenizer.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/inc/My/Module/Mock_Tokenizer.pm	2025-05-18 19:35:35.000000000 +0000
@@ -7,7 +7,7 @@ use warnings;
 
 use Carp;
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 use constant ARRAY_REF	=> ref [];
 
@@ -124,7 +124,7 @@ Tom Wyant (wyant at cpan dot org)
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2015-2023 by Thomas R. Wyant, III
+Copyright (C) 2015-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/inc/My/Module/Test.pm 0.089-1/inc/My/Module/Test.pm
--- 0.088-1/inc/My/Module/Test.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/inc/My/Module/Test.pm	2025-05-18 19:35:35.000000000 +0000
@@ -16,12 +16,11 @@ use PPIx::Regexp::Util qw{ __choose_toke
 use Scalar::Util qw{ looks_like_number refaddr };
 use Test::More 0.88;
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 use constant ARRAY_REF	=> ref [];
 
 our @EXPORT_OK = qw{
-    builder
     cache_count
     choose
     klass
@@ -79,10 +78,6 @@ my (
     $result,		# Operation result.
 );
 
-sub builder {
-    return Test::More->builder();
-}
-
 sub cache_count {
     my ( $expect ) = @_;
     defined $expect or $expect = 0;
@@ -92,7 +87,7 @@ sub cache_count {
     $result = PPIx::Regexp->__cache_size();
     # cperl does not seem to like goto &xxx; it throws a deep recursion
     # error if you do it enough times.
-    $Test::Builder::Level = $Test::Builder::Level + 1;
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
     return is( $result, $expect,
 	"Should be $expect leftover cache contents" );
 }
@@ -108,9 +103,9 @@ sub klass {
     $result = ref $obj || $obj;
     # cperl does not seem to like goto &xxx; it throws a deep recursion
     # error if you do it enough times.
-    $Test::Builder::Level = $Test::Builder::Level + 1;
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
     if ( defined $class ) {
-	my $rslt = isa_ok( $obj, $class, "$kind $nav" )
+	my $rslt = isa_ok( $obj, $class )
 	    or diag "    Instead, $kind $nav isa $result";
 	return $rslt;
     } else {
@@ -129,7 +124,7 @@ sub count {
     my $expect = pop @args;
     # cperl does not seem to like goto &xxx; it throws a deep recursion
     # error if you do it enough times.
-    $Test::Builder::Level = $Test::Builder::Level + 1;
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
     if ( ARRAY_REF eq ref $parse ) {
 	$result = @{ $parse };
 	return is( $result, $expect, "Expect $expect tokens" );
@@ -151,7 +146,7 @@ sub different {
     my ( $left, $right, $name ) = @args;
     # cperl does not seem to like goto &xxx; it throws a deep recursion
     # error if you do it enough times.
-    $Test::Builder::Level = $Test::Builder::Level + 1;
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
     if ( ! defined $left && ! defined $right ) {
 	return ok( undef, $name );
     } elsif ( ! defined $left || ! defined $right ) {
@@ -174,7 +169,7 @@ sub dump_result {
 	my $got = PPIx::Regexp::Dumper->new( $obj, @args )->string();
 	# cperl does not seem to like goto &xxx; it throws a deep
 	# recursion error if you do it enough times.
-	$Test::Builder::Level = $Test::Builder::Level + 1;
+	local $Test::Builder::Level = $Test::Builder::Level + 1;
 	return is( $got, $expect, $name );
     } elsif ( __instance( $result, 'PPIx::Regexp::Tokenizer' ) ||
 	__instance( $result, 'PPIx::Regexp::Element' ) ) {
@@ -195,7 +190,7 @@ sub equals {
     my ( $left, $right, $name ) = @args;
     # cperl does not seem to like goto &xxx; it throws a deep recursion
     # error if you do it enough times.
-    $Test::Builder::Level = $Test::Builder::Level + 1;
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
     if ( ! defined $left && ! defined $right ) {
 	return ok( 1, $name );
     } elsif ( ! defined $left || ! defined $right ) {
@@ -223,7 +218,7 @@ sub false {
     my $class = ref $obj;
     # cperl does not seem to like goto &xxx; it throws a deep recursion
     # error if you do it enough times.
-    $Test::Builder::Level = $Test::Builder::Level + 1;
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
     if ( $obj->can( $method ) ) {
 	$result = $obj->$method( @{ $args } );
 	my $fmtd = _format_args( $args );
@@ -240,7 +235,7 @@ sub finis {
     $result = PPIx::Regexp::Element->__parent_keys();
     # cperl does not seem to like goto &xxx; it throws a deep recursion
     # error if you do it enough times.
-    $Test::Builder::Level = $Test::Builder::Level + 1;
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
     return is( $result, 0, 'Should be no leftover objects' );
 }
 
@@ -308,9 +303,8 @@ sub parse {		## no critic (RequireArgUnp
     $opt->{test} or return;
     # cperl does not seem to like goto &xxx; it throws a deep recursion
     # error if you do it enough times.
-    $Test::Builder::Level = $Test::Builder::Level + 1;
-    return isa_ok( $parse, 'PPIx::Regexp',
-	_replace_characters( $regexp ) );
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
+    return isa_ok( $parse, 'PPIx::Regexp' );
 }
 
 sub ppi {		## no critic (RequireArgUnpacking)
@@ -326,7 +320,7 @@ sub ppi {		## no critic (RequireArgUnpac
     }
     # cperl does not seem to like goto &xxx; it throws a deep recursion
     # error if you do it enough times.
-    $Test::Builder::Level = $Test::Builder::Level + 1;
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
     return is( $result, $expect, "$kind $nav ppi() content '$safe'" );
 }
 
@@ -334,7 +328,7 @@ sub raw_width {
     my ( $min, $max, $name ) = @_;
     defined $name
 	or $name = sprintf q<%s '%s'>, ref $obj, $obj->content();
-    $Test::Builder::Level = $Test::Builder::Level + 1;
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
     my @width = $obj->raw_width();
     return is( $width[0], $min, "$name raw minimum witdh" ) && is(
 	$width[1], $max, "$name raw maximum width" );
@@ -364,9 +358,8 @@ sub tokenize {		## no critic (RequireArg
     $result = $parse;
     $nav = '';
     $opt->{test} or return;
-    $Test::Builder::Level = $Test::Builder::Level + 1;
-    return isa_ok( $obj, 'PPIx::Regexp::Tokenizer',
-	_replace_characters( $regexp ) );
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
+    return isa_ok( $obj, 'PPIx::Regexp::Tokenizer' );
 }
 
 sub true {		## no critic (RequireArgUnpacking)
@@ -376,7 +369,7 @@ sub true {		## no critic (RequireArgUnpa
     my $class = ref $obj;
     # cperl does not seem to like goto &xxx; it throws a deep recursion
     # error if you do it enough times.
-    $Test::Builder::Level = $Test::Builder::Level + 1;
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
     if ( $obj->can( $method ) ) {
 	$result = $obj->$method( @{ $args } );
 	my $fmtd = _format_args( $args );
@@ -396,7 +389,7 @@ sub value {		## no critic (RequireArgUnp
     my $class = ref $obj || $obj || $initial_class;
     # cperl does not seem to like goto &xxx; it throws a deep recursion
     # error if you do it enough times.
-    $Test::Builder::Level = $Test::Builder::Level + 1;
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
     if ( ! $invocant->can( $method ) ) {
 	return ok( undef, "$class->$method() exists" );
     }
@@ -420,7 +413,7 @@ sub width {
     my ( $min, $max, $name ) = @_;
     defined $name
 	or $name = sprintf q<%s '%s'>, ref $obj, $obj->content();
-    $Test::Builder::Level = $Test::Builder::Level + 1;
+    local $Test::Builder::Level = $Test::Builder::Level + 1;
     my @width = $obj->width();
     return is( $width[0], $min, "$name minimum witdh" ) && is(
 	$width[1], $max, "$name maximum width" );
@@ -565,11 +558,6 @@ objects, but rather the state of the sys
 
 The following subroutines are exported:
 
-=head2 builder
-
-This subroutine returns the underlying L<Test::Builder|Test::Builder>
-object.
-
 =head2 cache_count
 
  cache_count( 1 );
@@ -827,7 +815,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Constant.pm 0.089-1/lib/PPIx/Regexp/Constant.pm
--- 0.088-1/lib/PPIx/Regexp/Constant.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Constant.pm	2025-05-18 19:35:35.000000000 +0000
@@ -13,7 +13,7 @@ use warnings;
 use Carp;
 use Scalar::Util qw{ refaddr };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 use overload
     # Arithmetic
@@ -519,7 +519,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Dumper.pm 0.089-1/lib/PPIx/Regexp/Dumper.pm
--- 0.088-1/lib/PPIx/Regexp/Dumper.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Dumper.pm	2025-05-18 19:35:35.000000000 +0000
@@ -49,7 +49,7 @@ use PPIx::Regexp::Constant qw{
 use PPIx::Regexp::Tokenizer;
 use PPIx::Regexp::Util qw{ __choose_tokenizer_class __instance };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 use constant LOCATION_WIDTH	=> 19;
 
@@ -951,7 +951,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Element.pm 0.089-1/lib/PPIx/Regexp/Element.pm
--- 0.088-1/lib/PPIx/Regexp/Element.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Element.pm	2025-05-18 19:35:35.000000000 +0000
@@ -54,7 +54,7 @@ use PPIx::Regexp::Constant qw{
     @CARP_NOT
 };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 =head2 accepts_perl
 
@@ -144,7 +144,7 @@ C<ref $self>.
 
 =cut
 
-sub class {
+sub class : method {	## no critic (ProhibitBuiltinHomonyms)
     my ( $self ) = @_;
     return ref $self;
 }
@@ -1198,7 +1198,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Lexer.pm 0.089-1/lib/PPIx/Regexp/Lexer.pm
--- 0.088-1/lib/PPIx/Regexp/Lexer.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Lexer.pm	2025-05-18 19:35:35.000000000 +0000
@@ -69,7 +69,7 @@ use PPIx::Regexp::Token::Unmatched			();
 use PPIx::Regexp::Tokenizer				();
 use PPIx::Regexp::Util qw{ __choose_tokenizer_class __instance };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 =head2 new
 
@@ -606,7 +606,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Node/Range.pm 0.089-1/lib/PPIx/Regexp/Node/Range.pm
--- 0.088-1/lib/PPIx/Regexp/Node/Range.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Node/Range.pm	2025-05-18 19:35:35.000000000 +0000
@@ -40,7 +40,7 @@ use PPIx::Regexp::Constant qw{
     @CARP_NOT
 };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 sub explain {
     my ( $self ) = @_;
@@ -125,7 +125,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Node/Unknown.pm 0.089-1/lib/PPIx/Regexp/Node/Unknown.pm
--- 0.088-1/lib/PPIx/Regexp/Node/Unknown.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Node/Unknown.pm	2025-05-18 19:35:35.000000000 +0000
@@ -10,7 +10,7 @@ use base qw{ PPIx::Regexp::Node };
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 use PPIx::Regexp::Util;
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 *__PPIX_ELEM__post_reblessing = \&PPIx::Regexp::Util::__post_rebless_error;
 
@@ -59,7 +59,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2016-2023 by Thomas R. Wyant, III
+Copyright (C) 2016-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Node.pm 0.089-1/lib/PPIx/Regexp/Node.pm
--- 0.088-1/lib/PPIx/Regexp/Node.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Node.pm	2025-05-18 19:35:35.000000000 +0000
@@ -50,7 +50,7 @@ use PPIx::Regexp::Constant qw{
 use PPIx::Regexp::Util qw{ __instance __merge_perl_requirements width };
 use Scalar::Util qw{ refaddr };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 use constant ELEMENT_UNKNOWN	=> NODE_UNKNOWN;
 
@@ -667,7 +667,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Structure/Assertion.pm 0.089-1/lib/PPIx/Regexp/Structure/Assertion.pm
--- 0.088-1/lib/PPIx/Regexp/Structure/Assertion.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Structure/Assertion.pm	2025-05-18 19:35:35.000000000 +0000
@@ -37,7 +37,7 @@ use base qw{ PPIx::Regexp::Structure };
 use Carp qw{ confess };
 use List::Util qw{ max };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 use PPIx::Regexp::Constant qw{
     LITERAL_LEFT_CURLY_ALLOWED
@@ -128,7 +128,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Structure/Atomic_Script_Run.pm 0.089-1/lib/PPIx/Regexp/Structure/Atomic_Script_Run.pm
--- 0.088-1/lib/PPIx/Regexp/Structure/Atomic_Script_Run.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Structure/Atomic_Script_Run.pm	2025-05-18 19:35:35.000000000 +0000
@@ -9,7 +9,7 @@ use base qw{ PPIx::Regexp::Structure };
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 1;
 
@@ -59,7 +59,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2018-2023 by Thomas R. Wyant, III
+Copyright (C) 2018-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Structure/BranchReset.pm 0.089-1/lib/PPIx/Regexp/Structure/BranchReset.pm
--- 0.088-1/lib/PPIx/Regexp/Structure/BranchReset.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Structure/BranchReset.pm	2025-05-18 19:35:35.000000000 +0000
@@ -37,7 +37,7 @@ use base qw{ PPIx::Regexp::Structure };
 use Carp qw{ confess };
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 # Called by the lexer to record the capture number.
 sub __PPIX_LEXER__record_capture_number {
@@ -75,7 +75,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Structure/Capture.pm 0.089-1/lib/PPIx/Regexp/Structure/Capture.pm
--- 0.088-1/lib/PPIx/Regexp/Structure/Capture.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Structure/Capture.pm	2025-05-18 19:35:35.000000000 +0000
@@ -37,7 +37,7 @@ use base qw{ PPIx::Regexp::Structure };
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 sub explain {
     my ( $self ) = @_;
@@ -95,7 +95,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Structure/CharClass.pm 0.089-1/lib/PPIx/Regexp/Structure/CharClass.pm
--- 0.088-1/lib/PPIx/Regexp/Structure/CharClass.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Structure/CharClass.pm	2025-05-18 19:35:35.000000000 +0000
@@ -40,7 +40,7 @@ use PPIx::Regexp::Constant qw{
 };
 use PPIx::Regexp::Util qw{ :width_one __instance };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 sub __new {
     my ( $class, @args ) = @_;
@@ -102,7 +102,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Structure/Code.pm 0.089-1/lib/PPIx/Regexp/Structure/Code.pm
--- 0.088-1/lib/PPIx/Regexp/Structure/Code.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Structure/Code.pm	2025-05-18 19:35:35.000000000 +0000
@@ -41,7 +41,7 @@ use base qw{ PPIx::Regexp::Structure };
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 # The only child of this structure should be a single
 # PPIx::Regexp::Token::Code. Anything else gets turned into the
@@ -89,7 +89,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Structure/Main.pm 0.089-1/lib/PPIx/Regexp/Structure/Main.pm
--- 0.088-1/lib/PPIx/Regexp/Structure/Main.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Structure/Main.pm	2025-05-18 19:35:35.000000000 +0000
@@ -42,7 +42,7 @@ use base qw{ PPIx::Regexp::Structure };
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 =head2 delimiters
 
@@ -100,7 +100,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Structure/Modifier.pm 0.089-1/lib/PPIx/Regexp/Structure/Modifier.pm
--- 0.088-1/lib/PPIx/Regexp/Structure/Modifier.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Structure/Modifier.pm	2025-05-18 19:35:35.000000000 +0000
@@ -37,7 +37,7 @@ use base qw{ PPIx::Regexp::Structure };
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 # This is a kluge for both determining whether the object asserts
 # modifiers (hence the 'ductype') and determining whether the given
@@ -72,7 +72,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Structure/NamedCapture.pm 0.089-1/lib/PPIx/Regexp/Structure/NamedCapture.pm
--- 0.088-1/lib/PPIx/Regexp/Structure/NamedCapture.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Structure/NamedCapture.pm	2025-05-18 19:35:35.000000000 +0000
@@ -43,7 +43,7 @@ use base qw{ PPIx::Regexp::Structure::Ca
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 sub explain {
     my ( $self ) = @_;
@@ -83,7 +83,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Structure/Quantifier.pm 0.089-1/lib/PPIx/Regexp/Structure/Quantifier.pm
--- 0.088-1/lib/PPIx/Regexp/Structure/Quantifier.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Structure/Quantifier.pm	2025-05-18 19:35:35.000000000 +0000
@@ -52,7 +52,7 @@ use PPIx::Regexp::Constant qw{
     @CARP_NOT
 };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 sub can_be_quantified {
     return;
@@ -232,7 +232,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Structure/RegexSet.pm 0.089-1/lib/PPIx/Regexp/Structure/RegexSet.pm
--- 0.088-1/lib/PPIx/Regexp/Structure/RegexSet.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Structure/RegexSet.pm	2025-05-18 19:35:35.000000000 +0000
@@ -12,7 +12,7 @@ use PPIx::Regexp::Constant qw{
 
 use PPIx::Regexp::Util qw{ :width_one };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 sub __following_literal_left_curly_disallowed_in {
     return LITERAL_LEFT_CURLY_REMOVED_PHASE_2;
@@ -87,7 +87,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2013-2023 by Thomas R. Wyant, III
+Copyright (C) 2013-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Structure/Regexp.pm 0.089-1/lib/PPIx/Regexp/Structure/Regexp.pm
--- 0.088-1/lib/PPIx/Regexp/Structure/Regexp.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Structure/Regexp.pm	2025-05-18 19:35:35.000000000 +0000
@@ -38,7 +38,7 @@ use base qw{ PPIx::Regexp::Structure::Ma
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 sub can_be_quantified { return; }
 
@@ -118,7 +118,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Structure/Replacement.pm 0.089-1/lib/PPIx/Regexp/Structure/Replacement.pm
--- 0.088-1/lib/PPIx/Regexp/Structure/Replacement.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Structure/Replacement.pm	2025-05-18 19:35:35.000000000 +0000
@@ -40,7 +40,7 @@ use base qw{ PPIx::Regexp::Structure::Ma
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 sub can_be_quantified { return; }
 
@@ -65,7 +65,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Structure/Script_Run.pm 0.089-1/lib/PPIx/Regexp/Structure/Script_Run.pm
--- 0.088-1/lib/PPIx/Regexp/Structure/Script_Run.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Structure/Script_Run.pm	2025-05-18 19:35:35.000000000 +0000
@@ -9,7 +9,7 @@ use base qw{ PPIx::Regexp::Structure };
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 1;
 
@@ -60,7 +60,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2018-2023 by Thomas R. Wyant, III
+Copyright (C) 2018-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Structure/Subexpression.pm 0.089-1/lib/PPIx/Regexp/Structure/Subexpression.pm
--- 0.088-1/lib/PPIx/Regexp/Structure/Subexpression.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Structure/Subexpression.pm	2025-05-18 19:35:35.000000000 +0000
@@ -36,7 +36,7 @@ use base qw{ PPIx::Regexp::Structure };
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 1;
 
@@ -55,7 +55,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Structure/Switch.pm 0.089-1/lib/PPIx/Regexp/Structure/Switch.pm
--- 0.088-1/lib/PPIx/Regexp/Structure/Switch.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Structure/Switch.pm	2025-05-18 19:35:35.000000000 +0000
@@ -36,7 +36,7 @@ use base qw{ PPIx::Regexp::Structure };
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 sub __raw_width {
     my ( $self ) = @_;
@@ -117,7 +117,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Structure/Unknown.pm 0.089-1/lib/PPIx/Regexp/Structure/Unknown.pm
--- 0.088-1/lib/PPIx/Regexp/Structure/Unknown.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Structure/Unknown.pm	2025-05-18 19:35:35.000000000 +0000
@@ -37,7 +37,7 @@ use base qw{ PPIx::Regexp::Structure };
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 use PPIx::Regexp::Util;
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 sub __new {
     my ( $class, $content, %arg ) = @_;
@@ -81,7 +81,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Structure.pm 0.089-1/lib/PPIx/Regexp/Structure.pm
--- 0.088-1/lib/PPIx/Regexp/Structure.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Structure.pm	2025-05-18 19:35:35.000000000 +0000
@@ -58,7 +58,7 @@ use PPIx::Regexp::Constant qw{
 use PPIx::Regexp::Util qw{ __instance };
 use Scalar::Util qw{ refaddr };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 use constant ELEMENT_UNKNOWN => STRUCTURE_UNKNOWN;
 
@@ -397,7 +397,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Support.pm 0.089-1/lib/PPIx/Regexp/Support.pm
--- 0.088-1/lib/PPIx/Regexp/Support.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Support.pm	2025-05-18 19:35:35.000000000 +0000
@@ -38,7 +38,7 @@ use warnings;
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 use PPIx::Regexp::Util qw{ __instance };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 =head2 close_bracket
 
@@ -149,7 +149,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Assertion.pm 0.089-1/lib/PPIx/Regexp/Token/Assertion.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Assertion.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Assertion.pm	2025-05-18 19:35:35.000000000 +0000
@@ -58,7 +58,7 @@ use PPIx::Regexp::Constant qw{
 
 use constant KEEP_EXPLANATION	=> 'In s///, keep everything before the \\K';
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 # Return true if the token can be quantified, and false otherwise
 # sub can_be_quantified { return };
@@ -234,7 +234,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Backreference.pm 0.089-1/lib/PPIx/Regexp/Token/Backreference.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Backreference.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Backreference.pm	2025-05-18 19:35:35.000000000 +0000
@@ -44,7 +44,7 @@ use PPIx::Regexp::Constant qw{
 };
 use PPIx::Regexp::Util qw{ __to_ordinal_en width };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 # Return true if the token can be quantified, and false otherwise
 # sub can_be_quantified { return };
@@ -257,7 +257,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Backtrack.pm 0.089-1/lib/PPIx/Regexp/Token/Backtrack.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Backtrack.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Backtrack.pm	2025-05-18 19:35:35.000000000 +0000
@@ -35,7 +35,7 @@ use base qw{ PPIx::Regexp::Token };
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 # Return true if the token can be quantified, and false otherwise
 sub can_be_quantified { return };
@@ -154,7 +154,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/CharClass/POSIX/Unknown.pm 0.089-1/lib/PPIx/Regexp/Token/CharClass/POSIX/Unknown.pm
--- 0.088-1/lib/PPIx/Regexp/Token/CharClass/POSIX/Unknown.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/CharClass/POSIX/Unknown.pm	2025-05-18 19:35:35.000000000 +0000
@@ -9,7 +9,7 @@ use base qw{ PPIx::Regexp::Token::CharCl
 
 use PPIx::Regexp::Constant qw{ MINIMUM_PERL @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 sub perl_version_introduced {
 #   my ( $self ) = @_;
@@ -75,7 +75,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2010-2023 by Thomas R. Wyant, III
+Copyright (C) 2010-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/CharClass/POSIX.pm 0.089-1/lib/PPIx/Regexp/Token/CharClass/POSIX.pm
--- 0.088-1/lib/PPIx/Regexp/Token/CharClass/POSIX.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/CharClass/POSIX.pm	2025-05-18 19:35:35.000000000 +0000
@@ -48,7 +48,7 @@ use PPIx::Regexp::Constant qw{
     @CARP_NOT
 };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 # Return true if the token can be quantified, and false otherwise
 # sub can_be_quantified { return };
@@ -166,7 +166,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/CharClass/Simple.pm 0.089-1/lib/PPIx/Regexp/Token/CharClass/Simple.pm
--- 0.088-1/lib/PPIx/Regexp/Token/CharClass/Simple.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/CharClass/Simple.pm	2025-05-18 19:35:35.000000000 +0000
@@ -46,7 +46,7 @@ use PPIx::Regexp::Constant qw{
     @CARP_NOT
 };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 use constant UNICODE_PROPERTY_LITERAL_VALUE => qr/
 		\{ \s* \^? \w [\w:=\s-]* \} |
@@ -309,7 +309,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/CharClass.pm 0.089-1/lib/PPIx/Regexp/Token/CharClass.pm
--- 0.088-1/lib/PPIx/Regexp/Token/CharClass.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/CharClass.pm	2025-05-18 19:35:35.000000000 +0000
@@ -43,7 +43,7 @@ use PPIx::Regexp::Constant qw{ @CARP_NOT
 
 use PPIx::Regexp::Util qw{ :width_one };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 # Return true if the token can be quantified, and false otherwise
 # sub can_be_quantified { return };
@@ -88,7 +88,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Code.pm 0.089-1/lib/PPIx/Regexp/Token/Code.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Code.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Code.pm	2025-05-18 19:35:35.000000000 +0000
@@ -56,7 +56,7 @@ use PPIx::Regexp::Constant qw{
 };
 use PPIx::Regexp::Util qw{ __instance };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 use constant TOKENIZER_ARGUMENT_REQUIRED => 1;
 use constant VERSION_WHEN_IN_REGEX_SET => undef;
@@ -227,7 +227,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Comment.pm 0.089-1/lib/PPIx/Regexp/Token/Comment.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Comment.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Comment.pm	2025-05-18 19:35:35.000000000 +0000
@@ -36,7 +36,7 @@ use base qw{ PPIx::Regexp::Token };
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 # Return true if the token can be quantified, and false otherwise
 sub can_be_quantified { return };
@@ -96,7 +96,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Condition.pm 0.089-1/lib/PPIx/Regexp/Token/Condition.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Condition.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Condition.pm	2025-05-18 19:35:35.000000000 +0000
@@ -37,7 +37,7 @@ use base qw{ PPIx::Regexp::Token::Refere
 
 use PPIx::Regexp::Constant qw{ RE_CAPTURE_NAME @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 {
 
@@ -134,7 +134,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Control.pm 0.089-1/lib/PPIx/Regexp/Token/Control.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Control.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Control.pm	2025-05-18 19:35:35.000000000 +0000
@@ -49,7 +49,7 @@ use PPIx::Regexp::Constant qw{
     @CARP_NOT
 };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 # Return true if the token can be quantified, and false otherwise
 # sub can_be_quantified { return };
@@ -200,7 +200,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Delimiter.pm 0.089-1/lib/PPIx/Regexp/Token/Delimiter.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Delimiter.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Delimiter.pm	2025-05-18 19:35:35.000000000 +0000
@@ -37,7 +37,7 @@ use base qw{ PPIx::Regexp::Token::Struct
 
 use PPIx::Regexp::Constant qw{ MINIMUM_PERL @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 # Return true if the token can be quantified, and false otherwise
 # sub can_be_quantified { return };
@@ -117,7 +117,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Greediness.pm 0.089-1/lib/PPIx/Regexp/Token/Greediness.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Greediness.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Greediness.pm	2025-05-18 19:35:35.000000000 +0000
@@ -37,7 +37,7 @@ use base qw{ PPIx::Regexp::Token };
 
 use PPIx::Regexp::Constant qw{ MINIMUM_PERL @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 # Return true if the token can be quantified, and false otherwise
 sub can_be_quantified { return };
@@ -107,7 +107,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/GroupType/Assertion.pm 0.089-1/lib/PPIx/Regexp/Token/GroupType/Assertion.pm
--- 0.088-1/lib/PPIx/Regexp/Token/GroupType/Assertion.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/GroupType/Assertion.pm	2025-05-18 19:35:35.000000000 +0000
@@ -39,7 +39,7 @@ use PPIx::Regexp::Constant qw{
     @CARP_NOT
 };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 use constant EXPL_NLA	=> 'Negative look-ahead assertion';
 use constant EXPL_NLB	=> 'Negative look-behind assertion';
@@ -170,7 +170,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/GroupType/Atomic_Script_Run.pm 0.089-1/lib/PPIx/Regexp/Token/GroupType/Atomic_Script_Run.pm
--- 0.088-1/lib/PPIx/Regexp/Token/GroupType/Atomic_Script_Run.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/GroupType/Atomic_Script_Run.pm	2025-05-18 19:35:35.000000000 +0000
@@ -9,7 +9,7 @@ use base qw{ PPIx::Regexp::Token::GroupT
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 use constant EXPL => 'All characters must be in same script, atomic version';
 
@@ -74,7 +74,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2018-2023 by Thomas R. Wyant, III
+Copyright (C) 2018-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/GroupType/BranchReset.pm 0.089-1/lib/PPIx/Regexp/Token/GroupType/BranchReset.pm
--- 0.088-1/lib/PPIx/Regexp/Token/GroupType/BranchReset.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/GroupType/BranchReset.pm	2025-05-18 19:35:35.000000000 +0000
@@ -36,7 +36,7 @@ use base qw{ PPIx::Regexp::Token::GroupT
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 =begin comment
 
@@ -91,7 +91,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/GroupType/Code.pm 0.089-1/lib/PPIx/Regexp/Token/GroupType/Code.pm
--- 0.088-1/lib/PPIx/Regexp/Token/GroupType/Code.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/GroupType/Code.pm	2025-05-18 19:35:35.000000000 +0000
@@ -43,7 +43,7 @@ use base qw{ PPIx::Regexp::Token::GroupT
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 sub __match_setup {
     my ( undef, $tokenizer ) = @_;	# Invocant unused
@@ -99,7 +99,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/GroupType/Modifier.pm 0.089-1/lib/PPIx/Regexp/Token/GroupType/Modifier.pm
--- 0.088-1/lib/PPIx/Regexp/Token/GroupType/Modifier.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/GroupType/Modifier.pm	2025-05-18 19:35:35.000000000 +0000
@@ -38,7 +38,7 @@ use base qw{ PPIx::Regexp::Token::Modifi
 
 use PPIx::Regexp::Constant qw{ MINIMUM_PERL @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 {
 
@@ -121,7 +121,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/GroupType/NamedCapture.pm 0.089-1/lib/PPIx/Regexp/Token/GroupType/NamedCapture.pm
--- 0.088-1/lib/PPIx/Regexp/Token/GroupType/NamedCapture.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/GroupType/NamedCapture.pm	2025-05-18 19:35:35.000000000 +0000
@@ -43,7 +43,7 @@ use Carp qw{ confess };
 
 use PPIx::Regexp::Constant qw{ RE_CAPTURE_NAME @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 use constant TOKENIZER_ARGUMENT_REQUIRED => 1;
 
@@ -117,7 +117,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/GroupType/Script_Run.pm 0.089-1/lib/PPIx/Regexp/Token/GroupType/Script_Run.pm
--- 0.088-1/lib/PPIx/Regexp/Token/GroupType/Script_Run.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/GroupType/Script_Run.pm	2025-05-18 19:35:35.000000000 +0000
@@ -9,7 +9,7 @@ use base qw{ PPIx::Regexp::Token::GroupT
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 use constant EXPL => 'All characters must be in same script';
 
@@ -81,7 +81,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2018-2023 by Thomas R. Wyant, III
+Copyright (C) 2018-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/GroupType/Subexpression.pm 0.089-1/lib/PPIx/Regexp/Token/GroupType/Subexpression.pm
--- 0.088-1/lib/PPIx/Regexp/Token/GroupType/Subexpression.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/GroupType/Subexpression.pm	2025-05-18 19:35:35.000000000 +0000
@@ -36,7 +36,7 @@ use base qw{ PPIx::Regexp::Token::GroupT
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 use constant EXPL	=> 'Match subexpression without backtracking';
 
@@ -70,7 +70,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/GroupType/Switch.pm 0.089-1/lib/PPIx/Regexp/Token/GroupType/Switch.pm
--- 0.088-1/lib/PPIx/Regexp/Token/GroupType/Switch.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/GroupType/Switch.pm	2025-05-18 19:35:35.000000000 +0000
@@ -37,7 +37,7 @@ use base qw{ PPIx::Regexp::Token::GroupT
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 sub __match_setup {
     my ( undef, $tokenizer ) = @_;	# Invocant unused
@@ -75,7 +75,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/GroupType.pm 0.089-1/lib/PPIx/Regexp/Token/GroupType.pm
--- 0.088-1/lib/PPIx/Regexp/Token/GroupType.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/GroupType.pm	2025-05-18 19:35:35.000000000 +0000
@@ -48,7 +48,7 @@ use base qw{ PPIx::Regexp::Token };
 use PPIx::Regexp::Constant qw{ MINIMUM_PERL @CARP_NOT };
 use PPIx::Regexp::Util qw{ __ns_can };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 # Return true if the token can be quantified, and false otherwise
 sub can_be_quantified { return };
@@ -294,7 +294,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Interpolation.pm 0.089-1/lib/PPIx/Regexp/Token/Interpolation.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Interpolation.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Interpolation.pm	2025-05-18 19:35:35.000000000 +0000
@@ -53,7 +53,7 @@ use PPIx::Regexp::Constant qw{
     @CARP_NOT
 };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 use constant VERSION_WHEN_IN_REGEX_SET => '5.017009';
 
@@ -474,7 +474,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Literal.pm 0.089-1/lib/PPIx/Regexp/Token/Literal.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Literal.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Literal.pm	2025-05-18 19:35:35.000000000 +0000
@@ -47,7 +47,7 @@ use PPIx::Regexp::Constant qw{
 
 use PPIx::Regexp::Util qw{ :width_one };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 sub __new {
     my ( $class, $content, %arg ) = @_;
@@ -259,7 +259,10 @@ sub __PPIX_TOKENIZER__regexp {
     # If /x is in effect _and_ we are not inside a character class, \s
     # is whitespace, and '#' introduces a comment. Otherwise they are
     # both literals.
-    if ( $tokenizer->modifier( 'x*' ) &&
+    # NOTE that the mode check is necessary for this section of code
+    # becaise we call this code in both 'regexp' and 'repl' mode.
+    my $heed_x = $tokenizer->get_mode() eq 'regexp';
+    if ( $heed_x && $tokenizer->modifier( 'x*' ) &&
 	! $tokenizer->cookie( COOKIE_CLASS ) ) {
 	my $accept;
 	$accept = $tokenizer->find_regexp( $white_space_re )
@@ -269,7 +272,7 @@ sub __PPIX_TOKENIZER__regexp {
 	    qr{ \A \# [^\n]* (?: \n | \z) }smx )
 	    and return $tokenizer->make_token(
 		$accept, 'PPIx::Regexp::Token::Comment' );
-    } elsif ( $tokenizer->modifier( 'xx' ) &&
+    } elsif ( $heed_x && $tokenizer->modifier( 'xx' ) &&
 	$tokenizer->cookie( COOKIE_CLASS ) ) {
 	my $accept;
 	$accept = $tokenizer->find_regexp( qr{ \A [ \t] }smx )
@@ -446,7 +449,7 @@ It is analogous to the C<ord> built-in.
 
 It will not attempt to determine the ordinal of a unicode name
 (C<\N{...}>) unless L<charnames|charnames> has been loaded, and supports
-the L<vianame()|charnames/charnames::vianame(I<name>)> function.
+the L<vianame()|charnames/charnames::vianame(name)> function.
 Instead, it will return C<undef>. Users of Perl 5.6.2 and older may be
 out of luck here.
 
@@ -642,7 +645,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Modifier.pm 0.089-1/lib/PPIx/Regexp/Token/Modifier.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Modifier.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Modifier.pm	2025-05-18 19:35:35.000000000 +0000
@@ -105,7 +105,7 @@ use PPIx::Regexp::Constant qw{
     @CARP_NOT
 };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 # Define modifiers that are to be aggregated internally for ease of
 # computation.
@@ -502,7 +502,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/NoOp.pm 0.089-1/lib/PPIx/Regexp/Token/NoOp.pm
--- 0.088-1/lib/PPIx/Regexp/Token/NoOp.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/NoOp.pm	2025-05-18 19:35:35.000000000 +0000
@@ -10,7 +10,7 @@ use base qw{ PPIx::Regexp::Token };
 use Carp;
 use PPIx::Regexp::Constant qw{ MINIMUM_PERL @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 {
     my %when_removed = (
@@ -85,7 +85,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2016-2023 by Thomas R. Wyant, III
+Copyright (C) 2016-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Operator.pm 0.089-1/lib/PPIx/Regexp/Token/Operator.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Operator.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Operator.pm	2025-05-18 19:35:35.000000000 +0000
@@ -43,7 +43,7 @@ use PPIx::Regexp::Constant qw{
 };
 use PPIx::Regexp::Util qw{ __instance };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 use constant TOKENIZER_ARGUMENT_REQUIRED => 1;
 
@@ -208,7 +208,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Quantifier.pm 0.089-1/lib/PPIx/Regexp/Token/Quantifier.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Quantifier.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Quantifier.pm	2025-05-18 19:35:35.000000000 +0000
@@ -49,7 +49,7 @@ use PPIx::Regexp::Constant qw{
     @CARP_NOT
 };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 # Return true if the token can be quantified, and false otherwise
 sub can_be_quantified { return };
@@ -160,7 +160,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Recursion.pm 0.089-1/lib/PPIx/Regexp/Token/Recursion.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Recursion.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Recursion.pm	2025-05-18 19:35:35.000000000 +0000
@@ -36,7 +36,7 @@ use base qw{ PPIx::Regexp::Token::Refere
 use Carp qw{ confess };
 use PPIx::Regexp::Constant qw{ RE_CAPTURE_NAME @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 # Return true if the token can be quantified, and false otherwise
 # sub can_be_quantified { return };
@@ -109,7 +109,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Reference.pm 0.089-1/lib/PPIx/Regexp/Token/Reference.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Reference.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Reference.pm	2025-05-18 19:35:35.000000000 +0000
@@ -43,7 +43,7 @@ use Carp qw{ confess };
 use List::Util qw{ first };
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 sub __new {
     my ( $class, $content, %arg ) = @_;
@@ -207,7 +207,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Structure.pm 0.089-1/lib/PPIx/Regexp/Token/Structure.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Structure.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Structure.pm	2025-05-18 19:35:35.000000000 +0000
@@ -54,7 +54,7 @@ use PPIx::Regexp::Token::Backreference	(
 use PPIx::Regexp::Token::Backtrack	();
 use PPIx::Regexp::Token::Recursion	();
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 # Return true if the token can be quantified, and false otherwise
 
@@ -370,7 +370,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Unknown.pm 0.089-1/lib/PPIx/Regexp/Token/Unknown.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Unknown.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Unknown.pm	2025-05-18 19:35:35.000000000 +0000
@@ -41,7 +41,7 @@ use Carp ();
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 use PPIx::Regexp::Util;
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 sub __new {
     my ( $class, $content, %arg ) = @_;
@@ -122,7 +122,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Unmatched.pm 0.089-1/lib/PPIx/Regexp/Token/Unmatched.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Unmatched.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Unmatched.pm	2025-05-18 19:35:35.000000000 +0000
@@ -41,7 +41,7 @@ use base qw{ PPIx::Regexp::Token };
 
 use PPIx::Regexp::Constant qw{ @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 # Return true if the token can be quantified, and false otherwise
 # sub can_be_quantified { return };
@@ -67,7 +67,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token/Whitespace.pm 0.089-1/lib/PPIx/Regexp/Token/Whitespace.pm
--- 0.088-1/lib/PPIx/Regexp/Token/Whitespace.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token/Whitespace.pm	2025-05-18 19:35:35.000000000 +0000
@@ -46,7 +46,7 @@ use PPIx::Regexp::Constant qw{
     @CARP_NOT
 };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 sub __new {
     my ( $class, $content, %arg ) = @_;
@@ -110,7 +110,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Token.pm 0.089-1/lib/PPIx/Regexp/Token.pm
--- 0.088-1/lib/PPIx/Regexp/Token.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Token.pm	2025-05-18 19:35:35.000000000 +0000
@@ -53,7 +53,7 @@ use base qw{PPIx::Regexp::Element};
 use Carp qw{ confess };
 use PPIx::Regexp::Constant qw{ MINIMUM_PERL @CARP_NOT };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 use constant TOKENIZER_ARGUMENT_REQUIRED => 0;
 
@@ -156,7 +156,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Tokenizer.pm 0.089-1/lib/PPIx/Regexp/Tokenizer.pm
--- 0.088-1/lib/PPIx/Regexp/Tokenizer.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Tokenizer.pm	2025-05-18 19:35:35.000000000 +0000
@@ -57,7 +57,7 @@ use PPIx::Regexp::Util qw{
 
 use Scalar::Util qw{ looks_like_number };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 our $DEFAULT_POSTDEREF;
 defined $DEFAULT_POSTDEREF
@@ -1702,7 +1702,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp/Util.pm 0.089-1/lib/PPIx/Regexp/Util.pm
--- 0.088-1/lib/PPIx/Regexp/Util.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp/Util.pm	2025-05-18 19:35:35.000000000 +0000
@@ -33,7 +33,7 @@ our %EXPORT_TAGS = (
     width_one	=> [ qw{ raw_width width } ],
 );
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 sub is_ppi_regexp_element {
     my ( $elem ) = @_;
@@ -304,7 +304,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2010-2023 by Thomas R. Wyant, III
+Copyright (C) 2010-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/lib/PPIx/Regexp.pm 0.089-1/lib/PPIx/Regexp.pm
--- 0.088-1/lib/PPIx/Regexp.pm	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/lib/PPIx/Regexp.pm	2025-05-18 19:35:35.000000000 +0000
@@ -195,7 +195,7 @@ use PPIx::Regexp::Util qw{
 };
 use Scalar::Util qw{ refaddr };
 
-our $VERSION = '0.088';
+our $VERSION = '0.089';
 
 =head2 new
 
@@ -950,7 +950,7 @@ Thomas R. Wyant, III F<wyant at cpan dot
 
 =head1 COPYRIGHT AND LICENSE
 
-Copyright (C) 2009-2023 by Thomas R. Wyant, III
+Copyright (C) 2009-2023, 2025 by Thomas R. Wyant, III
 
 This program is free software; you can redistribute it and/or modify it
 under the same terms as Perl 5.10.0. For more details, see the full text
diff -pruN 0.088-1/t/parse.t 0.089-1/t/parse.t
--- 0.088-1/t/parse.t	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/t/parse.t	2025-05-18 19:35:35.000000000 +0000
@@ -4,27 +4,21 @@ use strict;
 use warnings;
 
 use PPIx::Regexp::Constant qw{ SUFFICIENT_UTF8_SUPPORT_FOR_WEIRD_DELIMITERS };
+
+BEGIN {
+    # NOTE that this MUST be done before Test::More is loaded.
+    if ( SUFFICIENT_UTF8_SUPPORT_FOR_WEIRD_DELIMITERS ) {
+	require 'open.pm';
+	'open'->import( qw{ :std :encoding(utf-8) } );
+    }
+}
+
 use Test::More 0.88;
 
 use lib qw{ inc };
 
 use My::Module::Test;
 
-# NOTE we use this circumlocution to hide the :encoding() from
-# xt/author/minimum_perl.t and Perl::MinimumVersion. The two-argument
-# binmode itself is OK under Perl 5.6 but the :encoding() is not. But if
-# we're 5.6 then SUFFICIENT_UTF8_SUPPORT_FOR_WEIRD_DELIMITERS is false,
-# so the binmode() never gets executed.
-use constant OUTPUT_ENCODING	=> ':encoding(utf-8)';
-
-if ( SUFFICIENT_UTF8_SUPPORT_FOR_WEIRD_DELIMITERS ) {
-    my $builder = My::Module::Test->builder();
-    foreach my $method ( qw{ output failure_output todo_output } ) {
-	my $handle = $builder->$method();
-	binmode $handle, OUTPUT_ENCODING;
-    }
-}
-
 use charnames qw{ :full };
 
 # NOTE: It is intended that all individual tests in this file be
@@ -4275,6 +4269,86 @@ choose  ( child => 2 );
 klass   ( 'PPIx::Regexp::Token::Modifier' );
 content ( 'x' );
 
+tokenize( 's/ x/#y/x' );
+count   ( 9 );
+choose  ( 0 );
+klass   ( 'PPIx::Regexp::Token::Structure' );
+content ( 's' );
+choose  ( 1 );
+klass   ( 'PPIx::Regexp::Token::Delimiter' );
+content ( '/' );
+choose  ( 2 );
+klass   ( 'PPIx::Regexp::Token::Whitespace' );
+content ( ' ' );
+choose  ( 3 );
+klass   ( 'PPIx::Regexp::Token::Literal' );
+content ( 'x' );
+choose  ( 4 );
+klass   ( 'PPIx::Regexp::Token::Delimiter' );
+content ( '/' );
+choose  ( 5 );
+klass   ( 'PPIx::Regexp::Token::Literal' );
+content ( '#' );
+choose  ( 6 );
+klass   ( 'PPIx::Regexp::Token::Literal' );
+content ( 'y' );
+choose  ( 7 );
+klass   ( 'PPIx::Regexp::Token::Delimiter' );
+content ( '/' );
+choose  ( 8 );
+klass   ( 'PPIx::Regexp::Token::Modifier' );
+content ( 'x' );
+
+parse   ( 's/ x/#y/x' );
+value   ( failures => [], 0 );
+klass   ( 'PPIx::Regexp' );
+count   ( 4 );
+choose  ( child => 0 );
+klass   ( 'PPIx::Regexp::Token::Structure' );
+content ( 's' );
+choose  ( child => 1 );
+klass   ( 'PPIx::Regexp::Structure::Regexp' );
+count   ( 1 );
+choose  ( child => 1, start => [] );
+count   ( 2 );
+choose  ( child => 1, start => 0 );
+klass   ( 'PPIx::Regexp::Token::Delimiter' );
+content ( '/' );
+choose  ( child => 1, start => 1 );
+klass   ( 'PPIx::Regexp::Token::Whitespace' );
+content ( ' ' );
+choose  ( child => 1, type => [] );
+count   ( 0 );
+choose  ( child => 1, finish => [] );
+count   ( 1 );
+choose  ( child => 1, finish => 0 );
+klass   ( 'PPIx::Regexp::Token::Delimiter' );
+content ( '/' );
+choose  ( child => 1, child => 0 );
+klass   ( 'PPIx::Regexp::Token::Literal' );
+content ( 'x' );
+choose  ( child => 2 );
+klass   ( 'PPIx::Regexp::Structure::Replacement' );
+count   ( 2 );
+choose  ( child => 2, start => [] );
+count   ( 0 );
+choose  ( child => 2, type => [] );
+count   ( 0 );
+choose  ( child => 2, finish => [] );
+count   ( 1 );
+choose  ( child => 2, finish => 0 );
+klass   ( 'PPIx::Regexp::Token::Delimiter' );
+content ( '/' );
+choose  ( child => 2, child => 0 );
+klass   ( 'PPIx::Regexp::Token::Literal' );
+content ( '#' );
+choose  ( child => 2, child => 1 );
+klass   ( 'PPIx::Regexp::Token::Literal' );
+content ( 'y' );
+choose  ( child => 3 );
+klass   ( 'PPIx::Regexp::Token::Modifier' );
+content ( 'x' );
+
 tokenize( '/(?<foo>x)\\1?\\g{-1}*\\k<foo>{1,3}+/' );
 count   ( 19 );
 choose  ( 0 );
diff -pruN 0.088-1/t/version.t 0.089-1/t/version.t
--- 0.088-1/t/version.t	2023-02-28 11:53:38.000000000 +0000
+++ 0.089-1/t/version.t	2025-05-18 19:35:35.000000000 +0000
@@ -21,23 +21,16 @@ use PPIx::Regexp::Constant qw{
 };
 use Scalar::Util qw{ blessed };
 
-use Test::More 0.88;
-
-# NOTE we use this circumlocution to hide the :encoding() from
-# xt/author/minimum_perl.t and Perl::MinimumVersion. The two-argument
-# binmode itself is OK under Perl 5.6 but the :encoding() is not. But if
-# we're 5.6 then SUFFICIENT_UTF8_SUPPORT_FOR_WEIRD_DELIMITERS is false,
-# so the binmode() never gets executed.
-use constant OUTPUT_ENCODING	=> ':encoding(utf-8)';
-
-if ( SUFFICIENT_UTF8_SUPPORT_FOR_WEIRD_DELIMITERS ) {
-    my $builder = Test::More->builder();
-    foreach my $method ( qw{ output failure_output todo_output } ) {
-	my $handle = $builder->$method();
-	binmode $handle, OUTPUT_ENCODING;
+BEGIN {
+    # NOTE that this MUST be done before Test::More is loaded.
+    if ( SUFFICIENT_UTF8_SUPPORT_FOR_WEIRD_DELIMITERS ) {
+	require 'open.pm';
+	'open'->import( qw{ :std :encoding(utf-8) } );
     }
 }
 
+use Test::More 0.88;
+
 use charnames qw{ :full };
 
 our $REPORT;	# True to report rather than test.