Lines Matching refs:mode
15 cacheout $mode, $path;
20 $fh = cacheout $mode, $path;
44 The 2-argument form of cacheout will use the supplied mode for the initial
70 original C<open> file mode. This could be construed to be a bug.
131 my($mode, $file, $class, $ret, $ref, $narg);
135 ($mode, $file) = @_;
136 ($file, $mode) = ($mode, $file) if $narg == 1;
137 croak "Invalid mode for cacheout" if $mode &&
138 ( $mode !~ /^\s*(?:>>|\+?>|\+?<|\|\-|)|\-\|\s*$/ );
141 if( $isopen{$file} && ($mode||'>') ne $isopen{$file}->[2] ){
159 $mode ||= $saw{$file} ? '>>' : ($saw{$file}=1, '>');
162 $ret = cacheout_open($mode, $file) or croak("Can't create $file: $!");
164 $isopen{$file} = [++$cacheout_seq, $mode];