Commit | Line | Data |
87a42246 |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | if ($^O eq 'MacOS') { |
5 | @INC = qw(: ::lib ::macos:lib); |
6 | } |
7 | } |
8 | |
9 | $| = 1; |
10 | use warnings; |
11 | use strict; |
12 | use Config; |
13 | |
14 | print "1..1\n"; |
15 | |
16 | my $test = 1; |
17 | |
18 | sub ok { print "ok $test\n"; $test++ } |
19 | |
20 | |
21 | my $a; |
22 | my $Is_VMS = $^O eq 'VMS'; |
23 | my $Is_MacOS = $^O eq 'MacOS'; |
24 | |
25 | my $path = join " ", map { qq["-I$_"] } @INC; |
26 | my $redir = $Is_MacOS ? "" : "2>&1"; |
27 | |
28 | |
29 | chomp($a = `$^X $path "-MB::Stash" "-Mwarnings" -e1`); |
30 | $a = join ',', sort split /,/, $a; |
31 | $a =~ s/-u(PerlIO|open)(?:::\w+)?,//g if defined $Config{'useperlio'} and $Config{'useperlio'} eq 'define'; |
32 | $a =~ s/-uWin32,// if $^O eq 'MSWin32'; |
33 | $a =~ s/-u(Cwd|File|File::Copy|OS2),//g if $^O eq 'os2'; |
34 | $a =~ s/-uCwd,// if $^O eq 'cygwin'; |
87a42246 |
35 | $b = '-uCarp,-uCarp::Heavy,-uDB,-uExporter,-uExporter::Heavy,-uattributes,' |
36 | . '-umain,-ustrict,-uutf8,-uwarnings'; |
38535c98 |
37 | if ($Is_VMS) { |
38 | $a =~ s/-uFile,-uFile::Copy,//; |
39 | $a =~ s/-uVMS,-uVMS::Filespec,//; |
40 | $a =~ s/-uSocket,//; # Socket is optional/compiler version dependent |
41 | } |
f9b690dc |
42 | use vars '$OS2::is_aout'; |
347fb945 |
43 | if (($Config{static_ext} eq ' ' || |
44 | ($Config{static_ext} eq 'Socket' && $Is_VMS)) |
45 | && !($^O eq 'os2' and $OS2::is_aout) |
46 | ) { |
87a42246 |
47 | if (ord('A') == 193) { # EBCDIC sort order is qw(a A) not qw(A a) |
48 | $b = join ',', sort split /,/, $b; |
49 | } |
38535c98 |
50 | print "# [$a]\n# vs.\n# [$b]\nnot " if $a ne $b; |
87a42246 |
51 | ok; |
52 | } else { |
53 | print "ok $test # skipped: one or more static extensions\n"; $test++; |
54 | } |