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'; |
35 | if ($Config{static_ext} eq ' ') { |
36 | $b = '-uCarp,-uCarp::Heavy,-uDB,-uExporter,-uExporter::Heavy,-uattributes,' |
37 | . '-umain,-ustrict,-uutf8,-uwarnings'; |
38 | if (ord('A') == 193) { # EBCDIC sort order is qw(a A) not qw(A a) |
39 | $b = join ',', sort split /,/, $b; |
40 | } |
41 | print "# [$a] vs [$b]\nnot " if $a ne $b; |
42 | ok; |
43 | } else { |
44 | print "ok $test # skipped: one or more static extensions\n"; $test++; |
45 | } |