Instead of having to edit the file to turn on debug mode, additionally
allow the use of an environment variable. This makes it more
convenient to ask someone in the field to run the test.
use strict;
use feature 'fc';
-my $debug = 0;
+my $debug = $ENV{PERL_DEBUG_FULL_TEST} // 0;
# Certain tests have been shown to be problematical for a few locales. Don't
# fail them unless at least this percentage of the tested locales fail.
print "# problem is not likely to be Perl's\n";
}
}
+ unless ($debug) {
+ print "#\nFor more details, rerun, with environment variable PERL_DEBUG_FULL_TEST=1\n";
+ }
print "not ";
}
print "ok $_";