Lines Matching refs:got
24 my $got;
32 chomp($got = `$^X $path "-MB::Stash" "-Mwarnings" -e1`);
34 $got =~ s/-u//g;
36 print "# got = $got\n";
38 my @got = map { s/^\S+ //; $_ }
41 split /,/, $got;
44 print "# got = @got\n";
46 @got = grep { ! /^(PerlIO|open)(?:::\w+)?$/ } @got;
49 print "# got = @got\n";
51 @got = grep { ! /^Win32$/ } @got if $^O eq 'MSWin32';
52 @got = grep { ! /^NetWare$/ } @got if $^O eq 'NetWare';
53 @got = grep { ! /^(Cwd|File|File::Copy|OS2)$/ } @got if $^O eq 'os2';
54 @got = grep { ! /^Cwd$/ } @got if $^O eq 'cygwin';
57 @got = grep { ! /^File(?:::Copy)?$/ } @got;
58 @got = grep { ! /^VMS(?:::Filespec)?$/ } @got;
59 @got = grep { ! /^vmsish$/ } @got;
61 @got = grep { ! /^Socket$/ } @got;
65 print "# got = @got\n";
67 $got = "@got";
79 print "# [$got]\n# vs.\n# [$expected]\nnot " if $got ne $expected;