Skip to content

Commit 2fcf74c

Browse files
committed
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.
1 parent 6f4e018 commit 2fcf74c

File tree

2 files changed

+2
-8
lines changed

2 files changed

+2
-8
lines changed

t/re/pat_advanced.t

+1-4
Original file line numberDiff line numberDiff line change
@@ -15,13 +15,10 @@ $| = 1;
1515

1616

1717
BEGIN {
18-
if (!defined &DynaLoader::boot_DynaLoader) {
19-
print "1..0 # Skip miniperl can't load Tie::Hash::NamedCapture, need for %+ and %-\n";
20-
exit 0;
21-
}
2218
chdir 't' if -d 't';
2319
@INC = ('../lib','.');
2420
require './test.pl';
21+
skip_all_if_miniperl("miniperl can't load Tie::Hash::NamedCapture, need for %+ and %-");
2522
}
2623

2724
run_tests() unless caller;

t/re/pat_rt_report.t

+1-4
Original file line numberDiff line numberDiff line change
@@ -15,13 +15,10 @@ $| = 1;
1515

1616

1717
BEGIN {
18-
if (!defined &DynaLoader::boot_DynaLoader) {
19-
print "1..0 # Skip miniperl can't load Tie::Hash::NamedCapture, need for %+ and %-\n";
20-
exit 0;
21-
}
2218
chdir 't' if -d 't';
2319
@INC = ('../lib','.');
2420
require './test.pl';
21+
skip_all_if_miniperl("miniperl can't load Tie::Hash::NamedCapture, need for %+ and %-");
2522
}
2623

2724

0 commit comments

Comments
 (0)