Altai-man · January 16, 2016 14:55
diff --git a/Unhandled kind 1.pl6 b/Unhandled kind 1.pl6
 use v6;
 use NativeCall;

 sub fopen(Str $filename, Str $mode) returns OpaquePointer is native() is export { * }

 sub call(Str $way, bool $is-read) { # bool from NativeCall.
    if $is-read {
 	fopen($way, "r");
    } else {
 	fopen($way, "w");
    }
 }

 call("/tmp/some", True);
	use v6;
	use NativeCall;

	sub fopen(Str $filename, Str $mode) returns OpaquePointer is native() is export { * }

	sub call(Str $way, bool $is-read) { # bool from NativeCall.
	if $is-read {
	fopen($way, "r");
	} else {
	fopen($way, "w");
	}
	}

	call("/tmp/some", True);