/openbsd-current/gnu/usr.bin/perl/t/op/ |
H A D | unlink.t | 20 open my $fh, ">", $file or die "Can't open $file: $!"; 21 close $fh or die "Can't close $file: $!";
|
/openbsd-current/usr.sbin/pkg_add/OpenBSD/PackageRepository/ |
H A D | SCP.pm | 124 if (open(my $fh, '<', $fname)) { 125 my $size = (stat $fh)[7]; 128 while (read($fh, $buffer, 1024 * 1024) > 0) { 131 close($fh);
|
H A D | Cache.pm | 100 open my $fh, "-|", $self->pipe_locate(map { "$_-[0-9]*"} @list) 102 while (<$fh>) { 115 close($fh); 138 open my $fh, "-|", $self->pipe_locate($name.":*") or die $!; 139 while (<$fh>) { 146 close ($fh);
|
/openbsd-current/gnu/usr.bin/perl/t/porting/ |
H A D | test_bootstrap.t | 16 open my $fh, '<', '../MANIFEST' or die "Can't open MANIFEST: $!"; 27 while (my $file = <$fh>) { 73 my $fh; 74 if (ok(open(my $fh, '<', 'test.pl'), "opened test.pl")) { 75 $file = do { local $/; <$fh> };
|
H A D | exec-bit.t | 13 open my $fh, '<', $fname or die "Can't open '$fname': $!"; 14 my $line = <$fh>; 15 close $fh;
|
/openbsd-current/gnu/usr.bin/perl/cpan/File-Path/t/ |
H A D | FilePathTest.pm | 48 open my $fh, '>', $output; 49 return $fh; 105 my $fh = Symbol::gensym(); 106 tie *$fh, 'StringIO', $output; 107 return $fh;
|
/openbsd-current/usr.sbin/pkg_add/OpenBSD/ |
H A D | PackingList.pm | 173 sub defaultCode($fh, $cont) 175 while (<$fh>) { 180 sub SharedItemsOnly($fh, $cont) 182 while (<$fh>) { 188 sub UpdatePlistOnly($fh, $cont) 190 while (<$fh>) { 201 sub LibraryOnly($fh, $cont) 203 while (<$fh>) { 209 sub FilesOnly($fh, $cont) 211 while (<$fh>) { [all...] |
H A D | RequiredBy.pm | 37 open(my $fh, '<', $self->{filename}) or 39 while(<$fh>) { 45 close($fh); 63 open(my $fh, '>', $self->{filename}) or 66 print $fh "$k\n"; 68 close($fh) or
|
/openbsd-current/gnu/usr.bin/perl/ext/PerlIO-encoding/t/ |
H A D | encoding.t | 147 open my $fh, ">:encoding(extensive)", \$buf; 148 $fh->autoflush; 149 print $fh "doughnut\n"; 150 print $fh "quaffee\n"; 152 print $fh "The beech leaves beech leaves on the beach by the beech.\n"; 153 close $fh; 157 open $fh, "<:encoding(extensive)", \$buf; 158 is join("", <$fh>), "Sheila surely shod Sean\nin shoddy shoes.\n", 180 open $fh, ">:encoding(cower)", \$buf; 181 $fh [all...] |
/openbsd-current/gnu/usr.bin/perl/cpan/CPAN/lib/CPAN/ |
H A D | Author.pm | 132 my $fh; 138 $fh = FileHandle->new; 139 if (open($fh, $lc_want)) { 140 my $line = <$fh>; close $fh; 186 $fh = FileHandle->new; 188 if (open $fh, $lc_file) { 190 my $eval = <$fh>; 192 close $fh;
|
/openbsd-current/gnu/usr.bin/perl/t/io/ |
H A D | tell.t | 176 $fh = *FH; # coercible glob 177 is(tell($fh), 0, "tell on coercible glob"); 179 tell *$fh; 181 eof $fh; 183 eof *$fh; 185 seek $fh,0,0; 187 seek *$fh,0,0;
|
/openbsd-current/usr.bin/pkg-config/OpenBSD/ |
H A D | PkgConfig.pm | 105 sub read_fh($class, $fh, $name = '') 109 while (<$fh>) { 114 $_.=<$fh>; 141 open my $fh, '<:crlf', $filename or die "Can't open $filename: $!"; 142 return $class->read_fh($fh, $filename); 145 sub write_fh($self, $fh) 148 say $fh "$variable=", $self->{variables}{$variable}; 150 print $fh "\n\n"; 153 print $fh "$property:"; 155 print $fh [all...] |
/openbsd-current/gnu/usr.bin/perl/ext/PerlIO-via/ |
H A D | via.pm | 15 open($fh,"<:via(Layer)",...); 18 open($fh,">:via(Some::Other::Package)",...); 32 open( my $fh, "<:via(StripHTML)", "index.html" ); 33 my @line = <$fh>; 55 In the method descriptions below I<$fh> will be 57 It refers to the layer below. I<$fh> is not passed if the layer 63 =item $class->PUSHED([$mode,[$fh]]) 73 =item $obj->POPPED([$fh]) 77 =item $obj->UTF8($belowFlag,[$fh]) 90 =item $obj->OPEN($path,$mode,[$fh]) [all...] |
/openbsd-current/regress/sys/kern/sosplice/ |
H A D | Proc.pm | 51 open(my $fh, '>', $self->{logfile}) 53 $fh->autoflush; 54 $self->{log} = $fh; 125 open(my $fh, '<', $self->{logfile}) 127 my $match = first { /$regex/ } <$fh>; 129 close($fh);
|
/openbsd-current/regress/sys/net/pf_divert/ |
H A D | Proc.pm | 53 open(my $fh, '>', $self->{logfile}) 55 $fh->autoflush; 56 $self->{log} = $fh; 137 open(my $fh, '<', $self->{logfile}) 139 my $match = first { /$regex/ } <$fh>; 141 close($fh);
|
/openbsd-current/regress/usr.sbin/ospfd/ |
H A D | Proc.pm | 69 open(my $fh, '>', $self->{logfile}) 71 $fh->autoflush; 72 $self->{log} = $fh; 149 open(my $fh, '<', $self->{logfile}) 151 my @match = grep { /$regex/ } <$fh>; 153 close($fh);
|
/openbsd-current/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/ |
H A D | fixin.t | 55 ok(open(my $fh, ">", $file), "write $file") or diag "Can't write $file: $!"; 56 print $fh $code; 57 close $fh; 61 ok(open($fh, "<", $file), "read $file") or diag "Can't read $file: $!"; 62 my @lines = <$fh>; 63 close $fh;
|
H A D | pm_to_blib.t | 63 ok( open my $fh, ">>", "lib/Big/Dummy.pm" ) or die $!; 64 print $fh "Something else\n"; 65 close $fh;
|
/openbsd-current/gnu/usr.bin/perl/ext/B/ |
H A D | Makefile.PL | 41 open my $fh, '<', $path or die "Cannot open $path: $!"; 42 while (<$fh>) { 54 close $fh;
|
/openbsd-current/gnu/usr.bin/perl/regen/ |
H A D | tidy_embed.pl | 67 open my $fh,">",$new 69 print $fh $grouped_content_txt 71 close $fh
|
/openbsd-current/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/t/lib/ |
H A D | PrimitiveCapture.pm | 42 open my $fh, "<", $filename or die "Can't read $filename: $!"; 44 my $content = <$fh>;
|
/openbsd-current/gnu/usr.bin/perl/Porting/ |
H A D | checkpodencoding.pl | 27 open my $fh, '<', $file; 37 FILE: while (my $line = <$fh>) {
|
/openbsd-current/lib/libedit/ |
H A D | makelist | 39 USAGE="Usage: $0 -h|-dh|-fh|-bh <filenames>" 67 # XXX: need a space between name and prototype so that -dh and -fh 125 -fh)
|
/openbsd-current/gnu/usr.bin/perl/os2/OS2/OS2-Process/t/ |
H A D | os2_process_text.t | 22 #my $PID = open my $fh, '-|', $^X, '-wle', $cmd; 24 my $PID = open my $fh, '-|', "$^X -wle 'eval \$ENV{CMD_RUN} or die'"; 27 $kpid = <$fh>; 28 $kppid = <$fh>; 29 $sid = <$fh>; 52 ok close $fh, 'closed the pipe'; # No kid any more
|
/openbsd-current/gnu/usr.bin/perl/t/comp/ |
H A D | utf.t | 37 open my $fh, ">", "tmputf$$.pl" or die "tmputf$$.pl: $!"; 38 binmode $fh; 39 print $fh bytes_to_utf($enc, $write . ($nl ? "\n" : ''), $bom); 40 close $fh or die $!;
|