Now that pat_{advanced,rt_report}.t use test.pl, use skip_all_if_miniperl().

Neither can run during minitest as miniperl can't load support code for %+ and
%-. If your build is so unwell that it's fallen back to minitest, your problems
are bigger than "advanced" regular expression features not working.

diff --git a/t/re/pat_advanced.t b/t/re/pat_advanced.t
index 4e8a0af..3e7390d 100644 (file)
--- a/t/re/pat_advanced.t
+++ b/t/re/pat_advanced.t
@@ -15,13 +15,10 @@ $| = 1;
 
 
 BEGIN {
-    if (!defined &DynaLoader::boot_DynaLoader) {
-       print "1..0 # Skip miniperl can't load Tie::Hash::NamedCapture, need for %+ and %-\n";
-       exit 0;
-    }
     chdir 't' if -d 't';
     @INC = ('../lib','.');
     require './test.pl';
+    skip_all_if_miniperl("miniperl can't load Tie::Hash::NamedCapture, need for %+ and %-");
 }
 
 run_tests() unless caller;

diff --git a/t/re/pat_rt_report.t b/t/re/pat_rt_report.t
index 5354b99..ea4e6bc 100644 (file)
--- a/t/re/pat_rt_report.t
+++ b/t/re/pat_rt_report.t
@@ -15,13 +15,10 @@ $| = 1;
 
 
 BEGIN {
-    if (!defined &DynaLoader::boot_DynaLoader) {
-       print "1..0 # Skip miniperl can't load Tie::Hash::NamedCapture, need for %+ and %-\n";
-       exit 0;
-    }
     chdir 't' if -d 't';
     @INC = ('../lib','.');
     require './test.pl';
+    skip_all_if_miniperl("miniperl can't load Tie::Hash::NamedCapture, need for %+ and %-");
 }