/openbsd-current/gnu/usr.bin/perl/regen/ |
H A D | miniperlmain.pl | 13 my $fh = open_new('miniperlmain.c', undef, {by => "$0 and ExtUtils::Miniperl"}); 14 writemain($fh); 15 read_only_bottom_close_and_rename($fh);
|
/openbsd-current/gnu/usr.bin/perl/cpan/File-Temp/t/ |
H A D | cmp.t | 10 my $fh = File::Temp->new(); 11 isa_ok ($fh, 'File::Temp'); 13 ok( "$fh" ne "foo", "compare stringified object with string"); 14 ok( $fh ne "foo", "compare object with string"); 15 ok( $fh eq $fh, "compare eq with self"); 17 ok( $fh != 0, "compare != 0"); 18 ok( $fh == $fh, "compare == with self"); 19 ok( $fh ! [all...] |
H A D | object.t | 44 my $fh = File::Temp->new( SUFFIX => '.txt' ); 46 ok( (-f "$fh"), "File $fh exists" ); 48 ok( close( $fh ), "Close file $fh" ); 49 ok( (-f "$fh"), "File $fh still exists after close" ); 51 push(@files, "$fh"); 92 $fh = File::Temp->new( 97 ok( $fh [all...] |
H A D | posix.t | 25 (my $fh, $tmpnam) = tmpnam(); 27 print "# TMPNAM: in list context: $fh $tmpnam\n"; 33 my $status = unlink0($fh, $tmpnam); 44 $fh = tmpfile(); 46 if (defined $fh) { 47 ok( $fh ); 48 print "# TMPFILE: tmpfile got FH $fh\n"; 50 $fh->autoflush(1) if $] >= 5.006; 55 print $fh $original 59 ok( seek($fh, [all...] |
/openbsd-current/gnu/usr.bin/perl/t/op/ |
H A D | filehandle.t | 14 open my $fh, "<", \$str; 15 is <$fh>, "foo", "open fh to reference to string: got expected content"; 18 $fh->seek(0, 0); 19 is $fh->tell, 0, "after 'seek' and 'tell', got expected current fh position in bytes"; 20 is <$fh>, "foo", "after 'seek' and 'tell', still got expected content";
|
H A D | print.t | 24 open my $fh, "<:utf8", \"\xC1\xAF\xC1\xAF\xC1\xB0\xC1\xB3" 26 read($fh, my $s, 10) or die "Could not read\n"; 38 open my $fh, "<:utf8", \"\x76\x41\x76\x41\x77\x42\x77\x43" 40 read($fh, my $s, 10) or die "Could not read\n";
|
/openbsd-current/gnu/usr.bin/perl/win32/ |
H A D | create_perllibst_h.pl | 9 open my $fh, '>', 'perllibst.h' or die "Failed to write to perllibst.h:$!"; 13 print $fh "/*DO NOT EDIT\n this file is included from perllib.c to init static extensions */\n"; 14 print $fh "#ifdef STATIC1\n",(map {" \"$_\",\n"} @statics),"#undef STATIC1\n#endif\n"; 15 print $fh "#ifdef STATIC2\n",(map {" EXTERN_C void boot_$_ (pTHX_ CV* cv);\n"} @statics1),"#undef STATIC2\n#endif\n"; 16 print $fh "#ifdef STATIC3\n",(map {" newXS(\"$statics2[$_]::bootstrap\", boot_$statics1[$_], file);\n"} 0 .. $#statics),"#undef STATIC3\n#endif\n"; 17 close $fh;
|
/openbsd-current/gnu/usr.bin/perl/t/io/ |
H A D | perlio_open.t | 19 ok((open my $fh, "+>", undef), "open my \$fh, '+>', undef"); 20 print $fh "the right write stuff"; 21 ok(seek($fh, 0, SEEK_SET), "seek to zero"); 22 my $data = <$fh>; 27 ok((open my $fh, "+<", undef), "open my \$fh, '+<', undef"); 28 print $fh "the right read stuff"; 29 ok(seek($fh, 0, SEEK_SET), "seek to zero"); 30 my $data = <$fh>; [all...] |
/openbsd-current/gnu/usr.bin/perl/cpan/autodie/t/ |
H A D | autodie_skippy.pm | 10 open(my $fh, '<', 'this_file_had_better_not_exist'); 19 open(my $fh, '<', 'this_file_had_better_not_exist');
|
H A D | utf8_open.t | 31 open my $fh, ">", $file; 33 my @layers = PerlIO::get_layers($fh); 36 print $fh $txt; 37 close $fh; 42 open my $fh, "<", $file; 44 my @layers = PerlIO::get_layers($fh); 47 is join("\n", <$fh>), $txt; 52 open my($fh), $file; 54 my @layers = PerlIO::get_layers($fh); 57 is join("\n", <$fh>), [all...] |
H A D | string-eval-leak.t | 18 open(my $fh, '<', 'this_file_had_better_not_exist'); 36 open(my $fh, '<', 'this_file_had_better_not_exist');
|
/openbsd-current/gnu/usr.bin/perl/cpan/Scalar-List-Utils/t/ |
H A D | openhan.t | 12 my $fh = \*STDERR; 13 is(openhandle($fh), $fh, 'STDERR'); 26 open my $fh, "<", $0; 27 skip "could not open $0 for reading: $!", 2 unless $fh; 28 is(openhandle($fh), $fh, "works with indirect filehandles"); 29 close($fh); 30 is(openhandle($fh), undef, "works with indirect filehandles"); 36 open my $fh, "<", \"i [all...] |
/openbsd-current/gnu/usr.bin/perl/ext/PerlIO-encoding/t/ |
H A D | fallback.t | 30 ok(open(my $fh,">encoding(iso-8859-1)",$file),"opened iso-8859-1 file"); 32 print $fh $str,"0.02\n"; 33 close($fh); 37 open($fh,'<',$file) || die "File cannot be re-opened"; 38 my $line = <$fh>; 40 close($fh); 44 ok(open(my $fh,">encoding(iso-8859-1)",$file),"opened iso-8859-1 file"); 46 print $fh $str,"0.02\n"; 47 close($fh); 49 open($fh,'<', [all...] |
/openbsd-current/gnu/usr.bin/perl/cpan/autodie/t/lib/ |
H A D | Caller_helper.pm | 8 $line = __LINE__; open(my $fh, '<', "no_such_file_here");
|
/openbsd-current/gnu/llvm/clang/utils/analyzer/ |
H A D | update_plist_test.pl | 14 my $fh = File::Temp->new(); 15 my $filename = $fh->filename; 16 $fh->unlink_on_destroy(1); 22 print $fh $_; 40 print $fh "// CHECK: "; 44 print $fh "// CHECK-NEXT: "; 46 print $fh $_; 49 close ($fh);
|
/openbsd-current/gnu/usr.bin/perl/ext/PerlIO-scalar/t/ |
H A D | scalar.t | 18 my $fh; 20 ok(open($fh,"+<",\$var)); 22 is(<$fh>, $var); 24 ok(eof($fh)); 26 ok(seek($fh,0,SEEK_SET)); 27 ok(!eof($fh)); 29 ok(print $fh "bbb\n"); 32 ok(seek($fh,0,SEEK_SET)); 33 ok(!eof($fh)); 34 is(<$fh>, "fo [all...] |
/openbsd-current/gnu/usr.bin/perl/cpan/HTTP-Tiny/t/ |
H A D | 030_response.t | 23 my $fh = tmpfile($response); 24 my $handle = HTTP::Tiny::Handle->new(fh => $fh); 31 my $fh = tmpfile($response); 32 my $handle = HTTP::Tiny::Handle->new(fh => $fh); 40 my $fh = tmpfile($response); 41 my $handle = HTTP::Tiny::Handle->new(fh => $fh); 49 my $fh [all...] |
H A D | 020_headers.t | 19 my $fh = tmpfile($header); 21 my $handle = HTTP::Tiny::Handle->new(fh => $fh); 28 my $fh = tmpfile($header); 30 my $handle = HTTP::Tiny::Handle->new(fh => $fh); 37 my $fh = tmpfile($header); 39 my $handle = HTTP::Tiny::Handle->new(fh => $fh); 45 my $fh [all...] |
/openbsd-current/gnu/usr.bin/perl/dist/IO/t/ |
H A D | io_file.t | 28 my $fh = $Class->new; 30 isa_ok( $fh, $Class ); 31 ok( $fh->open($File), " Opened '$File'" ); 33 my $cont = do { local $/; <$fh> }; 38 { my $fh = $Class->new; 40 isa_ok( $fh, $Class ); 41 ok( $fh->open($File), " Opened '$File' $!" ); 42 ok( $fh->binmode, " binmode enabled" ); 44 my $cont = do { local $/; <$fh> };
|
/openbsd-current/gnu/usr.bin/perl/ext/PerlIO-via/t/ |
H A D | thread.t | 29 open my $fh, ">:via(Test1)", $tmp 31 $fh->autoflush; 33 print $fh "AXAX"; 38 print $fh "XZXZ"; 41 print $fh "BXBX"; 42 close $fh; 62 my ($self, $data, $fh) = @_; 64 $fh->autoflush; 65 print $fh $data;
|
/openbsd-current/gnu/usr.bin/perl/lib/ |
H A D | FileHandle.t | 27 my $fh = (new FileHandle "./TEST", O_RDONLY 29 ok(defined($fh), "create new handle O_RDONLY"); 31 my $buffer = <$fh>; 34 ungetc $fh ord 'A'; 36 CORE::read($fh, $buf,1); 38 close $fh; 40 $fh = new FileHandle; 41 ok(($fh->open("< TEST") && <$fh> eq $buffer), 44 $fh [all...] |
/openbsd-current/gnu/usr.bin/perl/Porting/ |
H A D | checkcfgvar.pl | 60 open my $fh, '<', $MASTER_CFG; 61 while (<$fh>) { 68 close $fh; 76 open my $fh, '<', 'MANIFEST'; 77 while (<$fh>) { 80 close $fh; 95 open my $fh, '<', $cfg or die "$cfg: $!\n"; 100 while (<$fh>) { 106 while (<$fh>) { 127 close $fh; [all...] |
/openbsd-current/gnu/usr.bin/perl/cpan/Win32API-File/t/ |
H A D | tie.t | 29 my $fh = Win32API::File->new("+> $filename") 32 my $tell = tell $fh; 33 is(0+$tell, 0, "tell \$fh == '$tell'"); 37 ok(print($fh $text), "printed 'some text\\n'"); 39 $tell = tell $fh; 43 my $seek = seek($fh, 0, 0); 46 my $eof = eof $fh; 49 my $readline = <$fh>; 55 $eof = eof $fh; 58 ok(close($fh), 'close [all...] |
/openbsd-current/gnu/usr.bin/perl/cpan/Test-Harness/t/lib/Dev/ |
H A D | Null.pm | 11 my $fh = do { local *HANDLE; \*HANDLE }; 12 return bless $fh, $class;
|
/openbsd-current/regress/usr.sbin/syslogd/ |
H A D | RSyslogd.pm | 62 open(my $fh, '>', $self->{conffile}) 65 print $fh "\$ModLoad imudp\n"; 66 print $fh "\$UDPServerRun $listenport\n"; 69 print $fh "\$ModLoad imtcp\n"; 70 print $fh "\$InputTCPServerRun $listenport\n"; 73 print $fh "\$DefaultNetstreamDriver gtls\n"; 81 print $fh "\$DefaultNetstreamDriver${k}File $v\n"; 83 print $fh "\$ModLoad imtcp\n"; 84 print $fh "\$InputTCPServerStreamDriverMode 1\n"; 85 print $fh "\ [all...] |