summaryrefslogtreecommitdiff
path: root/lib/charnames.t
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2020-08-02 20:19:17 -0600
committerKarl Williamson <khw@cpan.org>2020-08-02 20:22:42 -0600
commit740fde89fa2ff46aa80924d8a826b70facd60115 (patch)
tree063d8d19732f5514eb9703cfcd0c48b3ad9acf82 /lib/charnames.t
parentd67f622bde38e53070faaac0240fc2a354364c8a (diff)
downloadperl-740fde89fa2ff46aa80924d8a826b70facd60115.tar.gz
Revert "Revert "Debugging GH #17671.""
This reverts commit 83aa75213860c4aa879853b1bac9e58a116214ab. That commit was itself a reversion, hoping that various changes had fixed a bug. But it has cropped up, so the bug isn't fixed, and so this is the reversion of the reversion.
Diffstat (limited to 'lib/charnames.t')
-rw-r--r--lib/charnames.t4
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/charnames.t b/lib/charnames.t
index 2e7f2535f5..01e1fd7d92 100644
--- a/lib/charnames.t
+++ b/lib/charnames.t
@@ -157,6 +157,10 @@ sub test_vianame ($$$) {
$wildcard_count++;
+ # XXX temporary to see if the failure we are occasionally seeing is
+ # confined to this code point. GH #17671
+ next if $i == 0;
+
# Because wildcard name matching is so real-time intensive, do it less
# frequently than the others
if ($wildcard_count >= 10) {