Lines Matching refs:create

445     my( $create, $flags, $sec, $model )= ( "", 0, [], 0 );
455 	$create= $opts->{Create}	if  exists( $opts->{Create} );
462 	$create= $c   if  "" ne $c  &&  "" eq $create;
490     if(  $create =~ /^[ktn ce]*$/  ) {
491         local( $_ )= $create;
496 	      qq<more than one of "k", "t", and "n" ($create)>;
500 	      qq<both "c" and "e" ($create)>;
509 	    if(  $c  ||  $w && ! $e  ) {	$create= OPEN_ALWAYS();
510 	    } else {				$create= OPEN_EXISTING(); }
512 	    if(  $e  ) {			$create= TRUNCATE_EXISTING();
513 	    } else {				$create= CREATE_ALWAYS(); }
515 	    if(  ! $e  ) {			$create= CREATE_NEW();
518 		  qq<both "n" and "e" ($create)>;
521     } elsif(  "?" eq $create  ) {
524     } elsif(  $create == 0  &&  $create ne "0"  ) {
525 	croak "Win32API::File::createFile: Invalid \$create ($create)";
539 	      $sPath, $svAccess, $svShare, $sec, $create, $flags, $model );