Home
last modified time | relevance | path

Searched refs:fh2 (Results 1 – 21 of 21) sorted by relevance

/openbsd/gnu/usr.bin/perl/cpan/Pod-Usage/t/pod/
H A Dtestcmp.pl51 my ($fh1, $fh2) = ($file1, $file2);
55 unless (ref $fh2) {
56 $fh2 = FileHandle->new($file2, "r") or die "Can't open $file2: $!";
65 defined($f2text = <$fh2>) and chomp($f2text);
76 close($fh2) unless (ref $file2);
/openbsd/gnu/usr.bin/perl/cpan/Pod-Checker/t/pod/
H A Dtestcmp.pl51 my ($fh1, $fh2) = ($file1, $file2);
55 unless (ref $fh2) {
56 $fh2 = FileHandle->new($file2, "r") or die "Can't open $file2: $!";
65 defined($f2text = <$fh2>) and chomp($f2text);
76 close($fh2) unless (ref $file2);
/openbsd/gnu/usr.bin/perl/ext/PerlIO-via/t/
H A Dvia.t87 ok(open(my $fh2, ">&", $fh1), "dup it");
89 close $fh2;
94 ok(open($fh2, ">&", $fh1), "dup it");
95 print $fh2 "XZXZ";
97 close $fh2;
/openbsd/gnu/usr.bin/perl/cpan/Digest/t/
H A Dbase.t68 open( my $fh2, $tempfile ) || die;
69 $ctx->addfile($fh2);
70 close($fh2);
/openbsd/gnu/usr.bin/perl/ext/XS-Typemap/t/
H A DTypemap.t455 my $fh2 = T_INOUT($fh);
456 seek($fh2, 0, 0);
457 is(readline($fh2), $str);
458 ok(print $fh2 "foo\n");
461 ok(!close $fh2);
470 my $fh2 = T_IN($fh);
471 is(readline($fh2), $buf);
484 my $fh2 = T_OUT($fh);
485 seek($fh2, 0, 0);
486 is(readline($fh2), $str);
[all …]
/openbsd/gnu/usr.bin/perl/cpan/OpenBSD-MkTemp/t/
H A DOpenBSD-MkTemp.t51 my($fh2, $file2) = OpenBSD::MkTemp::mkstemps($template, ".foo");
58 @fstat = stat($fh2);
62 my $fileno = fileno($fh2);
63 undef $fh2;
/openbsd/gnu/usr.bin/perl/cpan/File-Temp/t/
H A Dsecurity.t105 my ($fh2, $fname2) = eval { tempfile ($template, UNLINK => 1 ); };
110 close($fh2);
/openbsd/gnu/usr.bin/perl/t/io/
H A Dopen.t308 my @fh2;
309 open($fh2[0], "TEST");
310 ok_cloexec($fh2[0]);
311 gimme($fh2[0]);
312 like($@, qr/<\$fh2\[...\]> line 1\./, "autoviv fh lexical aelem");
516 ok(!open(my $fh2, ">&", $fh), "should fail to dup the closed handle");
/openbsd/usr.sbin/pkg_add/OpenBSD/PackageRepository/
H A DCache.pm153 open my $fh2, "<", \$content;
154 return OpenBSD::PackingList->read($fh2);
/openbsd/gnu/usr.bin/perl/cpan/autodie/t/
H A Dsysopen.t20 sysopen(my $fh2, NO_SUCH_FILE, O_RDONLY);
/openbsd/gnu/usr.bin/perl/dist/Time-HiRes/t/
H A Dutime.t189 my ($fh2, $filename2) = tempfile( "Time-HiRes-utime-XXXXXXXXX", UNLINK => 1 );
190 is Time::HiRes::utime($atime, $mtime, $filename1, $fh2), 2, "Two files changed";
212 my ($fh2, $filename2) = tempfile( "Time-HiRes-utime-XXXXXXXXX", UNLINK => 1 );
216 is Time::HiRes::utime(undef, undef, $filename1, $fh2), 2, "Two files changed";
/openbsd/gnu/usr.bin/perl/t/op/
H A Dfiletest.t296 'open my $fh, "test.pl"; -r $fh; undef $fh; open my $fh2, '
305 . 'open my $fh2, ' . "q\0" . which_perl() . "\0; print -B _",
H A Dcoreamp.t701 ok &myopen(my $fh2, "<", \"sharummbles"), 'retval of 3-arg &open';
702 is <$fh2>, 'sharummbles', 'result of three-arg &open';
/openbsd/gnu/usr.bin/perl/cpan/Pod-Perldoc/lib/Pod/Perldoc/
H A DToMan.pm183 open my $fh2, '>', $file;
184 $fh2;
/openbsd/gnu/usr.bin/gcc/gcc/testsuite/gcc.dg/format/
H A Dattr-3.c60 extern void fh2 (unsigned char *, ...) __attribute__((format(printf, 1, 2))); /* { dg-error "not a …
/openbsd/usr.bin/libtool/LT/Mode/
H A DLink.pm849 open my $fh2, '<', $symbolsfile or die;
853 while (<$fh2>) {
863 close($fh2);
/openbsd/gnu/usr.bin/perl/t/lib/warnings/
H A Dpp_hot153 open $fh2, "nonexistent";
154 print $fh2 42;
161 print() on closed filehandle $fh2 at - line 7.
H A Ddoio350 open my $fh2, ">doiowarn.tmp"; close $fh2;
/openbsd/usr.sbin/rpc.lockd/
H A Dlockd_lock.c59 fhcmp(const nfs_fhandle_t *fh1, const nfs_fhandle_t *fh2) in fhcmp() argument
61 return memcmp(fh1->fhdata, fh2->fhdata, sizeof(fhandle_t)); in fhcmp()
/openbsd/gnu/usr.bin/perl/cpan/IO-Compress/t/compress/
H A Doneshot.pl1613 my $fh2 = IO::File->new( "< $file2" );
/openbsd/gnu/usr.bin/perl/cpan/perlfaq/lib/
H A Dperlfaq5.pod515 my @fhs = ( $fh1, $fh2, $fh3 );
1125 for my $fh ($fh1, $fh2, $fh3) { print $fh "whatever\n" }