mirror/perl
1
0
Fork 0
mirror of https://github.com/Perl/perl5.git synced 2026-01-26 16:39:36 +00:00
Code Issues Packages Projects Releases Wiki Activity

allow some basic infrastructure to load with -Dusedefaultstrict

Browse Source 
The changes to t/test.pl appear to be real bugs.

This allows `make test_harness` to run, but many tests will still
fail under -Dusedefaultstrict

This addresses #21732 but does not fix it.  I'm unsure how
supported that build option is.
This commit is contained in:
Tony Cook 2023-12-20 14:58:05 +11:00
parent 06c1b785f4
commit afe3e67fb0
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
TestInit.pm
View File

@ -37,7 +37,7 @@
package TestInit;
$VERSION = 1.04;
our $VERSION = 1.05;
# Let tests know they're running in the perl core. Useful for modules
# which live dual lives on CPAN.

2
regen/embed_lib.pl
View File

@ -1,6 +1,6 @@
#!/usr/bin/perl -w
BEGIN {
for $n (qw(lib regen)) {
for my $n (qw(lib regen)) {
if (-e "../$n") {
push @INC, "../$n";
} elsif (-e "./$n") {

6
t/test.pl
View File

@ -1014,7 +1014,7 @@ sub _num_to_alpha {
my %tmpfiles;
sub unlink_tempfiles {
unlink_all keys %tmpfiles;
%tempfiles = ();
%tmpfiles = ();
}
END { unlink_tempfiles(); }
@ -1796,11 +1796,11 @@ sub watchdog ($;$)
if ($timeout == 0) {
if ($watchdog_thread) {
$watchdog_thread->kill('KILL');
undef $watch_dog_thread;
undef $watchdog_thread;
}
elsif ($watchdog) {
kill('KILL', $watchdog);
undef $watch_dog;
undef $watchdog;
}
else {
alarm(0);