5 @INC = qw(: ::lib ::macos:lib);
18 sub ok { print "ok $test\n"; $test++ }
21 my $Is_VMS = $^O eq 'VMS';
22 my $Is_MacOS = $^O eq 'MacOS';
24 my $path = join " ", map { qq["-I$_"] } @INC;
25 $path = '"-I../lib" "-Iperl_root:[lib]"' if $Is_VMS; # gets too long otherwise
26 my $redir = $Is_MacOS ? "" : "2>&1";
27 my $is_thread = $Config{use5005threads} && $Config{use5005threads} eq 'define';
30 print "# use5005threads: test $test skipped\n";
32 $a = `$^X $path "-MO=Showlex" -e "my %one" $redir`;
33 if (ord('A') != 193) { # ASCIIish
34 print "# [$a]\nnot " unless $a =~ /sv_undef.*PVNV.*%one.*sv_undef.*HV/s;
36 else { # EBCDICish C<1: PVNV (0x1a7ede34) "%\226\225\205">
37 print "# [$a]\nnot " unless $a =~ /sv_undef.*PVNV.*%\\[0-9].*sv_undef.*HV/s;