Skip to content

Commit

Permalink
trace output to be removed later
Browse files Browse the repository at this point in the history
  • Loading branch information
tonycoz committed Dec 16, 2024
1 parent c1ed6af commit a3cfd80
Showing 1 changed file with 9 additions and 2 deletions.
11 changes: 9 additions & 2 deletions lib/ExtUtils/t/Embed.t
Original file line number Diff line number Diff line change
Expand Up @@ -104,15 +104,20 @@ if ($^O eq 'VMS') {
push(@cmd,"-L$lib", ldopts());
} else { # Not MSWin32 or OS/390 (z/OS) dynamic.
my $ldopts = ldopts();
if ($^O eq 'openbsd' && !$Config{useshrplib}) {
print STDERR "*** TEST OpenBSD specialness ***\n";
print STDERR "\$^O '$^O'\n";
print STDERR "Config $INC{'Config.pm'}\n";
use Data::Dumper;
print STDERR Dumper($Config{useshrplib});
if ($^O eq 'openbsd' && $Config{useshrplib} eq "false") {
# see github #22125
# with OpenBSD, the packaged gcc (tries to) link
# against the system libperl, this will be fine once
# this perl gets installed, but that's not so good when
# testing against the uninstalled perl.
# This also matches how Makefile.SH links the perl executable
push @cmd, "$lib/libperl.a";
print STDERR "*** OpenBSD specialness ***\n";
push @cmd, "$lib/libperl.a", "-Wl,--trace";
$ldopts =~ s/ -lperl\b//;
}
else {
Expand Down Expand Up @@ -161,6 +166,8 @@ my @out = `$cmd`;
$status = $?;
print "# $_\n" foreach @out;

print STDERR "Debugging\n", @out;

if ($^O eq 'VMS' && !$status) {
print "# @cmd2\n";
$status = system(join(' ',@cmd2));
Expand Down

0 comments on commit a3cfd80

Please sign in to comment.