/openbsd-current/gnu/usr.bin/perl/ |
H A D | gen_syscall_emulator.pl | 77 open my $fh, '<', $filename; 78 my $content = do { local $/; readline $fh }; 79 close $fh; 203 open my $fh, '<', $filename; 204 while (readline $fh) { 220 close $fh; 251 open my $fh, '<', $filename; 252 while (readline $fh) { 255 while (readline $fh) { 266 close $fh; [all...] |
H A D | installman | 88 my $fh = open_or_die('utils.lst'); 89 while (<$fh>) { 108 close $fh or my_die("close 'utils.lst': $!"); 139 my $fh = open_or_die($mod); 140 while (my $line = <$fh>) { 146 close $fh or my_die("close '$mod': $!");
|
/openbsd-current/regress/usr.sbin/syslogd/ |
H A D | funcs.pl | 193 my $fh = shift || \*STDOUT; 194 my $id = shift // $fh; 197 print $fh "$msg\n"; 450 open(my $fh, '<', $file) 452 grep { /^logout/ or /^console .* off/ } <$fh> or sleep 1; 453 close($fh); 475 open(my $fh, '<', $file) 478 grep { /$pattern/ } <$fh> : first { /$pattern/ } <$fh>; 494 open(my $fh, ' [all...] |
H A D | Proc.pm | 75 open(my $fh, '>', $self->{logfile}) 77 $fh->autoflush; 78 $self->{log} = $fh; 186 open(my $fh, '<', $self->{logfile}) 188 my @match = grep { /$regex/ } <$fh>; 191 close($fh);
|
/openbsd-current/gnu/usr.bin/perl/cpan/IO-Zlib/ |
H A D | Zlib.pm | 19 $fh = new IO::Zlib; 20 if ($fh->open("file.gz", "rb")) { 21 print <$fh>; 22 $fh->close; 25 $fh = IO::Zlib->new("file.gz", "wb9"); 26 if (defined $fh) { 27 print $fh "bar\n"; 28 $fh->close; 31 $fh = IO::Zlib->new("file.gz", "rb"); 32 if (defined $fh) { [all...] |
/openbsd-current/gnu/usr.bin/perl/t/io/ |
H A D | fs.t | 185 ok(open(my $fh, "<", "a"), "open a"); 186 is(chmod(0, $fh), 1, "fchmod"); 194 $mode = (stat $fh)[2]; 201 close $fh; 203 ok(!chmod(0666, $fh), "chmod through closed handle fails"); 209 open(my $fh, "<", "a"); 210 is(chown(-1, -1, $fh), 1, "fchown"); 215 close $fh; 217 ok(!chown(-1, -1, $fh), "chown on closed handle fails"); 223 open(my $fh, "<", " [all...] |
/openbsd-current/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/ |
H A D | exit.t | 53 open my $fh, ">", "exit_map_test" or die $!; 54 print $fh <<'DONE'; 64 close $fh;
|
/openbsd-current/gnu/usr.bin/perl/cpan/IPC-Cmd/t/ |
H A D | 03_run-forked.t | 76 my ($fh, $filename) = tempfile(); 79 print $fh $one_line; 81 close($fh);
|
/openbsd-current/gnu/usr.bin/perl/cpan/version/t/ |
H A D | coretests.pm | 223 my ($fh, $filename) = tempfile('tXXXXXXX', SUFFIX => '.pm', UNLINK => 1); 225 print $fh "package $package;\n\$$package\::VERSION=0.58;\n1;\n"; 226 close $fh; 268 my ($fh, $filename) = tempfile('tXXXXXXX', SUFFIX => '.pm', UNLINK => 1); 270 print $fh "1;\n"; 271 close $fh; 290 my ($fh, $filename) = tempfile('tXXXXXXX', SUFFIX => '.pm', UNLINK => 1); 292 print $fh "package $package;\n#look ma no VERSION\n1;\n"; 293 close $fh; 304 my ($fh, [all...] |
/openbsd-current/gnu/usr.bin/perl/ext/B/t/ |
H A D | optree_misc.t | 115 open my $fh, '>', $tmpfile or die "Cannot open $tmpfile: $!"; 116 print $fh "no warnings;format =\n@<<<\n\$a\n@>>>\n\@b\n."; 117 close $fh;
|
/openbsd-current/regress/usr.sbin/relayd/ |
H A D | Remote.pm | 33 my $fh = $PIPES{$_}; 35 print $fh "close\n"; 36 close($fh);
|
/openbsd-current/gnu/usr.bin/perl/cpan/ExtUtils-Install/t/ |
H A D | Install.t | 233 open(my $fh, ">>", "blib/lib/Big/Dummy.pm") or die $!; 234 print $fh "Extra stuff 2\n"; 235 close $fh; 257 open($fh, ">>", "blib/lib/Big/Dummy.pm") or die $!; 258 print $fh "Extra stuff 3\n"; 259 close $fh;
|
/openbsd-current/usr.sbin/pkg_add/OpenBSD/ |
H A D | Temp.pm | 78 my ($fh, $file); 86 ($fh, $file) = permanent_file($tempbase, $stem); 94 return ($fh, $file);
|
/openbsd-current/gnu/usr.bin/perl/cpan/Encode/bin/ |
H A D | enc2xs | 240 foreach my $fh (\*C,\*D,\*H) 242 print $fh <<"END" unless $opt{'q'}; 454 my ($fh,$name) = @_; 459 while (<$fh>) 494 while (<$fh>) 549 my ($fh,$name) = @_; 554 while ($type = <$fh>) 562 my ($def,$sym,$pages) = split(/\s+/,scalar(<$fh>)); 578 my $line = <$fh>; 586 my $line = <$fh>; [all...] |
/openbsd-current/gnu/usr.bin/perl/cpan/autodie/t/ |
H A D | basic_exceptions.t | 12 $line = __LINE__; open(my $fh, '<', NO_SUCH_FILE); 40 $line2 = __LINE__; open(my $fh, '<', NO_SUCH_FILE);
|
/openbsd-current/gnu/usr.bin/perl/ext/File-Glob/t/ |
H A D | threads.t | 33 open my $fh, ">", File::Spec->catfile($dir, $file) 35 close $fh;
|
/openbsd-current/gnu/usr.bin/perl/Porting/ |
H A D | expand-macro.pl | 32 open my $fh, '<', 'MANIFEST' or die "Can't open MANIFEST: $!"; 33 while (<$fh>) { 120 open my $fh, '<', $tryout or die "Can't open $tryout: $!"; 122 while (<$fh>) {
|
H A D | valgrindpp.pl | 50 my $fh = \*STDOUT; 52 $fh = new IO::File ">$opt{'output-file'}" 83 summary($fh, \%error, \%leak); 88 my($fh, $error, $leak) = @_; 131 print $fh "Top $n test scripts for ${what}s:\n\n"; 135 printf $fh " %3s %-40s %3d $what$s\n", 139 print $fh "\n"; 145 print $fh "MEMORY ACCESS ERRORS\n\n"; 148 print $fh qq("$e"\n); 152 print $fh ' 'x [all...] |
/openbsd-current/gnu/usr.bin/perl/t/op/ |
H A D | hash-rt85026.t | 27 open(my $fh, "<", $tmp_file) || 30 my $dump = <$fh>;
|
H A D | hash-clear-placeholders.t | 37 open(my $fh, "<", $tempfile) || 40 my $got = <$fh>;
|
/openbsd-current/gnu/usr.bin/perl/dist/Storable/t/ |
H A D | store.t | 99 open my $fh, '<', \$test{$k}; 100 eval { Storable::fd_retrieve($fh); }; 109 open my $fh, '<', \$frozen; 110 eval { Storable::fd_retrieve($fh); };
|
/openbsd-current/regress/sys/netinet/pmtu/ |
H A D | udp_echo6.py | 62 fh=a.payload.payload variable in class:Sniff 63 if fh.offset != 0 or fh.nh != (ip6/udp).nh: 65 uh=fh.payload
|
H A D | tcp_atomicfrag6.py | 63 fh=a.payload.payload variable in class:Sniff 64 if fh.offset != 0 or fh.nh != (ip6/syn).nh: 66 th=fh.payload
|
H A D | udp_atomicfrag6.py | 64 fh=a.payload.payload variable in class:Sniff 65 if fh.offset != 0 or fh.nh != (ip6/udp).nh: 67 uh=fh.payload
|
/openbsd-current/gnu/usr.bin/perl/dist/IO/t/ |
H A D | io_sel.t | 136 my $fh = IO::Socket::INET->new( 140 $sel->add($fh); 144 close $fh; 145 print "not " unless $sel->remove($fh) == 1;
|