Searched refs:fh (Results 1 - 25 of 122) sorted by relevance

12345

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/
H A Dscalar.t15 my $fh;
17 open($fh,"+<",\$var) or print "not ";
19 print <$fh>;
20 print "not " unless eof($fh);
22 seek($fh,0,0) or print "not ";
23 print "not " if eof($fh);
26 print $fh "ok 7\n" or print "not ";
30 seek($fh,0,0) or print "not ";
31 print "not " if eof($fh);
33 print "not " unless <$fh> e
[all...]
H A Dopen.t25 ok((open my $fh, "+>", undef), "open my \$fh, '+>', undef");
26 print $fh "the right write stuff";
27 ok(seek($fh, 0, SEEK_SET), "seek to zero");
28 my $data = <$fh>;
33 ok((open my $fh, "+<", undef), "open my \$fh, '+<', undef");
34 print $fh "the right read stuff";
35 ok(seek($fh, 0, SEEK_SET), "seek to zero");
36 my $data = <$fh>;
[all...]
H A Dfallback.t29 ok(open(my $fh,">encoding(iso-8859-1)",$file),"opened iso-8859-1 file");
31 print $fh $str,"0.02\n";
32 close($fh);
36 open($fh,$file) || die "File cannot be re-opened";
37 my $line = <$fh>;
39 close($fh);
43 ok(open(my $fh,">encoding(iso-8859-1)",$file),"opened iso-8859-1 file");
45 print $fh $str,"0.02\n";
46 close($fh);
48 open($fh,
[all...]
H A Dvia.t19 my $fh;
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');
27 ok( (print $fh $a), "print to output file");
28 ok( close($fh), 'close output file');
30 ok( open($fh,"<via(PerlIO::via::QuotedPrint)", $tmp), 'open QuotedPrint for input');
31 { local $/; $b = <$fh> }
32 ok( close($fh), "close input file");
44 my $fd = open($fh,">$tmp") && fileno($fh);
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Temp/t/
H A Dobject.t38 my $fh = new File::Temp( SUFFIX => '.txt' );
40 ok( (-f "$fh"), "File $fh exists" );
42 ok( close( $fh ), "Close file $fh" );
43 ok( (-f "$fh"), "File $fh still exists after close" );
45 push(@files, "$fh");
62 $fh = new File::Temp(
67 print "# TEMPFILE: Created $fh\
[all...]
H A Dposix.t26 (my $fh, $tmpnam) = tmpnam();
28 print "# TMPNAM: in list context: $fh $tmpnam\n";
34 my $status = unlink0($fh, $tmpnam);
43 $fh = tmpfile();
45 if (defined $fh) {
46 ok( $fh );
47 print "# TMPFILE: tmpfile got FH $fh\n";
49 $fh->autoflush(1) if $] >= 5.006;
54 print $fh $original
58 ok( seek($fh,
[all...]
H A Dmktemp.t22 (my $fh, $template) = mkstemp($template);
24 print "# MKSTEMP: FH is $fh File is $template fileno=".fileno($fh)."\n";
29 $fh->autoflush(1) if $] >= 5.006;
33 print $fh $string;
36 ok(seek( $fh, 0, 0));
39 my $line = <$fh>;
54 my $status = unlink0($fh, $template);
68 ($fh, my $fname) = mkstemps($template, $suffix);
70 print "# MKSTEMPS: File is $template -> $fname fileno=".fileno($fh)
[all...]
H A Dtempfile.t43 my ($fh, $tempfile) = tempfile(
50 ok( close( $fh ) );
70 ($fh, $tempfile) = tempfile(
83 ($fh, $tempfile) = tempfile(
93 ($fh, $tempfile) = tempfile(
105 ($fh, $tempfile) = tempfile( 'helloXXXXXXX',
119 ($fh, $tempfile) = tempfile( 'permXXXXXXX', UNLINK => 0 );
122 ok( close( $fh ) );
133 $fh = eval { tempfile( 'ftmpXXXXX', DIR => File::Spec->tmpdir ) };
135 if ($fh) {
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/
H A DDisassembler.pm17 my ($fh, $len) = @_;
19 read($fh, $data, $len);
25 my $fh = shift;
26 my $c = $fh->getc;
32 my $fh = shift;
33 my $str = $fh->readn(2);
39 my $fh = shift;
41 while (defined($c = $fh->getc) && $c ne "\0") {
49 my $fh = shift;
50 my $str = $fh
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dreaddir.t48 if (opendir($fh, "op")) { print "ok 4\n"; } else { print "not ok 4\n"; }
49 if (ref($fh) eq 'GLOB') { print "ok 5\n"; } else { print "not ok 5\n"; }
50 if (opendir($fh[0], "op")) { print "ok 6\n"; } else { print "not ok 6\n"; }
51 if (ref($fh[0]) eq 'GLOB') { print "ok 7\n"; } else { print "not ok 7\n"; }
52 if (opendir($fh{abc}, "op")) { print "ok 8\n"; } else { print "not ok 8\n"; }
53 if (ref($fh{abc}) eq 'GLOB') { print "ok 9\n"; } else { print "not ok 9\n"; }
54 if ("$fh" ne "$fh[0]") { print "ok 10\n"; } else { print "not ok 10\n"; }
55 if ("$fh" ne "$fh{ab
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/Dev/
H A DNull.pm10 my $fh = do { local *HANDLE; \*HANDLE };
11 return bless $fh, $class;
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/PerlGcc/
H A Dperlgcc.PL30 my $fh;
31 open($fh, ">$ARGV[0]") || die("Can't open perlgcc: $!\n");
38 print $fh <<EOF;
61 close($fh) || die("Can't open perlgcc: $!\n");
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DFileHandle.t29 $fh = (new FileHandle "./TEST", O_RDONLY
34 $buffer = <$fh>;
38 ungetc $fh ord 'A';
39 CORE::read($fh, $buf,1);
42 close $fh;
44 $fh = new FileHandle;
46 print "not " unless ($fh->open("< TEST") && <$fh> eq $buffer);
49 $fh->seek(0,0);
50 print "#possible mixed CRLF/LF in t/TEST\nnot " unless (<$fh> e
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A DCompare.t51 my $fh;
52 open ($fh, "<harness") or print "not ";
53 binmode($fh);
54 print "not " unless compare($fh,"harness") == 0;
56 close $fh;
61 my $fh;
62 open ($fh, "<harness") or print "not ";
63 binmode($fh);
64 print "not " unless compare_text($fh,"TEST") == 1;
66 close $fh;
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/cmd/
H A Dwhile.t15 open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp.";
16 while (<fh>) {
24 open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp.";
25 while (<fh>) {
34 open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp.";
35 while (<fh>) {
50 open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp.";
51 line: while (<fh>) {
63 open(fh,'Cmd_while.tmp') || die "Can't open Cmd_while.tmp.";
64 entry: while (<fh>) {
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/
H A Dopenhan.t24 my $fh = \*STDERR;
25 print "not " unless openhandle($fh) == $fh;
/osnet-11/usr/src/tools/onbld/Checks/
H A DMapfile.py45 def mapfilechk(fh, filename=None, verbose=False, output=sys.stderr):
49 name = fh.name
57 for line in fh:
78 for line in fh:
87 fh.seek(0);
88 return CmtBlk.cmtblkchk(fh, 'MAPFILE', MAPFILE,
H A DCddl.py49 def cddlchk(fh, filename=None, lenient=False, verbose=False, output=sys.stderr):
50 return CmtBlk.cmtblkchk(fh, 'CDDL', CDDL, filename=filename,
H A DCStyle.py36 def cstyle(fh, filename=None, output=sys.stderr, **opts):
53 filename = fh.name
55 ret, tmpfile = processcheck('cstyle', options, fh, output)
H A DJStyle.py37 def jstyle(fh, filename=None, output=sys.stderr, **opts):
52 filename = fh.name
54 ret, tmpfile = processcheck('jstyle', options, fh, output)
H A DKeywords.py46 def keywords(fh, filename=None, lenient=False, verbose=False,
55 filename = fh.name
60 for line in fh:
/osnet-11/usr/src/lib/libuvfs/common/
H A Dfsid.c73 libuvfs_fh_t fh; local
76 (void) memcpy(&fh.fs_fid_random, &fs->fs_fid_random,
77 sizeof (fh.fs_fid_random));
79 (void) memcpy(&fh.fs_fid_seq, &seq, sizeof (fh.fs_fid_seq));
81 fid->uvfid_len = sizeof (fh);
82 (void) memcpy(fid->uvfid_data, &fh, sizeof (fh));
93 libuvfs_fh_t *fh = (libuvfs_fh_t *)(&fid->uvfid_data); local
97 assert(memcmp(&fh
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/
H A DuploadInfo.t74 my $fh = $q->upload('300x300_gif');
75 is( $q->uploadInfo($fh)->{'Content-Type'}, "image/gif", $test);
82 my $fh = $q2->upload('300x300_gif');
83 is( $q2->uploadInfo($fh)->{'Content-Type'}, "image/gif", $test);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/scalar/
H A Dscalar.pm16 open my $fh, "<", \$scalar or die;
17 open my $fh, ">", \$scalar or die;
18 open my $fh, ">>", \$scalar or die;
24 open my $fh, "<:scalar", \$scalar or die;
25 open my $fh, ">:scalar", \$scalar or die;
26 open my $fh, ">>:scalar", \$scalar or die;
33 fileno($fh) returns C<undef>.
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/lib/IO/
H A DFile.pm13 $fh = new IO::File;
14 if ($fh->open("< file")) {
15 print <$fh>;
16 $fh->close;
19 $fh = new IO::File "> file";
20 if (defined $fh) {
21 print $fh "bar\n";
22 $fh->close;
25 $fh = new IO::File "file", "r";
26 if (defined $fh) {
[all...]

Completed in 571 milliseconds

12345