Lines Matching refs:open

49   open(F, ">", "file-$$") or die $!;
56   open(F, "<", "copy-$$") or die $!;
71   open(F, "<", "file-$$");
74   open(R, "<:raw", "copy-$$") or die "open copy-$$: $!"; $foo = <R>; close(R);
78   open(F, "<", "file-$$");
82   open(R, "<", "copy-$$") or die; $foo = <R>; close(R) or die "close: $!";
91   open(R, "<", "copy-$$") or die; $foo = <R>; close(R);
100   open(R, "<", "copy-$$") or die $!; $foo = <R>; close(R);
119   open(R, "<", "file-$$") or die $!; $foo = <R>; close(R);
134   open(R, "<", "lib/file-$$") or die $!; $foo = <R>; close(R);
140   open(R, "<", "lib/file-$$") or die $!; $foo = <R>; close(R);
154   open(R, "<", "lib/file-$$") or die "open lib/file-$$: $!"; $foo = <R>; close(R);
162     open(F, ">", "file-$$") or die $!;
186     open(F, ">", "file-$$") or die $!;
203   open(F, ">", "file-$$") or die $!;
209   open(F, ">", "copy-$$") or die $!;
227   open(F, "<", "copy-$$") or die $!;
239   open(F, ">", "file-$$") or die $!;
305     open my $fh => ">", $src   or die $!;
308     open    $fh => ">", $copy3 or die $!;
311     open    $fh => ">", $copy6 or die $!;
334 	    open my $fh0, '>', $copy1 or die "Can't open $copy1: $!";
355             open my $fh => "<", $src or die $!;
475     open(my $IN, "-|") || exec $^X, '-e', 'print "Hello, world!\n"';
476     open(my $OUT, "|-") || exec $^X, '-ne', 'exit(/Hello/ ? 55 : 0)';
496     open my $fh, ">", $temp_file
512   open(my $F, '>', "file-$$") or die $!;