re/anyof.t: Add debugging info

This is in response to
https://github.com/Perl/perl5/pull/19558#issuecomment-1076659884

diff --git a/t/re/anyof.t b/t/re/anyof.t
index 6cc34ef..8ce5cdc 100644 (file)
--- a/t/re/anyof.t
+++ b/t/re/anyof.t
@@ -75,6 +75,10 @@ sub  get_compiled ($) {
     }
 
     $_ = shift @lines;
+    unless (defined $_) {
+        die "Unexpected compilation result: '$result'\n"
+          . " Compiled from '$actual_pattern'";
+    }
 
     s/ \s* \( \d+ \) \s* //x;   # Get rid of the node branch
     s/ ^ \s* \d+ : \s* //x;     # ... And the node number