Searched refs:fh (Results 251 - 275 of 535) sorted by relevance

<<11121314151617181920>>

/openbsd-current/gnu/usr.bin/perl/dist/Tie-File/t/
H A D06_fixrec.t30 local *FH = $o->{fh};
/openbsd-current/regress/usr.bin/openssl/x509/
H A Dcreate-libressl-test-certs.pl109 open(my $fh,'>',"$file") or die "failed to create $file: $!";
110 print $fh @_
/openbsd-current/regress/lib/libssl/verify/
H A Dcreate-libressl-test-certs.pl109 open(my $fh,'>',"$file") or die "failed to create $file: $!";
110 print $fh @_
/openbsd-current/usr.sbin/pkg_add/OpenBSD/
H A DPkgCreate.pm129 open(my $fh, '<', $fname) or $bad = 1;
136 while (<$fh>) {
148 while (<$fh>) {
635 open my $fh, ">", $tempname;
636 if (!defined $fh) {
640 chmod 0444, $fh;
644 if (!$self->format($state, $tempname, $fh)) {
816 open(my $fh, '<', $filename) or return undef;
818 bless { fh => $fh, nam
[all...]
/openbsd-current/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/
H A DPerldoc.pm843 my ($fh, $filename) = File::Temp::tempfile(UNLINK => 1);
844 $fh->print($response->{content});
1052 open my $fh, $op, $path or $self->die("Couldn't open $path: $!");
1053 return $fh;
1057 my ($self, $fh, $encoding) = @_;
1070 binmode($fh, $encoding);
1073 return $fh;
1088 my $fh = $self->open_fh("<", $perlvar);
1101 while (<$fh>) {
1106 $fh
[all...]
/openbsd-current/gnu/usr.sbin/mkhybrid/src/
H A Dhash.c76 struct file_hash * fh, *fh1; local
80 fh = hash_table[i];
81 while(fh) {
82 fh1 = fh->next;
83 free(fh);
84 fh = fh1;
/openbsd-current/gnu/usr.bin/perl/cpan/Sys-Syslog/t/
H A Dsyslog.t246 my $fh = FileHandle->new;
247 open $fh, ">$logfile" or skip "can't create file '$logfile': $!", 2;
248 close $fh;
310 my $fh = FileHandle->new;
311 open $fh, ">$log" or skip "can't write file '$log': $!", 3;
312 close $fh;
/openbsd-current/gnu/usr.bin/perl/Porting/
H A Dadd-package.pl377 { open my $fh, '<', $file or die "Could not open $file: $!";
378 @manifest = <$fh>;
379 close $fh;
417 open my $fh, '>', $file or die "Could not open $file for writing: $!";
418 #print $fh sort { lc $a cmp lc $b } @manifest;
420 print $fh
426 close $fh;
H A Dcorelist.pl63 my $fh;
66 open $fh, '<', $modlistfile;
70 open $fh, '-|', "$zcat $modlistfile.gz";
81 if ( $fh and !$content ) {
83 $content = join( '', <$fh> );
185 open my $fh, "<:utf8", "$_[0]"
187 return do { local $/; <$fh> };
466 open my $fh, '<', 'utils.lst' or die "$!\n";
467 while (<$fh>) {
/openbsd-current/gnu/usr.bin/perl/cpan/version/t/
H A D02derived.t48 my ($fh, $filename) = tempfile('tXXXXXXX', SUFFIX => '.pm', UNLINK => 1);
50 print $fh <<"EOF";
56 close $fh;
/openbsd-current/gnu/usr.bin/perl/cpan/libnet/t/
H A Dnntp_ssl.t47 my ($fh,$cafile) = tempfile();
48 print $fh IO::Socket::SSL::Utils::PEM_cert2string($ca);
49 close($fh);
H A Dpop3_ssl.t46 my ($fh,$cafile) = tempfile();
47 print $fh IO::Socket::SSL::Utils::PEM_cert2string($ca);
48 close($fh);
H A Dsmtp_ssl.t46 my ($fh,$cafile) = tempfile();
47 print $fh IO::Socket::SSL::Utils::PEM_cert2string($ca);
48 close($fh);
/openbsd-current/gnu/usr.bin/perl/t/op/
H A Dsyscall_emulator.t38 open(my $fh, '-|', $^X, "../utils/h2ph", '-d', $dir,
40 note <$fh>;
41 close($fh) or die $! ? "h2ph: $!" : "h2ph: $?";
H A Dfiletest.t30 open my $fh, '>', $ro_empty_file or die "open $fh: $!";
31 close $fh or die "close $fh: $!";
296 'open my $fh, "test.pl"; -r $fh; undef $fh; open my $fh2, '
311 open my $fh, 'test.pl';
313 stat *$fh{IO};
317 -r *$fh{I
[all...]
H A Dcoreamp.t428 open my $fh, ">", \my $buffalo;
429 print $fh 'an address in the outskirts of Jersey';
430 ok &CORE::close($fh), '&CORE::close retval';
431 print $fh 'lalala';
434 # This has to be a separate variable from $fh, as re-using the same
437 # beyond the end of the stack and finding a $fh left over from before.
575 open my $fh, "<", \(my $buf='falo');
577 is &mygetc($fh), 'f', '&mygetc';
579 lis [&mygetc($fh)], ['a'], '&mygetc in list context';
695 ok &myopen(my $fh, "tes
[all...]
/openbsd-current/gnu/usr.bin/perl/t/win32/
H A Dsymlink.t73 ok(open(my $fh, ">", $tmpfile1), "make a file");
74 close $fh if $fh;
/openbsd-current/gnu/usr.bin/perl/cpan/Archive-Tar/bin/
H A Dptargrep98 my($fh);
104 open $fh, '>', "$dir/$file" or die "open($dir/$file): $!";
108 open $fh, '>', $file or die "open($file): $!";
110 print $fh $body;
111 close($fh);
/openbsd-current/gnu/usr.bin/perl/
H A Dmake_ext.pl400 open my $fh, '>', 'Makefile.PL'
402 printf $fh <<'EOM', $0, $mname, $fromname, $key, $value;
455 close $fh or die "Can't close Makefile.PL: $!";
737 open my $fh, '>', $pm_to_blib
739 print $fh "$0 has handled pm_to_blib directly\n";
740 close $fh
772 open my $fh, '>>', $file or die "open $file: $!";
775 flock $fh, 2 or warn "flock $file: $!";
776 print $fh $contents or die "print $file: $!";
777 close $fh o
[all...]
/openbsd-current/gnu/usr.bin/perl/pod/
H A Dbuildtoc189 open my $fh, '<:', $file or my_die "Can't open file '$file' for $pod: $!";
193 while (<$fh>) {
205 seek $fh, 0, 0 or my_die "Can't rewind file '$file': $!";
208 while(<$fh>) {
213 $_ = <$fh>;
/openbsd-current/gnu/usr.bin/perl/ext/VMS-Stdio/
H A DStdio.xs126 binmode(fh)
127 SV * fh
137 io = sv_2io(fh);
299 SV *fh;
353 fh = newFH(pio_fp,(mode[1] ? '+' : (mode[0] == 'r' ? '<' : (mode[0] == 'a' ? 'a' : '>'))));
354 ST(0) = (fh ? sv_2mortal(fh) : &PL_sv_undef);
368 SV *fh;
411 fh = newFH(pio_fp,"<>++"[i]);
412 ST(0) = (fh
[all...]
/openbsd-current/gnu/usr.bin/perl/cpan/podlators/t/lib/Test/
H A DPodlators.pm96 open(my $fh, '<', $path) or BAIL_OUT("cannot open $path: $!");
97 while (defined($line = <$fh>)) {
105 close($fh) or BAIL_OUT("cannot close $path: $!");
149 # $fh - File handle to read the data from
161 my ($fh, $format_ref) = @_;
167 while (defined($line = <$fh>)) {
176 while (defined($line = <$fh>)) {
195 while (defined($line = <$fh>)) {
213 open(my $fh, '<', $file) or BAIL_OUT("cannot open $file: $!");
217 while (defined(my $line = <$fh>)) {
[all...]
/openbsd-current/gnu/usr.bin/perl/cpan/File-Temp/lib/File/
H A DTemp.pm50 #pod $fh = tempfile();
51 #pod ($fh, $filename) = tempfile();
53 #pod ($fh, $filename) = tempfile( $template, DIR => $dir);
54 #pod ($fh, $filename) = tempfile( $template, SUFFIX => '.dat');
55 #pod ($fh, $filename) = tempfile( $template, TMPDIR => 1 );
57 #pod binmode( $fh, ":utf8" );
60 #pod ($fh, $filename) = tempfile( DIR => $dir );
68 #pod $fh = File::Temp->new();
69 #pod $fname = $fh->filename;
71 #pod $fh
[all...]
/openbsd-current/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/
H A DTarzip.pm181 my $fh = FileHandle->new($file)
183 binmode $fh;
184 $self->{FH} = $fh;
199 my $fh = FileHandle->new($pipe) or $CPAN::Frontend->mydie("Could not pipe[$pipe]: $!");
200 binmode $fh;
201 $self->{FH} = $fh;
217 my $fh = $self->{FH};
218 return scalar <$fh>;
231 my $fh = $self->{FH};
232 return read($fh,
[all...]
/openbsd-current/sys/arch/arm64/stand/efiboot/
H A Dfdt.c42 struct fdt_head *fh; local
45 fh = fdt;
48 if (betoh32(fh->fh_magic) != FDT_MAGIC)
51 if (betoh32(fh->fh_version) > FDT_CODE_VERSION)
54 tok = skip_nops(ptr + (betoh32(fh->fh_struct_off) / 4));
59 if ((betoh32(fh->fh_version) >= 17) &&
60 (betoh32(*(ptr + (betoh32(fh->fh_struct_off) / 4) +
61 (betoh32(fh->fh_struct_size) / 4) - 1)) != FDT_END))
64 return betoh32(fh->fh_version);

Completed in 322 milliseconds

<<11121314151617181920>>