This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip t/re/pat_{advanced,rt_report}.t under minitest, as they use %- and %+
authorNicholas Clark <nick@ccl4.org>
Wed, 23 Feb 2011 09:35:04 +0000 (09:35 +0000)
committerNicholas Clark <nick@ccl4.org>
Wed, 23 Feb 2011 09:35:04 +0000 (09:35 +0000)
miniperl can't load Tie::Hash::NamedCapture, and as minitest is run if you
have build problems sufficiently severe that you can't bootstrap, it seems
unlikely that the advanced and obscure functionality of the regexp engine is
your most important concern. Hence better to skip it, than to try to bend it
to "portability".

t/re/pat_advanced.t
t/re/pat_rt_report.t

index 5eb24c1..b8ac367 100644 (file)
@@ -15,6 +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','.');
     do "re/ReTest.pl" or die $@;
index 7331756..d18e7ea 100644 (file)
@@ -15,6 +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','.');
     do "re/ReTest.pl" or die $@;