Skip reg_namedcapture.t when run by miniperl

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

diff --git a/t/re/reg_namedcapture.t b/t/re/reg_namedcapture.t
index e3a8374..8fd297c 100644 (file)
--- 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.