| /systemz/sirius/usr/src/cmd/perl/5.6.1/distrib/t/op/ |
| exec.t | 36 if ($rc == 255 << 8 or $rc == -1 and
38 $! == 2 or
39 $! =~ /\bno\b.*\bfile/i or
40 $! == 13 or
|
| context.t | 12 $1 eq 'a' or print 'not ';
|
| /systemz/sirius/usr/src/cmd/perl/5.6.1/distrib/t/lib/ |
| filecopy.t | 23 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 die "Cannot open copy-$$:$!"
[all...] |
| symbol.t | 39 qualify("x") eq "foo::x" or print "not ";
42 qualify("x", "FOO") eq "FOO::x" or print "not ";
45 qualify("BAR::x") eq "BAR::x" or print "not ";
48 qualify("STDOUT") eq "main::STDOUT" or print "not ";
51 qualify("ARGV", "FOO") eq "main::ARGV" or print "not ";
|
| /systemz/sirius/usr/src/lib/libbc/sparc/inc/ |
| PIC.h | 10 * or http://www.opensolaris.org/os/licensing.
26 or %g0,%o7,%g1; \
32 or %r, %lo(_GLOBAL_OFFSET_TABLE_ - (1b-.)),%r; \
34 or %g0,%g1,%o7
|
| /systemz/betelgeuse/usr/src/lib/libbc/sparc/inc/ |
| PIC.h | 10 * or http://www.opensolaris.org/os/licensing.
26 or %g0,%o7,%g1; \
32 or %r, %lo(_GLOBAL_OFFSET_TABLE_ - (1b-.)),%r; \
34 or %g0,%g1,%o7
|
| /systemz/sirius/usr/src/cmd/perl/5.8.4/distrib/lib/File/ |
| Copy.t | 23 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 die "Cannot open copy-$$:$!"
[all...] |
| /systemz/betelgeuse/usr/src/cmd/perl/5.8.4/distrib/lib/File/ |
| Copy.t | 23 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 die "Cannot open copy-$$:$!"
[all...] |
| /systemz/sirius/usr/src/cmd/perl/5.6.1/distrib/t/io/ |
| argv.t | 55 open(try, '>Io_argv1.tmp') or die "Can't open temp file: $!";
57 open(try, '>Io_argv2.tmp') or die "Can't open temp file: $!";
68 open(try, '<Io_argv1.tmp') or die "Can't open temp file: $!";
70 open(try, '<Io_argv2.tmp') or die "Can't open temp file: $!";
75 eof try or print 'not ';
78 eof NEVEROPENED or print 'not ';
81 open STDIN, 'Io_argv1.tmp' or die $!;
83 !eof() or print 'not ';
86 <> eq "ok 6\n" or print 'not ';
89 open STDIN, $devnull or die $!
[all...] |
| /systemz/sirius/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| context.t | 12 $1 eq 'a' or print 'not ';
|
| /systemz/betelgeuse/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| context.t | 12 $1 eq 'a' or print 'not ';
|
| /systemz/sirius/usr/src/cmd/perl/5.8.4/distrib/t/io/ |
| argv.t | 18 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 die $!
[all...] |
| /systemz/betelgeuse/usr/src/cmd/perl/5.8.4/distrib/t/io/ |
| argv.t | 18 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 die $!
[all...] |
| /systemz/sirius/usr/src/cmd/perl/contrib/Sun/Solaris/Lgrp/ |
| Lgrp.pm | 9 # or http://www.opensolaris.org/os/licensing.
102 scalar @_ == 2 or _usage "lgrp_isleaf(cookie, lgrp)";
113 scalar @_ > 0 or _usage("lgrp_lgrps(cookie, [lgrp])");
140 scalar @_ > 0 or _usage("lgrp_leaves(cookie, [lgrp])");
174 $self->{COOKIE} = ($view ? lgrp_init($view) : lgrp_init()) or
194 scalar @_ == 1 or _usage("stale(class)");
200 scalar @_ == 1 or _usage("view(class)");
206 scalar @_ == 1 or _usage("root(class)");
212 scalar @_ == 1 or _usage("nlgrps(class)");
218 scalar @_ > 0 or _usage("lgrps(class, [lgrp])")
[all...] |
| /systemz/betelgeuse/usr/src/cmd/perl/contrib/Sun/Solaris/Lgrp/ |
| Lgrp.pm | 9 # or http://www.opensolaris.org/os/licensing.
98 scalar @_ == 2 or _usage "lgrp_isleaf(cookie, lgrp)";
109 scalar @_ > 0 or _usage("lgrp_lgrps(cookie, [lgrp])");
136 scalar @_ > 0 or _usage("lgrp_leaves(cookie, [lgrp])");
170 $self->{COOKIE} = ($view ? lgrp_init($view) : lgrp_init()) or
190 scalar @_ == 1 or _usage("stale(class)");
196 scalar @_ == 1 or _usage("view(class)");
202 scalar @_ == 1 or _usage("root(class)");
208 scalar @_ == 1 or _usage("nlgrps(class)");
214 scalar @_ > 0 or _usage("lgrps(class, [lgrp])")
[all...] |
| /systemz/sirius/usr/src/cmd/perl/5.6.1/distrib/t/comp/ |
| cpp.t | 11 if ( $^O eq 'MSWin32' or
|
| /systemz/sirius/usr/src/cmd/perl/5.6.1/distrib/utils/ |
| splain.PL | 24 open IN or die "Can't open $IN: $!\n";
27 open OUT,">$file" or die "Can't create $file: $!";
46 close OUT or die "Can't close $file: $!";
47 chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
|
| /systemz/sirius/usr/src/cmd/perl/5.8.4/distrib/utils/ |
| splain.PL | 25 open IN or die "Can't open $IN: $!\n";
28 open OUT,">$file" or die "Can't create $file: $!";
47 close OUT or die "Can't close $file: $!";
48 chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
|
| /systemz/sirius/usr/src/lib/libc/common/sys/ |
| gethrtime.s | 10 * or http://www.opensolaris.org/os/licensing.
47 or %o1, %o0, %o0
66 or %o1, %o0, %o0
|
| /systemz/betelgeuse/usr/src/cmd/perl/5.8.4/distrib/utils/ |
| splain.PL | 25 open IN or die "Can't open $IN: $!\n";
28 open OUT,">$file" or die "Can't create $file: $!";
47 close OUT or die "Can't close $file: $!";
48 chmod 0755, $file or die "Can't reset permissions for $file: $!\n";
|
| /systemz/betelgeuse/usr/src/lib/libc/common/sys/ |
| gethrtime.s | 9 * or http://www.opensolaris.org/os/licensing.
44 or %o1, %o0, %o0
63 or %o1, %o0, %o0
|
| /systemz/sirius/usr/src/cmd/perl/5.8.4/distrib/t/lib/ |
| filter-util.pl | 13 or die "Cannot open $filename: $!\n" ;
24 or die "Cannot open $filename: $!\n" ;
28 close F or die "Could not close: $!" ;
51 $Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ;
|
| /systemz/betelgeuse/usr/src/cmd/perl/5.8.4/distrib/t/lib/ |
| filter-util.pl | 13 or die "Cannot open $filename: $!\n" ;
24 or die "Cannot open $filename: $!\n" ;
28 close F or die "Could not close: $!" ;
51 $Perl = ($ENV{'FULLPERL'} or $^X or 'perl') ;
|
| /systemz/sirius/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/scalar/ |
| scalar.pm | 16 open my $fh, "<", \$scalar or die;
17 open my $fh, ">", \$scalar or die;
18 open my $fh, ">>", \$scalar or die;
20 or
24 open my $fh, "<:scalar", \$scalar or die;
25 open my $fh, ">:scalar", \$scalar or die;
26 open my $fh, ">>:scalar", \$scalar or die;
|
| /systemz/betelgeuse/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/scalar/ |
| scalar.pm | 16 open my $fh, "<", \$scalar or die;
17 open my $fh, ">", \$scalar or die;
18 open my $fh, ">>", \$scalar or die;
20 or
24 open my $fh, "<:scalar", \$scalar or die;
25 open my $fh, ">:scalar", \$scalar or die;
26 open my $fh, ">>:scalar", \$scalar or die;
|
