Skip reg_namedcapture.t when run by miniperl

miniperl has no dynamic loading, so cannot load Tie::Hash::NamedCapture.

1 files changed, 4 insertions, 0 deletions

diff --git a/t/re/reg_namedcapture.t b/t/re/reg_namedcapture.t
index e3a837459d..8fd297c882 100644
--- a/t/re/reg_namedcapture.t
+++ b/t/re/reg_namedcapture.t
@@ -7,6 +7,10 @@ BEGIN {
       print "1..0 # Skip: Errno.pm not yet available\n";
       exit 0;
     }
+    unless (defined &DynaLoader::boot_DynaLoader) {
+      print "1..0 # Skip: no dynamic loading on miniperl, no Tie::Hash::NamedCapture\n";
+      exit 0;
+    }
 }
 
 # WARNING: Do not directly use any modules as part of this test code.