X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/3daac4daa059f320ef363c5084b3d59ffc1341c4..1eb0b7be2ff1216a955a7054a93a0c52c175ceab:/dist/B-Deparse/t/core.t

diff --git a/dist/B-Deparse/t/core.t b/dist/B-Deparse/t/core.t
index 62ff862..de8d280 100644
--- a/dist/B-Deparse/t/core.t
+++ b/dist/B-Deparse/t/core.t
@@ -74,7 +74,7 @@ sub CORE_test {
       $deparse->coderef2text(
          eval "no strict 'vars'; sub { () = $expr }" or die "$@in $expr"
       ),
-      qr/\sCORE::$keyword.*;/,
+      qr/\bCORE::$keyword.*[);]/,
       $name||$keyword  
 }