Searched refs:fh (Results 176 - 200 of 535) sorted by relevance

1234567891011>>

/openbsd-current/gnu/usr.bin/perl/
H A Dgen_syscall_emulator.pl77 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 Dinstallman88 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 Dfuncs.pl193 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 DProc.pm75 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 DZlib.pm19 $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 Dfs.t185 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 Dexit.t53 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 D03_run-forked.t76 my ($fh, $filename) = tempfile();
79 print $fh $one_line;
81 close($fh);
/openbsd-current/gnu/usr.bin/perl/cpan/version/t/
H A Dcoretests.pm223 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 Doptree_misc.t115 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 DRemote.pm33 my $fh = $PIPES{$_};
35 print $fh "close\n";
36 close($fh);
/openbsd-current/gnu/usr.bin/perl/cpan/ExtUtils-Install/t/
H A DInstall.t233 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 DTemp.pm78 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 Denc2xs240 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 Dbasic_exceptions.t12 $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 Dthreads.t33 open my $fh, ">", File::Spec->catfile($dir, $file)
35 close $fh;
/openbsd-current/gnu/usr.bin/perl/Porting/
H A Dexpand-macro.pl32 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 Dvalgrindpp.pl50 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 Dhash-rt85026.t27 open(my $fh, "<", $tmp_file) ||
30 my $dump = <$fh>;
H A Dhash-clear-placeholders.t37 open(my $fh, "<", $tempfile) ||
40 my $got = <$fh>;
/openbsd-current/gnu/usr.bin/perl/dist/Storable/t/
H A Dstore.t99 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 Dudp_echo6.py62 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 Dtcp_atomicfrag6.py63 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 Dudp_atomicfrag6.py64 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 Dio_sel.t136 my $fh = IO::Socket::INET->new(
140 $sel->add($fh);
144 close $fh;
145 print "not " unless $sel->remove($fh) == 1;

Completed in 135 milliseconds

1234567891011>>