9 skip_all("Code to read symbols not ported to $^O")
10 if $^O eq 'VMS' or $^O eq 'MSWin32';
12 # Not investigated *why* we don't export these, but we don't, and we've not
13 # received any bug reports about it causing problems:
14 my %skip = map { ("PL_$_", 1) }
16 DBcv bitcount cshname force_link_funcs generation lastgotoprobe
17 mod_latin1_uc modcount no_symref_sv timesbuf uudmap
18 watchaddr watchok warn_uninit_sv
21 $skip{PL_hash_rand_bits}= $skip{PL_hash_rand_bits_enabled}= 1; # we can be compiled without these, so skip testing them
24 my $trial = "nm globals$Config{_o} 2>&1";
27 skip_all("Could not run `$trial`") if $?;
29 my $defined = qr/^[0-9a-fA-F]{8,16}\s+[^Uu]\s+_?/m;
31 skip_all("Could not spot definition of PL_Yes in output of `$trial`")
32 unless $yes =~ /${defined}PL_Yes/m;
35 open my $fh, '-|', $^X, '-Ilib', './makedef.pl', 'PLATFORM=test'
36 or die "Can't run makedef.pl";
44 close $fh or die "Problem running makedef.pl";
48 foreach my $file (map {$_ . $Config{_o}} qw(globals regcomp)) {
49 open $fh, '-|', 'nm', $file
50 or die "Can't run nm $file";
53 next unless /$defined(PL_\S+)/;
54 if (delete $exported{$1}) {
55 note("Seen definition of $1");
60 close $fh or die "Problem running nm $file";
63 foreach (sort keys %exported) {
65 skip("We dont't export '$_' (Perl not built with this enabled?)",1) if $skip{$_};
66 fail("Attempting to export '$_' which is never defined");
70 foreach (sort keys %unexported) {
72 skip("We don't export '$_'", 1) if $skip{$_};
73 fail("'$_' is defined, but we do not export it");