/openbsd-current/gnu/usr.bin/perl/dist/Net-Ping/lib/Net/ |
H A D | Ping.pm | 222 $self->{fh} = FileHandle->new(); 223 socket($self->{fh}, PF_INET, SOCK_DGRAM, 234 $self->{fh} = FileHandle->new(); 235 socket($self->{fh}, PF_INET, SOCK_RAW, $self->{proto_num}) || 239 setsockopt($self->{fh}, IPPROTO_IP, IP_TTL, pack("I*", $self->{'ttl'})) 252 $self->{fh} = FileHandle->new(); 253 socket($self->{fh}, $AF_INET6, SOCK_RAW, $self->{proto_num}) || 265 setsockopt($self->{fh}, $IPPROTO_IPV6, $IPV6_NEXTHOP, _pack_sockaddr_in($ip)) 270 setsockopt($self->{fh}, $IPPROTO_IPV6, $IPV6_USE_MIN_MTU, 276 setsockopt($self->{fh}, [all...] |
/openbsd-current/gnu/usr.bin/perl/regen/ |
H A D | opcode.pl | 386 my $fh = shift; 389 printf $fh "#define %-23s 0x%02x\n", $_, $DEFINES{$_}; 397 my $fh = shift; 508 print $fh $header; 510 print $fh qq{\nour \$VERSION = "$v";\n\n}; 533 print $fh "\$bits{\$_}{$bit} = '$flag' for qw(@o);\n"; 578 print $fh "$s\n"; 615 print $fh "$s;\n"; 621 print $fh "\n\nour %defines = (\n"; 622 printf $fh " [all...] |
/openbsd-current/gnu/usr.bin/perl/ |
H A D | configpm | 684 if (open(my $fh, '<', 'cflags')) { 687 while (<$fh>) { 831 if (open my $fh, '<', $f) { 832 while (<$fh>) { 1182 my $fh; 1183 $orig_config_txt = <$fh> if open $fh, "<", $Config_PM; 1184 $orig_heavy_txt = <$fh> if open $fh, "<", $Config_heavy;
|
/openbsd-current/usr.bin/libtool/LT/Mode/ |
H A D | Link.pm | 30 open(my $fh, '-|', '/sbin/ldconfig -r'); 31 if (!defined $fh) { 34 while (<$fh>) { 40 close($fh); 848 open my $fh, ">", $scriptfile or die; 850 print $fh $comment; 851 print $fh "{\n"; 856 print $fh "\tglobal:\n"; 859 print $fh "\t\t$_;\n"; 861 print $fh "\tloca [all...] |
/openbsd-current/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/t/ |
H A D | 513-t-merge.t | 14 open my $fh, '<', $file 17 return <$fh>;
|
/openbsd-current/gnu/usr.bin/perl/t/io/ |
H A D | open.t | 252 ok( open(my $stdout, ">&", \*STDOUT), 'dup \*STDOUT into lexical fh'); 254 ok( open(STDOUT, ">&", $stdout), 'restore dupped STDOUT from lexical fh'); 258 ok( open(my $stdout, ">&", STDOUT), 'dup STDOUT into lexical fh'); 263 ok( open(my $stdin, "<&", fileno STDIN), 'dup fileno(STDIN) into lexical fh') or _diag $!; 301 like($@, qr/<\$fh0\[...\]> line 1\./, "autoviv fh package aelem"); 306 like($@, qr/<\$fh1\{...}> line 1\./, "autoviv fh package helem"); 312 like($@, qr/<\$fh2\[...\]> line 1\./, "autoviv fh lexical aelem"); 318 like($@, qr/<\$fh3\{...}> line 1\./, "autoviv fh lexical helem"); 355 'sub f { open(my $fh, "xxx"); $fh [all...] |
/openbsd-current/gnu/usr.bin/perl/Porting/ |
H A D | leakfinder.pl | 43 open my $fh, "-|", $^X, "-Ilib", "-MXS::APItest=sv_count", 46 $out = <$fh>; 47 close $fh; 129 @prgs = (@prgs, $file, split "\n########\n", <$fh>) ;
|
/openbsd-current/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/ |
H A D | vstrings.t | 87 open my $fh, '<', $file or return "$file: $!\n"; 88 join q{}, grep { $_ =~ /Fake/i } <$fh>;
|
/openbsd-current/gnu/usr.bin/perl/cpan/File-Temp/t/ |
H A D | fork.t | 66 my ($fh, $filename) = File::Temp::tempfile( UNLINK => 1 );
|
/openbsd-current/gnu/usr.bin/perl/cpan/Pod-Simple/lib/Pod/Simple/ |
H A D | DumpAsXML.pm | 28 my $fh = $_[0]{'output_fh'}; 32 print $fh ' ' x ($_[0]{'indent'} || 0), "<", $_[1]; 38 print $fh ' ', $key, '="', $value, '"'; 43 print $fh ">\n";
|
/openbsd-current/gnu/usr.bin/perl/lib/ |
H A D | PerlIO.pm | 39 open(my $fh, "<:crlf", "my.txt") or die "open failed: $!"; 42 open(my $fh, ">>:encoding(UTF-8)", "some.log") 46 open(my $fh, "<", "his.jpg") or die "open failed: $!"; 47 binmode($fh) or die "binmode failed: $!"; 152 binmode $fh, ":raw:encoding(UTF-16LE):crlf" 193 C<binmode($fh)> - the stream is made suitable for passing binary data, 215 open(my $fh,">:raw:encoding(UTF-8)",...) 228 open(my $fh,...) or die "open failed: $!"; 230 binmode($fh,":encoding(...)") or die "binmode failed: $!"; 233 binmode($fh," [all...] |
/openbsd-current/gnu/usr.bin/perl/cpan/IO-Compress/bin/ |
H A D | zipdetails | 1251 my $fh = $_[0] ; 1255 seek($fh, $size, SEEK_SET); 1261 my $fh = $_[0] ; 1265 seek($fh, $size, SEEK_CUR); 1841 # my $fh = shift; 1849 # $fh->read($buffer, $len) == $len 1858 my $fh = shift; 1969 my $fh = shift; 1971 my $here = $fh->tell(); 1978 my $offset = findCentralDirectoryOffset($fh); [all...] |
/openbsd-current/gnu/usr.bin/perl/cpan/HTTP-Tiny/t/ |
H A D | 110_mirror.t | 52 open my $fh, ">", $tempfile; 53 close $fh;
|
/openbsd-current/usr.sbin/tcpdump/ |
H A D | parsenfsfh.c | 100 Parse_fh(caddr_t *fh, my_fsid *fsidp, ino_t *inop, argument 104 unsigned char *fhp = (unsigned char *)fh; 310 memcpy((char *)fsidp, (char *)fh, 14); 316 memcpy((char *)tempa, (char *)fh, 14); /* ensure alignment */
|
/openbsd-current/gnu/usr.bin/perl/t/ |
H A D | test.pl | 1248 my $fh = shift; 1253 while (<$fh>) { 1279 open my $fh, '<', $file or die "Cannot open $file: $!\n" ; 1281 while (<$fh>) { 1299 my ($t, @p) = _setup_one_file($fh, $file); 1303 close $fh 1416 open my $fh, '>', $filename or die "Cannot open $filename: $!\n"; 1417 print $fh $code; 1418 close $fh or die "Cannot close $filename: $!\n"; 1424 open my $fh, '>', [all...] |
/openbsd-current/gnu/usr.bin/perl/t/porting/ |
H A D | deprecation.t | 31 open my $fh, "<", $pod_file 39 while (<$fh>) {
|
/openbsd-current/usr.sbin/pkg_add/OpenBSD/ |
H A D | PackingElement.pm | 107 sub write($self, $fh) 112 say $fh "\@", $self->keyword, "$s"; 114 say $fh $s; 119 sub write_no_sig($self, $fh) 121 $self->write($fh); 124 sub write_without_variation($self, $fh) 126 $self->write_no_sig($fh); 340 sub write($self, $fh) 342 print $fh "\@comment no checksum\n" if defined $self->{nochecksum}; 343 print $fh "\ [all...] |
/openbsd-current/gnu/usr.bin/perl/lib/ExtUtils/ |
H A D | Embed.pm | 34 my($fh,@mods,%seen); 51 $fh = \*STDOUT; 54 open $fh, '>', $file 61 print $fh &xsi_header(); 62 print $fh "\nEXTERN_C void xs_init ($xsinit_proto);\n\n"; 63 print $fh &xsi_protos(@mods); 65 print $fh "\nEXTERN_C void\nxs_init($xsinit_proto)\n{\n"; 66 print $fh &xsi_body(@mods); 67 print $fh "}\n";
|
/openbsd-current/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/ |
H A D | HandleConfig.pm | 350 my($fh) = FileHandle->new; 352 open $fh, ">$configpm" or 354 $fh->print(qq[$msg\$CPAN::Config = \{\n]); 361 $fh->print( 367 $fh->print("};\n1;\n__END__\n"); 368 close $fh; 634 my $fh = FileHandle->new; 635 if ($fh->open(">$configpm")) { 636 $fh->print("1;\n");
|
H A D | FTP.pm | 21 my($fh, $file) = @_; 25 until (open $fh, "+>>$file") { 36 my($self,$fh) = @_; 39 my $locktype = $fh ? LOCK_EX : LOCK_SH; 45 $fh ||= FileHandle->new; 47 _plus_append_open($fh,$file); 50 while (!CPAN::_flock($fh, $locktype|LOCK_NB)) { 63 _plus_append_open($fh, $file); 87 CPAN::_flock($fh, LOCK_UN); 119 my $fh [all...] |
/openbsd-current/usr.sbin/nsd/ |
H A D | verify.c | 202 if(verifier->zone_feed.fh != NULL) { 204 fclose(verifier->zone_feed.fh); 205 verifier->zone_feed.fh = NULL; 231 print_rr(verifier->zone_feed.fh, 238 fclose(verifier->zone_feed.fh); 239 verifier->zone_feed.fh = NULL; 539 verifier->zone_feed.fh = fin; 551 fileno(verifier->zone_feed.fh), 597 verifier->zone_feed.fh = NULL;
|
/openbsd-current/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/IPC/Driver/ |
H A D | Files.pm | 85 open(my $fh, '>', $hfile) or $self->abort_trace("Could not create hub file '$hid': $!"); 86 print $fh "$$\n" . get_tid() . "\n"; 87 close($fh); 100 open(my $fh, '<', $hfile) or $self->abort_trace("Could not open hub file '$hid': $!"); 101 my ($pid, $tid) = <$fh>; 102 close($fh); 228 open(my $fh, '>>', $abort) or die "Could not open abort file: $!"; 229 print $fh $msg, "\n"; 230 close($fh) or die "Could not close abort file: $!";
|
/openbsd-current/gnu/usr.bin/perl/ext/VMS-Stdio/ |
H A D | Stdio.pm | 64 $fh = vmsopen("my.file","rfm=var","alq=100",...) or die $!; 65 $name = getname($fh); 66 print $fh "Hello, world!\n"; 67 flush($fh); 68 sync($fh); 69 rewind($fh); 70 $line = <$fh>; 71 undef $fh; # closes file 72 $fh = vmssysopen("another.file", O_RDONLY | O_NDELAY, 0, "ctx=bin"); 73 sysread($fh, [all...] |
/openbsd-current/usr.sbin/rpc.lockd/ |
H A D | lockd_lock.c | 65 fhconv(nfs_fhandle_t *fh, const netobj *rfh) argument 77 fh->fhdata = malloc(sz); 78 if (fh->fhdata == NULL) { 81 fh->fhsize = sz; 82 memcpy(fh->fhdata, rfh->n_bytes, sz); 87 fhfree(nfs_fhandle_t *fh) argument 90 free(fh->fhdata); 180 if (fhconv(&filehandle, &lock->fh)) { 232 if (fhconv(&newfl->filehandle, &lckarg->alock.fh)) { 279 /* look for a lock rq from this host for this fh */ [all...] |
/openbsd-current/gnu/llvm/clang/www/demo/ |
H A D | index.cgi | 112 my $fh = $msg->open(); 113 print $fh $body; 114 $fh->close(); 326 my $fh = $c->upload('uploaded_file'); 327 if ( !$fh ) { 330 while (<$fh>) { 333 close $fh;
|