Searched refs:or (Results 1 - 25 of 356) sorted by relevance

1234567891011>>

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A DCopy.t23 open(F, ">file-$$") or die;
30 open(F, "copy-$$") or die;
42 unlink "copy-$$" or die "unlink: $!";
46 open(R, "copy-$$") or die "open copy-$$: $!"; $foo = <R>; close(R);
49 unlink "copy-$$" or die "unlink: $!";
52 close(F) or die "close: $!";
53 open(R, "copy-$$") or die; $foo = <R>; close(R) or die "close: $!";
56 unlink "copy-$$" or die "unlink: $!";
59 $fh = IO::File->new(">copy-$$") or di
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dcontext.t12 $1 eq 'a' or print 'not ';
H A Dlop.t4 # test the logical operators '&&', '||', '!', 'and', 'or', 'not'
21 or (!($i || $j) != (!$i && !$j))
22 or (!!($i || $j) != !(!$i && !$j))
23 or (!(!$i || !$j) != !!($i && $j))
H A Drand.t53 if ($n < 0.0 or $n >= 1.0) {
56 # but that apparently produces values < 0.0 or >= 1.0.
84 unless (ok( !$max <= 0 or $max >= (2 ** $randbits))) {# Just in case...
89 # or your C compiler can't multiply, or maybe Martians
115 # either in perl or your system's rand function.
117 unless (ok( !($min < 0 or $max >= 1) )) { # Slightly redundant...
130 unless (ok( !($sum < 0.4 or $sum > 0.6) )) {
143 # if you're curious or if you can't help being
188 print "# one time out of 25, more or les
[all...]
H A Dexec.t41 # On VMS and Win32 you need the quotes around the program or it won't work.
93 unless( ok($rc == 255 << 8 or $rc == -1 or $rc == 256 or $rc == 512) ) {
97 unless ( ok( $! == 2 or $! =~ /\bno\b.*\bfile/i or
98 $! == 13 or $! =~ /permission denied/i or
99 $! == 22 or $! =~ /invalid argument/ ) ) {
H A Dwrite.t12 open my $fh, $file or die "can't open '$file': $!";
95 close OUT or die "Could not close: $!";
128 open OUT2, '>Op_write.tmp' or die "Can't create Op_write.tmp";
134 close OUT2 or die "Could not close: $!";
177 close OUT2 or die "Could not close: $!";
244 close OUT3 or die "Could not close: $!";
262 open(LEX, ">&STDOUT") or die;
266 close LEX or die "Could not close: $!";
274 open OUT4, ">Op_write.tmp" or die "Can't create Op_write.tmp";
276 close OUT4 or di
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/io/
H A Dargv.t18 close TRY or die "Could not close: $!";
52 open(TRY, '>Io_argv1.tmp') or die "Can't open temp file: $!";
53 close TRY or die "Could not close: $!";
54 open(TRY, '>Io_argv2.tmp') or die "Can't open temp file: $!";
55 close TRY or die "Could not close: $!";
66 open(TRY, '<Io_argv1.tmp') or die "Can't open temp file: $!";
68 open(TRY, '<Io_argv2.tmp') or die "Can't open temp file: $!";
70 close TRY or die "Could not close: $!";
77 open STDIN, 'Io_argv1.tmp' or die $!;
83 open STDIN, $devnull or di
[all...]
H A Ddup.t52 close(STDOUT) or die "Could not close: $!";
53 close(STDERR) or die "Could not close: $!";
55 open(STDOUT,">&DUPOUT") or die "Could not open: $!";
56 open(STDERR,">&DUPERR") or die "Could not open: $!";
65 open(F,">&",1) or die "Cannot dup to numeric 1: $!";
69 open(F,">&",'1') or die "Cannot dup to string '1': $!";
73 open(F,">&=",1) or die "Cannot dup to numeric 1: $!";
78 open(F,">&=",'1') or die "Cannot dup to string '1': $!";
82 open(F, ">&DUPOUT") or die "Cannot dup stdout back: $!";
88 open(F, ">&DUPOUT") or di
[all...]
H A Dfflush.t19 # it here too or expect test gratuitous test failures.
32 print "1..0 # Skip: fflush(NULL) or equivalent not available\n";
44 unlink $_ or warn "unlink $_: $!";
52 open IN, $f or die "open $f: $!";
63 open PROG, "> ff-prog" or die "open ff-prog: $!";
67 open OUT, ">> $f" or die "open $f: $!";
72 close PROG or die "close ff-prog: $!";;
82 open OUT, "> $f" or die "open $f: $!";
88 close OUT or die "close $f: $!";
94 exec $command or di
[all...]
H A Dtell.t14 $Is_Dosish = ($^O eq 'MSWin32' or $^O eq 'NetWare' or $^O eq 'dos' or
15 $^O eq 'os2' or $^O eq 'mint' or $^O eq 'cygwin' or
97 # ftell(STDIN) (or any std streams) is undefined, it can return -1 or
141 tell($tst) == 5) # unset PERLIO or PERLIO=stdio (e.g. HP-UX, Solaris)
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/
H A Dio_unix.t28 or $@ !~ /not implemented/ or
43 if (-e $PATH or not open(TEST, ">$PATH") and $^O ne 'os2') {
48 unlink($PATH) or $^O eq 'os2' or die "Can't unlink $PATH: $!";
84 $sock = IO::Socket::UNIX->new(Peer => $PATH) or die "$!";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Devel/
H A DSelfStubber.t25 unlink $file or warn "unlink $file failed: $!" while -f $file;
26 rmdir $file or warn "rmdir $file failed: $!" if -d $file;
31 mkdir $inlib, 0777 or die $!;
39 open FH, ">$file" or die $!;
49 open FH, ">$file" or die $!;
54 close FH or die $!;
56 open FH, $file or die $!;
70 open FH, ">$file" or die $!;
75 close FH or die $!;
77 open FH, $file or di
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dcpp.aux28 close TRY or die "Could not close Comp_cpp.tmp: $!";
32 close TRY or die "Could not close Comp_cpp.tmp: $!";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/
H A Dsafeload.t11 eval { require version; 1 } or do {
26 ok( defined $r, "Can load version.pm in a Safe compartment" ) or diag $@;
H A Dsafe1.t30 $cpt = new Safe or die;
31 $cpt = new Safe or die;
32 $cpt = new Safe or die;
34 $cpt = new Safe "Root" or die;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/
H A Dfilehandles.t12 tie *STDOUT, "Dev::Null" or die $!;
/osnet-11/usr/src/lib/libc/common/sys/
H A Dgethrtime.s9 * or http://www.opensolaris.org/os/licensing.
22 * Copyright (c) 1993, 2011, Oracle and/or its affiliates. All rights reserved.
48 or %o1, %o0, %o0
68 or %o1, %o0, %o0
H A Dmmap.s9 * or http://www.opensolaris.org/os/licensing.
23 * Copyright (c) 1989, 2011, Oracle and/or its affiliates. All rights reserved.
54 or %g1, %o3, %o3
73 or %g1, %o3, %o3
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/base/
H A Drs.t11 open TESTFILE, ">./foo" or die "error $! $^E opening";
14 close TESTFILE or die "error $! $^E closing";
106 open(TEMPFILE, ">./foo.bar") or print "# open failed $! $^E\n";
139 length($line) == 40 or print "not ";
140 close $T or print "not ";
152 length($line) == 40 or print "not ";
153 close $T or print "not ";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/t/
H A Deol.t5 open(POD, ">$$.pod") or die "$$.pod: $!";
37 open(POD, "<$$.pod") or die "$$.pod: $!";
38 open(IN, ">$$.in") or die "$$.in: $!";
50 open(POD, "<$$.pod") or die "$$.pod: $!";
51 open(IN, ">$$.in") or die "$$.in: $!";
63 open(POD, "<$$.pod") or die "$$.pod: $!";
64 open(IN, ">$$.in") or die "$$.in: $!";
78 open(IN, "<$$.o1") or die "$$.o1: $!";
81 open(IN, "<$$.o2") or die "$$.o2: $!";
84 open(IN, "<$$.o3") or di
[all...]
H A Dtext.t8 # This program is free software; you may redistribute it and/or modify it
35 open (TMP, '> tmp.pod') or die "Cannot create tmp.pod: $!\n";
41 my $parser = Pod::Text->new or die "Cannot create parser\n";
43 open (TMP, 'out.tmp') or die "Cannot open out.tmp: $!\n";
66 # This is used to test specific features or problems with Pod::Text. The
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Time/
H A DLocal.t89 or print "not ";
93 or print "not ";
98 or print "not ";
118 timegm(0,0,0,1,0,80) == main::timegm(0,0,0,1,0,80) or print "not ";
121 timelocal(1,2,3,4,5,88) == main::timelocal(1,2,3,4,5,88) or print "not ";
/osnet-11/usr/src/lib/libc/amd64/gen/
H A Dmemcmp.s11 * Redistribution and use in source and binary forms, with or
21 * following disclaimer in the documentation and/or other
25 * names of its contributors may be used to endorse or
147 or %rax, %r8
148 or %r9, %r10
149 or %r8, %r10
217 or %r8, %rax
223 or %r10, %r9
225 or %r9, %rax
232 or
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/demos/
H A Dnntp.mirror26 chdir($BaseDir) or die "Could not cd to $BaseDir\n";
33 open(GROUPLIST, 'grouplist.txt') or die "Could not open grouplist.txt\n";
52 chdir("$BaseDir/$GroupName") or die "Couldn't chdir to $GroupName\n";
74 open(OUT, ">$GetArtNum") or
/osnet-11/usr/src/lib/libc/amd64/fp/
H A D__xgetRD.s9 * or http://www.opensolaris.org/os/licensing.
30 / 00 - Round to nearest or even

Completed in 132 milliseconds

1234567891011>>