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.
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;
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 %-");
}