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