代码搜索：IO控制
找到约 10,000 项符合「IO控制」的源代码
代码结果 10,000
www.eeworm.com/read/321483/3535224
t io_xs.t
#!./perl
BEGIN {
unless(grep /blib/, @INC) {
chdir 't' if -d 't';
@INC = '../lib';
}
}
use Config;
BEGIN {
if($ENV{PERL_CORE}) {
if ($Config{'extensions'} !~ /\bIO\b/) {
www.eeworm.com/read/321483/3535225
t io_multihomed.t
#!./perl
BEGIN {
unless(grep /blib/, @INC) {
chdir 't' if -d 't';
@INC = '../lib';
}
}
use Config;
BEGIN {
my $can_fork = $Config{d_fork} ||
(($^O eq 'MSWin32' || $^O eq 'NetWar
www.eeworm.com/read/321483/3535226
t io_unix.t
#!./perl
BEGIN {
unless(grep /blib/, @INC) {
chdir 't' if -d 't';
@INC = '../lib';
}
}
use Config;
BEGIN {
my $reason;
if ($ENV{PERL_CORE} and $Config{'extensions'}
www.eeworm.com/read/321483/3535227
t io_linenum.t
#!./perl
# test added 29th April 1999 by Paul Johnson (pjcj@transeda.com)
# updated 28th May 1999 by Paul Johnson
my $File;
BEGIN {
$File = __FILE__;
unless(grep /blib/, @INC) {
chdir
www.eeworm.com/read/321483/3535228
t io_file.t
#!./perl -w
BEGIN {
unless(grep /blib/, @INC) {
chdir 't' if -d 't';
@INC = '../lib';
}
}
use strict;
require($ENV{PERL_CORE} ? "./test.pl" : "./t/test.pl");
plan(tests => ($^O =~ /MSWin32
www.eeworm.com/read/321483/3535229
t io_tell.t
#!./perl
BEGIN {
unless(grep /blib/, @INC) {
chdir 't' if -d 't';
@INC = '../lib';
$tell_file = "TEST";
}
else {
$tell_file = "Makefile";
}
}
use Config;
BEGIN {
if ($ENV{PE
www.eeworm.com/read/321483/3535230
t io_dir.t
#!./perl
BEGIN {
unless(grep /blib/, @INC) {
chdir 't' if -d 't';
@INC = '../lib';
}
require Config; import Config;
if ($] < 5.00326 || not $Config{'d_readdir'}) {
pr
www.eeworm.com/read/321483/3535231
t io_udp.t
#!./perl
BEGIN {
unless(grep /blib/, @INC) {
chdir 't' if -d 't';
@INC = '../lib';
}
}
use Config;
BEGIN {
my $reason;
if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bSocket\
www.eeworm.com/read/321483/3535232
t io_sel.t
#!./perl -w
BEGIN {
unless(grep /blib/, @INC) {
chdir 't' if -d 't';
@INC = '../lib';
}
}
select(STDERR); $| = 1;
select(STDOUT); $| = 1;
print "1..23\n";
use IO::Select 1.
www.eeworm.com/read/321483/3535233
t io_poll.t
#!./perl
BEGIN {
unless(grep /blib/, @INC) {
chdir 't' if -d 't';
@INC = '../lib';
}
}
if ($^O eq 'mpeix') {
print "1..0 # Skip: broken on MPE/iX\n";
exit 0;
}
selec