/openbsd-current/gnu/usr.bin/perl/dist/Tie-File/t/ |
H A D | 06_fixrec.t | 30 local *FH = $o->{fh};
|
/openbsd-current/regress/usr.bin/openssl/x509/ |
H A D | create-libressl-test-certs.pl | 109 open(my $fh,'>',"$file") or die "failed to create $file: $!"; 110 print $fh @_
|
/openbsd-current/regress/lib/libssl/verify/ |
H A D | create-libressl-test-certs.pl | 109 open(my $fh,'>',"$file") or die "failed to create $file: $!"; 110 print $fh @_
|
/openbsd-current/usr.sbin/pkg_add/OpenBSD/ |
H A D | PkgCreate.pm | 129 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 D | Perldoc.pm | 843 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 D | hash.c | 76 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 D | syslog.t | 246 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 D | add-package.pl | 377 { 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 D | corelist.pl | 63 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 D | 02derived.t | 48 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 D | nntp_ssl.t | 47 my ($fh,$cafile) = tempfile(); 48 print $fh IO::Socket::SSL::Utils::PEM_cert2string($ca); 49 close($fh);
|
H A D | pop3_ssl.t | 46 my ($fh,$cafile) = tempfile(); 47 print $fh IO::Socket::SSL::Utils::PEM_cert2string($ca); 48 close($fh);
|
H A D | smtp_ssl.t | 46 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 D | syscall_emulator.t | 38 open(my $fh, '-|', $^X, "../utils/h2ph", '-d', $dir, 40 note <$fh>; 41 close($fh) or die $! ? "h2ph: $!" : "h2ph: $?";
|
H A D | filetest.t | 30 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 D | coreamp.t | 428 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 D | symlink.t | 73 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 D | ptargrep | 98 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 D | make_ext.pl | 400 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 D | buildtoc | 189 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 D | Stdio.xs | 126 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 D | Podlators.pm | 96 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 D | Temp.pm | 50 #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 D | Tarzip.pm | 181 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 D | fdt.c | 42 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);
|