Home
last modified time | relevance | path

Searched refs:FH (Results 1 – 25 of 170) sorted by relevance

1234567

/openbsd/gnu/usr.bin/perl/dist/Devel-SelfStubber/t/
H A DDevel-SelfStubber.t35 print FH;
38 close FH;
44 select FH;
48 close FH or die $!;
51 my @A = <FH>;
65 select FH;
69 close FH or die $!;
72 my @B = <FH>;
81 close FH or die $!;
88 select FH;
[all …]
/openbsd/gnu/usr.bin/perl/cpan/Digest-SHA/lib/Digest/
H A DSHA.pm82 local *FH = shift;
123 local *FH;
129 open(FH, '< -')
144 close(FH);
150 $self->_addfileuniv(*FH);
153 close(FH);
230 local *FH;
232 print FH $state;
233 close(FH);
244 local *FH;
[all …]
/openbsd/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/t/
H A D001-basic.t37 tie *FH, 'Foo';
148 tie *FH, 'Foo';
151 output => \*FH,
189 tie *FH, 'Foo';
199 tie *FH, 'Foo';
231 tie *FH, 'Foo';
235 output => \*FH,
247 tie *FH, 'Foo';
251 output => \*FH,
295 tie *FH, 'Foo';
[all …]
/openbsd/gnu/usr.bin/perl/t/io/
H A Dperlio_fail.t19 ok(open(FH,">",$file),"Create works");
20 close(FH);
21 ok(open(FH,"<",$file),"Normal open works");
24 ok(!binmode(FH,":-)"),"All punctuation fails binmode");
30 ok(!binmode(FH,":nonesuch"),"Bad package fails binmode");
34 close(FH);
37 ok(!open(FH,"<:-)",$file),"All punctuation fails open");
43 ok(!open(FH,"<:nonesuch",$file),"Bad package fails open");
48 ok(open(FH,"<",$file),"Normal open (still) works");
49 close(FH);
H A Dfs.t96 close(FH);
98 close(FH);
334 close FH;
339 binmode FH;
340 select FH;
351 close (FH); open (FH, ">>$tmpfile") or die "Can't reopen $tmpfile";
364 close FH;
368 binmode FH;
369 select FH;
385 close FH;
[all …]
/openbsd/gnu/usr.bin/perl/dist/Storable/t/
H A Dtestlib.pl13 local (*FH, $/);
14 open FH, "<", $file or die "Can't open '$file': $!";
15 binmode FH;
16 my $contents = <FH>;
24 local *FH;
25 open FH, ">", $file or die "Can't open '$file': $!";
26 binmode FH;
27 print FH $data or die "Can't print to '$file': $!";
28 close FH or die "Can't close '$file': $!";
H A Dcompat01.t36 open(FH, '>', $file) || die "Can't create $file: $!";
37 binmode(FH);
38 print FH $dump;
39 close(FH) || die "Can't write $file: $!";
/openbsd/gnu/usr.bin/perl/cpan/ExtUtils-Constant/t/
H A DConstant.t319 print FH <<"EOT";
342 print FH "$_\n" foreach @files;
388 print FH $header or die $!;
396 print FH <<"EOT";
416 print FH "use $];\n";
418 print FH <<'EOT';
423 print FH <<'EOT';
439 print FH ");\n";
450 print FH <<"EOT" or die $!;
463 print FH $testfile or die $!;
[all …]
/openbsd/gnu/usr.bin/perl/t/base/
H A Drs.t144 *FH = shift;
147 $bar = <FH>;
154 $bar = <FH>;
161 $bar = <FH>;
168 $bar = <FH>;
172 $bar = <FH>;
179 $bar = <FH>;
183 $bar = <FH>;
190 $bar = <FH>;
197 *FH = shift;
[all …]
/openbsd/gnu/usr.bin/perl/t/op/
H A Dread.t58 open FH, ">$tmpfile" or die "Can't open $tmpfile: $!";
59 binmode FH, "utf8" if $utf8;
60 print FH $value;
61 close FH;
82 open FH, $tmpfile or die "Can't open $tmpfile: $!";
83 binmode FH, "utf8" if $utf8;
87 $got = read (FH, $buffer, $length, $offset);
90 close FH;
/openbsd/gnu/usr.bin/perl/t/lib/warnings/
H A Dtaint18 open(FH, "<abc") ;
19 $a = <FH> ;
20 close FH ;
38 open(FH, "<abc") ;
39 $a = <FH> ;
40 close FH ;
66 open(FH, "<abc") ;
67 $a = <FH> ;
68 close FH ;
H A Dpp_hot28 open (FH, ">./xcv") ;
29 my $a = <FH> ;
80 close FH or die $! ;
83 print FH "anc" ;
87 print FH "anc" ;
90 print FH "anc" ;
106 close FH or die $! ;
229 my $a = <FH> ;
231 $a = <FH> ;
239 $a = <FH> ;
[all …]
/openbsd/gnu/usr.bin/perl/cpan/IO-Compress/bin/
H A Dzipdetails396 my $FH;
646 skip($FH, $size);
890 $OFFSET = $FH->tell();
899 $OFFSET = $FH->tell();
904 my $start = $FH->tell();
931 my $start = $FH->tell();
1051 binmode($FH);
1243 last if $FH->eof();
1804 my $here = $FH->tell();
1846 my $here = $FH->tell();
[all …]
/openbsd/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/
H A DBase.pm91 if (defined *$self->{FH}) {
92 my $here = tell(*$self->{FH});
132 if ( defined *$self->{FH} ) {
697 if ( defined *$self->{FH} ) {
698 *$self->{FH}->clearerr();
715 if ( defined *$self->{FH} ) {
838 if (defined *$self->{FH}) {
842 *$self->{FH}->close()
845 delete *$self->{FH} ;
955 return defined *$self->{FH}
[all …]
/openbsd/gnu/usr.bin/perl/dist/IO/t/
H A Dio_getline.t91 tie *FH, 'TiedHandle';
93 is(*FH->getline(), "Tick", "tied handle read works");
94 ($list, $context) = *FH->getline();
97 is(*FH->getline(), "tick", "tied handle read works again");
99 $line = *FH->getline();
106 tie *FH, 'TiedHandle';
108 ($list, $context) = *FH->getlines();
112 ($list, $context) = *FH->getlines();
/openbsd/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/
H A DKwalify.pm81 local *FH;
82 open FH, $path or die "Could not open '$path': $!";
84 <FH>;
122 local *FH;
123 open FH, $path or die "Could not open '$path': $!";
125 <FH>;
/openbsd/sys/arch/arm64/stand/efiboot/
H A Defidev.c577 EFI_FILE_HANDLE VH, FH; in esp_open() local
617 f->f_fsdata = FH; in esp_open()
624 EFI_FILE_HANDLE FH = f->f_fsdata; in esp_close() local
625 FH->Close(FH); in esp_close()
632 EFI_FILE_HANDLE FH = f->f_fsdata; in esp_read() local
636 status = FH->Read(FH, &readlen, addr); in esp_read()
653 EFI_FILE_HANDLE FH = f->f_fsdata; in esp_seek() local
659 status = FH->GetPosition(FH, &position); in esp_seek()
678 status = FH->SetPosition(FH, position); in esp_seek()
703 status = FH->GetInfo(FH, &fi_guid, &filen, fip); in esp_stat()
[all …]
/openbsd/gnu/llvm/llvm/tools/llvm-xray/
H A Dxray-converter.cpp89 const auto &FH = Records.getFileHeader(); in exportAsYAML() local
90 Trace.Header = {FH.Version, FH.Type, FH.ConstantTSC, FH.NonstopTSC, in exportAsYAML()
91 FH.CycleFrequency}; in exportAsYAML()
109 Writer.write(FH.Version); in exportAsRAWv1()
110 Writer.write(FH.Type); in exportAsRAWv1()
112 if (FH.ConstantTSC) in exportAsRAWv1()
114 if (FH.NonstopTSC) in exportAsRAWv1()
117 Writer.write(FH.CycleFrequency); in exportAsRAWv1()
155 if (FH.Version >= 3) in exportAsRAWv1()
277 auto Version = FH.Version; in exportAsChromeTraceEventFormat()
[all …]
/openbsd/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Uncompress/
H A DBase.pm59 if (defined *$self->{FH}) {
147 if (defined *$self->{FH})
170 if (defined *$self->{FH})
181 if (defined *$self->{FH}) {
206 if (defined *$self->{FH})
1375 if (defined *$self->{FH}) {
1383 delete *$self->{FH} ;
1431 seek(*$self->{FH},0,1) if *$self->{FH};
1457 return defined *$self->{FH}
1458 ? fileno *$self->{FH}
[all …]
/openbsd/gnu/usr.bin/perl/dist/Unicode-Normalize/
H A Dmkheader259 open FH, ">$file" or croak "$PACKAGE: $file can't be made";
260 binmode FH; select FH;
292 close FH;
347 open FH, ">$file" or croak "$PACKAGE: $file can't be made";
348 binmode FH; select FH;
351 print FH << 'EOF';
401 close FH;
/openbsd/gnu/usr.bin/perl/dist/Devel-PPPort/
H A Dmktests.PL50 open FH, ">$testfile" or die "$testfile: $!\n";
51 binmode FH;
52 print FH $tmpl;
53 close FH;
/openbsd/gnu/usr.bin/perl/cpan/Term-Cap/
H A DCap.pm435 my ( $string, $cnt, $FH ) = @_;
450 print $FH $string if $FH;
487 my ( $cap, $cnt, $FH ) = @_;
509 print $FH $string if $FH;
569 my ( $cap, $code, $tmp, $FH ) = @_;
644 print $FH $string if $FH;
/openbsd/gnu/usr.bin/perl/cpan/IO-Zlib/t/
H A Duncomp1.t22 if (open(FH, ">$name"))
24 binmode FH;
25 print FH $hello;
26 close FH;
/openbsd/gnu/usr.bin/perl/ext/Errno/
H A DErrno_pm.PL55 local *FH;
57 unless(open(FH," LIBRARY/EXTRACT=ERRNO/OUTPUT=SYS\$OUTPUT $file |")) {
63 unless(open(FH,"$Config{cc} -E -dM $Config{cppflags} $file |")) {
68 unless(open(FH, '<', $file)) {
83 while(<FH>) {
88 close(FH);
/openbsd/gnu/usr.bin/perl/dist/ExtUtils-CBuilder/t/
H A D01-basic.t35 local *FH;
36 open FH, '>', $source_file or die "Can't create $source_file: $!";
37 print FH "int boot_basict(void) { return 1; }\n";
38 close FH;

1234567