/osnet-11/usr/src/lib/libplot/vt0/common/ |
H A D | open.c | 42 vti = open("/dev/vt0", 1); 48 vti = open("/dev/vt0", 1);
|
/osnet-11/usr/src/lib/libshadowfs/common/ |
H A D | mkerrpo.sh | 32 open=' \/\* ' 37 ( egrep $pattern | sed -n "s/$open/$openrepl/p" |
|
H A D | mkerrno.sh | 41 open=' \/\* ' 46 ( sed -n "s/$pattern/$replace/p" | sed -n "s/$open/$openrepl/p" |
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | read.t | 8 open(FOO,'op/read.t') || open(FOO,'t/op/read.t') || open(FOO,':op:read.t') || die "Can't open op.read";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | Fatal.t | 10 use Fatal qw(open close :void opendir); 13 eval { open FOO, '<lkjqweriuapofukndajsdlfjnvcvn' }; 14 print "not " unless $@ =~ /^Can't open/; 19 eval qq{ open $_, '<$0' }; 31 print "not " unless $@ =~ /^Can't open/; 35 print "not " if $@ =~ /^Can't open/;
|
H A D | SelectSaver.t | 12 open(FOO, ">foo-$$") || die; 21 open(FOO, "foo-$$") || die;
|
/osnet-11/usr/src/lib/scsi/libscsi/common/ |
H A D | mkerrno.sh | 47 open=' \/\* ' 52 ( sed -n "s/$pattern/$replace/p" | sed -n "s/$open/$openrepl/p" |
|
/osnet-11/usr/src/lib/scsi/libses/common/ |
H A D | mkerrno.sh | 46 open=' \/\* ' 51 ( sed -n "s/$pattern/$replace/p" | sed -n "s/$open/$openrepl/p" |
|
/osnet-11/usr/src/lib/scsi/libsmp/common/ |
H A D | mkerrno.sh | 44 open=' \/\* ' 49 ( sed -n "s/$pattern/$replace/p" | sed -n "s/$open/$openrepl/p" |
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/ |
H A D | dup.t | 15 open(DUPOUT,">&STDOUT"); 16 open(DUPERR,">&STDERR"); 18 open(STDOUT,">Io.dup") || die "Can't open stdout"; 19 open(STDERR,">&STDOUT") || die "Can't open stderr"; 55 open(STDOUT,">&DUPOUT") or die "Could not open: $!"; 56 open(STDERR,">&DUPERR") or die "Could not open [all...] |
H A D | open.t | 23 ok( open(my $f,"+>afile"), 'open(my $f, "+>...")' ); 43 ok( open(my $f,'>', 'afile'), "open(my \$f, '>', 'afile')" ); 50 ok( open(my $f,'>>', 'afile'), "open(my \$f, '>>', 'afile')" ); 57 ok( open(my $f, '<', 'afile'), "open(my \$f, '<', 'afile')" ); 68 ok( open(my $f, '+<', 'afile'), 'open [all...] |
H A D | argv.t | 16 open(TRY, '>Io_argv1.tmp') || (die "Can't open temp file: $!"); 52 open(TRY, '>Io_argv1.tmp') or die "Can't open temp file: $!"; 54 open(TRY, '>Io_argv2.tmp') or die "Can't open temp file: $!"; 66 open(TRY, '<Io_argv1.tmp') or die "Can't open temp file: $!"; 68 open(TRY, '<Io_argv2.tmp') or die "Can't open tem [all...] |
H A D | utf8.t | 20 open(F,"+>:utf8",'a'); 58 open F, ">:utf8", 'a' or die $!; 62 open F, "<:utf8", 'a' or die $!; 67 open F, "a" or die $!; # Not UTF 76 open F, ">:utf8", 'a' or die $!; 106 open F, "a" or die $!; # Not UTF 114 open F, "<:utf8", "a" or die $!; 120 open F, ">", "a" or die $!; 136 open F, ">:utf8", "a" or die $!; 142 open [all...] |
H A D | pipe.t | 22 open(PIPE, "|-") || exec $Perl, '-pe', 'tr/YX/ko/'; 24 printf PIPE "Xk %d - open |- || exec\n", curr_test(); 35 if (open(PIPE, "-|")) { 43 printf STDOUT "not ok %d - open -|\n", curr_test(); 56 pipe(READER,WRITER) || die "Can't open pipe"; 73 open(STDOUT,">&WRITER") || die "Can't dup WRITER to STDOUT"; 87 pipe(READER,WRITER) || die "Can't open pipe"; 121 open NIL, qq{|$Perl -e "exit 0"} or die "open failed: $!"; 137 open NI [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/base/ |
H A D | term.t | 44 open(try,"Dev:Null") || (die "Can't open /dev/null."); 46 open(try, "/dev/null") || open(try,"nla0:") || (die "Can't open /dev/null."); 57 open(try, "harness") || (die "Can't open harness.");
|
H A D | rs.t | 11 open TESTFILE, ">./foo" or die "error $! $^E opening"; 16 open TESTFILE, "<./foo"; 60 open TESTFILE, ">./foo"; 64 open TESTFILE, "<./foo"; 95 open FDLFILE, "> ./foo.fdl"; 98 open CREATEFILE, "> ./foo.com"; 106 open(TEMPFILE, ">./foo.bar") or print "# open failed $! $^E\n"; 110 open TESTFILE, "<./foo.bar"; 134 # see if open/readlin [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/ |
H A D | init.t | 11 open ($IN, "t/init_test.txt");
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/ |
H A D | fail.t | 18 ok(open(FH,">",$file),"Create works"); 20 ok(open(FH,"<",$file),"Normal open works"); 36 ok(!open(FH,"<:-)",$file),"All punctuation fails open"); 42 ok(!open(FH,"<:nonesuch",$file),"Bad package fails open"); 47 ok(open(FH,"<",$file),"Normal open (still) works");
|
H A D | via.t | 25 ok( !open($fh,"<via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for input fails'); 26 ok( open($fh,">via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for output'); 30 ok( open($fh,"<via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for input'); 44 my $fd = open($fh,">$tmp") && fileno($fh); 48 ok( ! open($fh,">via(Unknown::Module)", $tmp), 'open via Unknown::Module will fail'); 51 # Now open normall [all...] |
H A D | scalar.t | 17 open($fh,"+<",\$var) or print "not "; 45 open $fh, ">", \$var; 68 open $fh, ">>", \$var; 94 open $fh, "<", \$var; 107 open $fh, "+>", \$var; 109 open $dup,'+<&',$fh; 120 open $fh, '<', \42; 127 tie $p, P; open $fh, '<', \$p; 136 open my $fh, '>', \my $scalar;
|
H A D | encoding.t | 28 if (open(GRK, ">$grk")) { 36 open(my $i,'<:encoding(iso-8859-7)',$grk); 38 open(my $o,'>:utf8',$utf); 46 if (open(UTF, "<$utf")) { 61 open(my $i,'<:utf8',$utf); 63 open(my $o,'>:encoding(iso-8859-7)',$grk); 71 if (open(GRK, "<$grk")) { 80 if (open(FAIL, ">:encoding(NoneSuch)", $fail1)) { 93 if (open(RUSSKI, ">$russki")) { 96 open(RUSSK [all...] |
H A D | fallback.t | 29 ok(open(my $fh,">encoding(iso-8859-1)",$file),"opened iso-8859-1 file"); 36 open($fh,$file) || die "File cannot be re-opened"; 43 ok(open(my $fh,">encoding(iso-8859-1)",$file),"opened iso-8859-1 file"); 48 open($fh,$file) || die "File cannot be re-opened"; 55 open($fh,">$file") || die "File cannot be re-opened"; 61 ok(open($fh,"<encoding(US-ASCII)",$file),"Opened as ASCII"); 69 ok(open($fh,"<encoding(US-ASCII)",$file),"Opened as ASCII");
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | cpp.aux | 17 open(TRY,">Comp_cpp.tmp") || die "Can't open temp perl file: $!"; 30 open(TRY,">Comp_cpp.inc") || (die "Can't open temp include file: $!");
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/ |
H A D | io_utf8.t | 22 ok($io->open("io_utf8", ">:utf8"), "open >:utf8"); 27 ok($io->open("io_utf8", "<:utf8"), "open <:utf8");
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/cmd/ |
H A D | mod.t | 37 open(foo,'./TEST') || open(foo,'TEST') || open(foo,'t/TEST');
|