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

1234567891011>>

/openbsd-current/gnu/usr.bin/perl/regen/
H A Dminiperlmain.pl13 my $fh = open_new('miniperlmain.c', undef, {by => "$0 and ExtUtils::Miniperl"});
14 writemain($fh);
15 read_only_bottom_close_and_rename($fh);
/openbsd-current/gnu/usr.bin/perl/cpan/File-Temp/t/
H A Dcmp.t10 my $fh = File::Temp->new();
11 isa_ok ($fh, 'File::Temp');
13 ok( "$fh" ne "foo", "compare stringified object with string");
14 ok( $fh ne "foo", "compare object with string");
15 ok( $fh eq $fh, "compare eq with self");
17 ok( $fh != 0, "compare != 0");
18 ok( $fh == $fh, "compare == with self");
19 ok( $fh !
[all...]
H A Dobject.t44 my $fh = File::Temp->new( SUFFIX => '.txt' );
46 ok( (-f "$fh"), "File $fh exists" );
48 ok( close( $fh ), "Close file $fh" );
49 ok( (-f "$fh"), "File $fh still exists after close" );
51 push(@files, "$fh");
92 $fh = File::Temp->new(
97 ok( $fh
[all...]
H A Dposix.t25 (my $fh, $tmpnam) = tmpnam();
27 print "# TMPNAM: in list context: $fh $tmpnam\n";
33 my $status = unlink0($fh, $tmpnam);
44 $fh = tmpfile();
46 if (defined $fh) {
47 ok( $fh );
48 print "# TMPFILE: tmpfile got FH $fh\n";
50 $fh->autoflush(1) if $] >= 5.006;
55 print $fh $original
59 ok( seek($fh,
[all...]
/openbsd-current/gnu/usr.bin/perl/t/op/
H A Dfilehandle.t14 open my $fh, "<", \$str;
15 is <$fh>, "foo", "open fh to reference to string: got expected content";
18 $fh->seek(0, 0);
19 is $fh->tell, 0, "after 'seek' and 'tell', got expected current fh position in bytes";
20 is <$fh>, "foo", "after 'seek' and 'tell', still got expected content";
H A Dprint.t24 open my $fh, "<:utf8", \"\xC1\xAF\xC1\xAF\xC1\xB0\xC1\xB3"
26 read($fh, my $s, 10) or die "Could not read\n";
38 open my $fh, "<:utf8", \"\x76\x41\x76\x41\x77\x42\x77\x43"
40 read($fh, my $s, 10) or die "Could not read\n";
/openbsd-current/gnu/usr.bin/perl/win32/
H A Dcreate_perllibst_h.pl9 open my $fh, '>', 'perllibst.h' or die "Failed to write to perllibst.h:$!";
13 print $fh "/*DO NOT EDIT\n this file is included from perllib.c to init static extensions */\n";
14 print $fh "#ifdef STATIC1\n",(map {" \"$_\",\n"} @statics),"#undef STATIC1\n#endif\n";
15 print $fh "#ifdef STATIC2\n",(map {" EXTERN_C void boot_$_ (pTHX_ CV* cv);\n"} @statics1),"#undef STATIC2\n#endif\n";
16 print $fh "#ifdef STATIC3\n",(map {" newXS(\"$statics2[$_]::bootstrap\", boot_$statics1[$_], file);\n"} 0 .. $#statics),"#undef STATIC3\n#endif\n";
17 close $fh;
/openbsd-current/gnu/usr.bin/perl/t/io/
H A Dperlio_open.t19 ok((open my $fh, "+>", undef), "open my \$fh, '+>', undef");
20 print $fh "the right write stuff";
21 ok(seek($fh, 0, SEEK_SET), "seek to zero");
22 my $data = <$fh>;
27 ok((open my $fh, "+<", undef), "open my \$fh, '+<', undef");
28 print $fh "the right read stuff";
29 ok(seek($fh, 0, SEEK_SET), "seek to zero");
30 my $data = <$fh>;
[all...]
/openbsd-current/gnu/usr.bin/perl/cpan/autodie/t/
H A Dautodie_skippy.pm10 open(my $fh, '<', 'this_file_had_better_not_exist');
19 open(my $fh, '<', 'this_file_had_better_not_exist');
H A Dutf8_open.t31 open my $fh, ">", $file;
33 my @layers = PerlIO::get_layers($fh);
36 print $fh $txt;
37 close $fh;
42 open my $fh, "<", $file;
44 my @layers = PerlIO::get_layers($fh);
47 is join("\n", <$fh>), $txt;
52 open my($fh), $file;
54 my @layers = PerlIO::get_layers($fh);
57 is join("\n", <$fh>),
[all...]
H A Dstring-eval-leak.t18 open(my $fh, '<', 'this_file_had_better_not_exist');
36 open(my $fh, '<', 'this_file_had_better_not_exist');
/openbsd-current/gnu/usr.bin/perl/cpan/Scalar-List-Utils/t/
H A Dopenhan.t12 my $fh = \*STDERR;
13 is(openhandle($fh), $fh, 'STDERR');
26 open my $fh, "<", $0;
27 skip "could not open $0 for reading: $!", 2 unless $fh;
28 is(openhandle($fh), $fh, "works with indirect filehandles");
29 close($fh);
30 is(openhandle($fh), undef, "works with indirect filehandles");
36 open my $fh, "<", \"i
[all...]
/openbsd-current/gnu/usr.bin/perl/ext/PerlIO-encoding/t/
H A Dfallback.t30 ok(open(my $fh,">encoding(iso-8859-1)",$file),"opened iso-8859-1 file");
32 print $fh $str,"0.02\n";
33 close($fh);
37 open($fh,'<',$file) || die "File cannot be re-opened";
38 my $line = <$fh>;
40 close($fh);
44 ok(open(my $fh,">encoding(iso-8859-1)",$file),"opened iso-8859-1 file");
46 print $fh $str,"0.02\n";
47 close($fh);
49 open($fh,'<',
[all...]
/openbsd-current/gnu/usr.bin/perl/cpan/autodie/t/lib/
H A DCaller_helper.pm8 $line = __LINE__; open(my $fh, '<', "no_such_file_here");
/openbsd-current/gnu/llvm/clang/utils/analyzer/
H A Dupdate_plist_test.pl14 my $fh = File::Temp->new();
15 my $filename = $fh->filename;
16 $fh->unlink_on_destroy(1);
22 print $fh $_;
40 print $fh "// CHECK: ";
44 print $fh "// CHECK-NEXT: ";
46 print $fh $_;
49 close ($fh);
/openbsd-current/gnu/usr.bin/perl/ext/PerlIO-scalar/t/
H A Dscalar.t18 my $fh;
20 ok(open($fh,"+<",\$var));
22 is(<$fh>, $var);
24 ok(eof($fh));
26 ok(seek($fh,0,SEEK_SET));
27 ok(!eof($fh));
29 ok(print $fh "bbb\n");
32 ok(seek($fh,0,SEEK_SET));
33 ok(!eof($fh));
34 is(<$fh>, "fo
[all...]
/openbsd-current/gnu/usr.bin/perl/cpan/HTTP-Tiny/t/
H A D030_response.t23 my $fh = tmpfile($response);
24 my $handle = HTTP::Tiny::Handle->new(fh => $fh);
31 my $fh = tmpfile($response);
32 my $handle = HTTP::Tiny::Handle->new(fh => $fh);
40 my $fh = tmpfile($response);
41 my $handle = HTTP::Tiny::Handle->new(fh => $fh);
49 my $fh
[all...]
H A D020_headers.t19 my $fh = tmpfile($header);
21 my $handle = HTTP::Tiny::Handle->new(fh => $fh);
28 my $fh = tmpfile($header);
30 my $handle = HTTP::Tiny::Handle->new(fh => $fh);
37 my $fh = tmpfile($header);
39 my $handle = HTTP::Tiny::Handle->new(fh => $fh);
45 my $fh
[all...]
/openbsd-current/gnu/usr.bin/perl/dist/IO/t/
H A Dio_file.t28 my $fh = $Class->new;
30 isa_ok( $fh, $Class );
31 ok( $fh->open($File), " Opened '$File'" );
33 my $cont = do { local $/; <$fh> };
38 { my $fh = $Class->new;
40 isa_ok( $fh, $Class );
41 ok( $fh->open($File), " Opened '$File' $!" );
42 ok( $fh->binmode, " binmode enabled" );
44 my $cont = do { local $/; <$fh> };
/openbsd-current/gnu/usr.bin/perl/ext/PerlIO-via/t/
H A Dthread.t29 open my $fh, ">:via(Test1)", $tmp
31 $fh->autoflush;
33 print $fh "AXAX";
38 print $fh "XZXZ";
41 print $fh "BXBX";
42 close $fh;
62 my ($self, $data, $fh) = @_;
64 $fh->autoflush;
65 print $fh $data;
/openbsd-current/gnu/usr.bin/perl/lib/
H A DFileHandle.t27 my $fh = (new FileHandle "./TEST", O_RDONLY
29 ok(defined($fh), "create new handle O_RDONLY");
31 my $buffer = <$fh>;
34 ungetc $fh ord 'A';
36 CORE::read($fh, $buf,1);
38 close $fh;
40 $fh = new FileHandle;
41 ok(($fh->open("< TEST") && <$fh> eq $buffer),
44 $fh
[all...]
/openbsd-current/gnu/usr.bin/perl/Porting/
H A Dcheckcfgvar.pl60 open my $fh, '<', $MASTER_CFG;
61 while (<$fh>) {
68 close $fh;
76 open my $fh, '<', 'MANIFEST';
77 while (<$fh>) {
80 close $fh;
95 open my $fh, '<', $cfg or die "$cfg: $!\n";
100 while (<$fh>) {
106 while (<$fh>) {
127 close $fh;
[all...]
/openbsd-current/gnu/usr.bin/perl/cpan/Win32API-File/t/
H A Dtie.t29 my $fh = Win32API::File->new("+> $filename")
32 my $tell = tell $fh;
33 is(0+$tell, 0, "tell \$fh == '$tell'");
37 ok(print($fh $text), "printed 'some text\\n'");
39 $tell = tell $fh;
43 my $seek = seek($fh, 0, 0);
46 my $eof = eof $fh;
49 my $readline = <$fh>;
55 $eof = eof $fh;
58 ok(close($fh), 'close
[all...]
/openbsd-current/gnu/usr.bin/perl/cpan/Test-Harness/t/lib/Dev/
H A DNull.pm11 my $fh = do { local *HANDLE; \*HANDLE };
12 return bless $fh, $class;
/openbsd-current/regress/usr.sbin/syslogd/
H A DRSyslogd.pm62 open(my $fh, '>', $self->{conffile})
65 print $fh "\$ModLoad imudp\n";
66 print $fh "\$UDPServerRun $listenport\n";
69 print $fh "\$ModLoad imtcp\n";
70 print $fh "\$InputTCPServerRun $listenport\n";
73 print $fh "\$DefaultNetstreamDriver gtls\n";
81 print $fh "\$DefaultNetstreamDriver${k}File $v\n";
83 print $fh "\$ModLoad imtcp\n";
84 print $fh "\$InputTCPServerStreamDriverMode 1\n";
85 print $fh "\
[all...]

Completed in 133 milliseconds

1234567891011>>